Intervalo de dias entre duas datas, não estou conseguindo...
18/06/2008
0
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?
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
Curtir tópico
+ 0
Responder
Posts
18/06/2008
Emerson Nascimento
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)