Inspirado en la idea de Coso, la "cosa"
(1) pasa por esto:
Código Delphi
[-]
procedure TForm1.DateDifferenceReal(Date1, Date2: TDateTime; var Days, Months, Years: integer);
var D1, D2, M1, M2, Y1, Y2: word;
begin
DecodeDate(Date1,Y1,M1,D1);
DecodeDate(Date2,Y2,M2,D2);
Days := D1 - D2;
Months := M1 - M2;
Years := Y1 - Y2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Y, M, D: integer;
begin
DateDifferenceReal(DateTimePicker1.DateTime,DateTimePicker2.DateTime,D,M,Y);
Edit1.Text := IntToSTr(D);
Edit2.Text := IntToSTr(M);
Edit3.Text := IntToSTr(Y);
end;
No es lo que buscas, pero es una aproximación.
(1) Simple coincidencia.
Saludos,