Validar Data com dia atual (DELPHI)

15/12/2020

Bom dia, recentemente abri um topico parecido, onde apresentei o problema de Valida��o de data, onde ela n�o funcionava corretamente, fui apresentado ao seguinte codigo

if (Trunc(Tabela.FieldByName('DATA').AsDateTime) <> Trunc(now)) then
if (Trunc(Tabela.FieldByName('DATA').AsDateTime) = 0) or (Trunc(Tabela.FieldByName('DATA').AsDateTime) < Trunc(Now)) then
begin
Tabela.FieldByName('DATA').FocusControl;
raise Exception.Create('Data inv�lida! Data inferior a data atual!');
end;

Onde 90% dos meus problemas foram resolvidos, agrade�o de cora��o por quem me ajudou e me disponibilizou este codigo.
Esse codigo funcionou a primeira vista, porem ficou pendente a quest�o de que ainda ele julga que o dia de hoje � inferior ao dia de hoje, aonde preciso fazer o ajuste? Tentei fazer alguns porem nenhum com sucesso, este � o code que me foi disponibilizado, refor�ando, ele � muito bom e me ajudou muito, mas em toda minha jornada n�o consegui criar ou encontrar um codigo que resolva a questao de hoje ser inferior a hoje, to come�ando a achar que tal codigo n�o existe kkkk
Muito obrigado pela ajuda

Utilizo Delphi 10.2 e banco SQLite

Ramboli

Curtir t�pico + 0

Responder

Post mais votado

15/12/2020

Opa, volto aqui para informar que consegui achar a solu��o, estou disponibilizando aqui
Primeiro � necess�rio declarar DateUtils nos Uses
Em seguida coloque o seguinte codigo

  if Query.State = dsInsert then                  // verefica se q query esta em modo de edi��o, foi necessario que no meu caso do verefique no modo de inserir
     begin
      if (Trunc(Query.FieldByName('DATA').AsDateTime) <> Trunc(now)) then              // ve se a data � igual a hoje
       if (Trunc(Query.FieldByName('DATA').AsDateTime) = 0) or (Trunc(Query.FieldByName('DATA').AsDateTime) <= Trunc(Yesterday)) then       // faz as verifica��es. se a data � igual a nada ou se � igual ou menor //que o dia de 0ntem
       begin
          Query.FieldByName('DATA').FocusControl;     // manda o foco para o campo
          raise Exception.Create('Data inv�lida! Data inferior a data atual!');    // mensagem de erro tipo raise
       end;
     end;

agrade�o a todos pela ajuda, muito obrigado

Ramboli

Responder

Gostei + 1