Criando condições com data
Fala Galera, preciso de uma ajuda suas.
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.
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
Curtidas 0
Respostas
Emarcolongo
22/04/2009
if strtodate(campo_data.txt) < now then showmessage(´Dt.Menor´) else showmessage(´Dt.Maior ou igual´);
GOSTEI 0
Cleiflavio
22/04/2009
emarcolongo valeuuu deu certo era oq eu precisava.
Muito Obrigado.
Muito Obrigado.
GOSTEI 0
Marco Salles
22/04/2009
mais fácil comparar com o proprio asDatetime do campo do que fazer
uma conversão strtodate(campo_data.txt)
Tb é recomendável compara com o Date (Tipo TDate)e não como o
Now (Tipo TDateTime)
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