Pessoal,
Boa tarde!
Fiz um form que traz em um Edit( Data Prevista) a data que está gravada no
banco e tenho um Edit( Data de Conclusão) que será a data atual.
Se a data prevista for menor do que a data atual, então está no prazo, senão
fora do prazo..
Fiz este código abaixo, no entanto, a comparação está ficando errada..
Alguém pode me ajudar.
Obrigada!!
procedure TFrmVisPlanoAcao.ComparaData;
Begin
// comparando data prevista com a data atual
EdtDtConclusao.Text:=DateToStr(now());
if StrToDate(EdtDtPrevista.Text) < StrToDate(EdtDtConclusao.Text) then
begin
LabelTipoStatus.Caption:='Em andamento - Dentro do Prazo';
LabelTipoStatus.Font.Color:=clNavy;
end
else
begin
LabelTipoStatus.Caption:='Em andamento - Fora do Prazo';
LabelTipoStatus.Font.Color:=clRed;
end;
End;
--
Abraços,
Geovana Ventura
[As partes desta mensagem que não continham texto foram removidas]
