Intervalo de dias entre duas datas, não estou conseguindo...

Delphi

18/06/2008

Entou tentando achar um intevalo de dias entre duas data, mas não quer dar certo, vica aparecendo no resultado da variável, um monte de número com um E no final, tipo (9,1235498987E), estou fazendo assim:

Var WSaldo, WDiariaD : Double;
WDataD, WDataHoje : TDate;
WHoraD, WHoraAgora : TTime;
begin
WDataHoje:=StrToDate(DateToStr(Now));
WHoraAgora:=StrToTime(TimeToStr(Now));
WDataD:=StrToDate(DateToStr(TbPedidosDataHora.Value));
WHoraD:=StrToTime(TimeToStr(TbPedidosDataHora.Value));
WDiariaD:=WDataD - WDataHoje;
end;

Uso paradox, não sei o que está errado, algumém pode me ajudar?


Janete

Janete

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

18/06/2008

tente assim:
Var
  WSaldo, WDiariaD : Double;
  WDataD, WDataHoje : TDate;
  WHoraD, WHoraAgora : TTime;
begin
  WDataHoje := Date;
  WHoraAgora := Time;
  WDataD := StrToDate(DateToStr(TbPedidosDataHora.AsDateTime));
  WHoraD := StrToTime(TimeToStr(TbPedidosDataHora.AsDateTime));
  WDiariaD := Trunc(WDataD - WDataHoje);
end;



GOSTEI 0
POSTAR