Diferença entre datas

Delphi

19/06/2004

Olá colegas, sei que esta topico já foi convesado varias vezes mais na pesquisa não achei o resultado desejado.

Uso o comando abaixo para encontrar o resultado entre datas, veja bem:

01/01/2000 a 01/01/2004 que da 4 anos certo? so que o resultado esta da seguinte forma 4,01373

O que pode esta errado nesse comando...

var venc, Pagto: Tdate;
difdias :double;
begin
venc:=StrToDate(dbEdit13.Text);
Pagto:=StrToDate(dbEdit14.Text);
difdias :=(trunc(pagto - venc))/364;
label16.Caption:=FloatToStr(difdias);
end;
end.


Wagner

Wagner

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

19/06/2004

Tente assim:

Antes : difdias :=(trunc(pagto - venc))/364;
Depois : difdias :=trunc((pagto - venc)/364);
var venc, Pagto: Tdate; 
    difdias :double; 
begin 
   venc:=StrToDate(dbEdit13.Text); 
   Pagto:=StrToDate(dbEdit14.Text); 
   difdias :=trunc((pagto - venc)/364); 
   label16.Caption:=FloatToStr(difdias); 
end;



GOSTEI 0
Wagner

Wagner

19/06/2004

:D :D :D Valeu...funcinou legal


GOSTEI 0
POSTAR