Fórum Criando condições com data #369912
22/04/2009
0
Eu estou fazendo um sistema de agendamentoe qunado eu vou fazer um novo agendamento eu queria que verificasse a data atual e comparasse a data que está sendo preenchida com a data atual para saber se é menor.
Esse é um exemplo que eu fiz mas ele verifica só verifica o dia se o dia atual for maior ele passa.
if campo_data.text < datetostr(now) then begin
messageDlg(´Data da Reserva menor que data Atual !!! ´, mtconfirmation, [mbOk],0);
end
else
.......... prossiga meu codigo...
end;
Eu estou fazendo assim mas com eu faleu não dá certo, preciso de um jeito para verificar se a data informada é menos que a data atual.
Alguem poderia me ajudar.
Cleiflavio
Curtir tópico
+ 0Posts
22/04/2009
Emarcolongo
if strtodate(campo_data.txt) < now then showmessage(´Dt.Menor´) else showmessage(´Dt.Maior ou igual´);
Gostei + 0
22/04/2009
Cleiflavio
Muito Obrigado.
Gostei + 0
22/04/2009
Marco Salles
uma conversão strtodate(campo_data.txt)
Tb é recomendável compara com o Date (Tipo TDate)e não como o
Now (Tipo TDateTime)
if campo_data.AsDateTime < Date then showmessage(´Dt.Menor´) else showmessage(´Dt.Maior ou igual´);
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)