Ajuda com comparação de datas

Delphi

21/01/2015

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

Curtidas 0

Respostas

Eduardo Silva.

Eduardo Silva.

21/01/2015

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


sds

Eduardo Belo
GOSTEI 0
Mauricio Rodrigues

Mauricio Rodrigues

21/01/2015

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
GOSTEI 0
Marisiana Battistella

Marisiana Battistella

21/01/2015

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.
GOSTEI 0
POSTAR