Tempo (data) Total em um periodo!

Question

Estou tentando fazer o seguinte:Ex1:Data Inicial = 29/09/2004Queria que aparecesse o seguinte:1 ano 0 meses e 0 DiasEx2: Data Inicial = 20/08/2003ai a resposta2 anos 1 m�s e 9 dias!Pesquisei muuuuuito...

Massuda · Answer

Voc� n�o mencionou, mas imagino que a data final seja a data de hoje.

Converta a data inicial para um TDateTime (use, por exemplo, StrToDate) e a data de hoje voc� obtem usando Date (ou Now)...

var
  DataInicial: TDateTime; // pode ser TDate
  DataFinal: TDateTime;
  Intervalo: TDateTime;
...
  DataInicial := EncodeDate(2004, 9, 29);
  DataFinal := Date;
  Intervalo := DataFinal - DataInicial;  
...

...a diferen�a entre os dois � o total de dias entre as datas. Use algo assim para formatar o resultado...

function Exemplo(Intervalo: TDateTime): string;
var
  Ano, Mes, Dia: Integer
begin
  Ano := Trunc(Intervalo / 365);
  Intervalo := Intervalo - Ano * 365;
  Mes :=  Trunc(Intervalo / 30);
  Dia :=  Trunc(Intervalo - Mes * 30);

  Result := Format(��d ano �d meses e �d dias�, [Ano, Mes, Dia]); 
end;

F�rum Tempo (data) Total em um periodo! #297779