problemas para fazer testes em DBdateEdit
10/12/2021
0
Eu estou com problemas para fazer testes em DBdateEdit (Lazarus/Delphi);
-> Preciso inibir o usuário de digitar uma data menor a atual. Ele apenas poderia selecionar a data de hoje ou uma data posterior a hoje.
Testei dessa forma porém não dá certo. O código sempre verifca o primeiro if como verdadeiro
obs: O dateEdit está vinculado a uma field da query da dados, que a field Data.
--------------------------------------------------------------
if(qrydadosDATA < now) then
begin
showmessage('Data inválida!');
qrydadosDATA:= now;
exit;
end;
if(qrydadosDATA > now) then
begin
exit;
end;
--------------------------------------------------------------
também tentei dessa outra forma:
if(qrydadosDATA < now) then
begin
showmessage('Data inválida!');
qrydadosDATA:= now;
exit;
end
else
begin
exit;
end;
--------------------------------------------------------------------
como eu poderia fazer testes com esse campo da melhor forma?
Beatriz
Posts
10/12/2021
Gxf
if(seuedit.text < now) then
begin
showmessage('Data inválida!');
qrydadosDATA:= now;
exit;
end;
11/12/2021
Emerson Nascimento
por exemplo:
11/12/2021 (11 de dezembro, informado no campo) sempre será menor que 11/12/2021 14:00:00 (duas da tarde do mesmo dia 11 de dezembro, obtido a partir da função now).
para funcionar você precisa comparar tipos iguais (data x data):
if (qrydadosDATA < date) then
begin
showmessage('Data inválida!');
qrydadosDATA:= date;
end;
// **************************************
// o if abaixo é totalmente desnecessário
// **************************************
//if(qrydadosDATA > now) then
//begin
// exit;
//end;13/12/2021
Beatriz
if(seuedit.text < now) then
begin
showmessage('Data inválida!');
qrydadosDATA:= now;
exit;
end;
Dá nada, eu não consigo comparar usando o edt porque ele é em texto. Tipo, não da pra testar se uma string é menor que uma data.
13/12/2021
Beatriz
por exemplo:
11/12/2021 (11 de dezembro, informado no campo) sempre será menor que 11/12/2021 14:00:00 (duas da tarde do mesmo dia 11 de dezembro, obtido a partir da função now).
para funcionar você precisa comparar tipos iguais (data x data):
if (qrydadosDATA < date) then
begin
showmessage('Data inválida!');
qrydadosDATA:= date;
end;
// **************************************
// o if abaixo é totalmente desnecessário
// **************************************
//if(qrydadosDATA > now) then
//begin
// exit;
//end;O que viria a ser esse date? Se eu não posso usar o now, como faço para capturar exatamente a data do dia?
13/12/2021
Beatriz
O unico problema era que, se eu selecionasse a data do prórprio dia ele continuava sinalizando como inválida >> Então a solução foi criar uma variavel para teste e acrescentar 1.
procedure TfrmBaixaEfetivacao.BtnGravarClick(Sender: TObject);
var dia: TDate;
begin
dia:= qrydadosDATA.AsDateTime + 1;
if (dia < now) then
begin
ShowMessage('Data inválida!');
Exit;
end;
13/12/2021
Emerson Nascimento
procedure TfrmBaixaEfetivacao.BtnGravarClick(Sender: TObject);
var dia: TDate;
begin
dia := qrydadosDATA.AsDate; // somente data.
if (dia < date) then // *now* retorna data e hora; *date* retorna somente a data
begin
ShowMessage('Data inválida!');
Exit;
end;Clique aqui para fazer login e interagir na Comunidade :)