Fórum Criando condições com data #369912

22/04/2009

0

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.


Cleiflavio

Cleiflavio

Responder

Posts

22/04/2009

Emarcolongo

if strtodate(campo_data.txt) < now then showmessage(´Dt.Menor´) 
   else showmessage(´Dt.Maior ou igual´);



Responder

Gostei + 0

22/04/2009

Cleiflavio

emarcolongo valeuuu deu certo era oq eu precisava.

Muito Obrigado.


Responder

Gostei + 0

22/04/2009

Marco Salles

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)

if campo_data.AsDateTime < Date then showmessage(´Dt.Menor´) 
   else showmessage(´Dt.Maior ou igual´); 



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar