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?


Janete

Janete

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar