Fórum Ajuda com comparação de datas #507967

21/01/2015

0

Delphi

Galera bom dia/tarde/noite

Seguinte eu estou tentano fazer uma comparação simples de data.

'' Se a data do CAMPO1 for maior que a data atual faça o CAMPO2 ficar vermelho e escrito VENCIDO

if edit128.Text > strtodate(date) then
begin
EDIT131.Color := CLRED;
end;



Ele faz a comparação e poe oque eu pus ali, mas ele faz isso pra qualquer data, eu ponho a data ex. 08/08/2015 ele coloca vencido do mesmo jeito até com data pro dia seguinte ele tbm poe vencido como se nao tivesse fazendo a comparação.....
Nelson Filho

Nelson Filho

Responder

Posts

21/01/2015

Eduardo Silva.

if StrToDate(Edit128.Text) > Now then
Edit131.Color := clRed
else
Edit131.Color := clWindow;


sds

Eduardo Belo
Responder

Gostei + 0

22/01/2015

Mauricio Rodrigues

Bom dia, isto é fácil de resolver, primeiro na condição em que você colocou está afirmando que a data deve ser maior então a data atual é igual.

> maior
>= maior igual
> menor
<= menor igual
= igual

if edit128.Text > strtodate(date) then // maior
if edit128.Text >= strtodate(date) then // maior igual
if edit128.Text < strtodate(date) then // menor
if edit128.Text <= strtodate(date) then // maior igual
if edit128.Text = strtodate(date) then // igual
Responder

Gostei + 0

22/01/2015

Marisiana Battistella

Verifica qual é o formato de dados do campo edit128.Text, talvez tenha que fazer a conversão conforme o Eduardo postou acima...
O valor date talvez não precise converter, pois já logicamente já é uma data....
Testa as diferentes situações que você descobre qual é a correta.
Responder

Gostei + 0

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

Aceitar