Intervalo de dias entre duas datas, não estou conseguindo...
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
Curtidas 0
Respostas
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