Fórum Diferença entre datas #238655

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.