restar fechas

[[Delphius]]

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,