den unterschied zweier Datum-Werte berechnen

[jonny]

Hallo,
Ich möchte gerne zwei Datum-Werte mit einander vergleichen und den Unterschied zurückbekommen.

Beispiel ich gebe heutieges Datum ein 22.04.2005 und ein belibieges Datum in der Vergangenheit z.B. 28.02.2004 und zurück möchte ich gerne 23.01.0001 erhalten.

Ich gehe wie folgt vor nur das ich nicht das richtige herausbekomme.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Tage, Jahre, Monate: Integer;
    jahr, monat, tag: word;
    jahr1, monat1, tag1: word;

    GebDatum: TDate;
begin
    GebDatum:=DateTimePicker1.Date;
    DecodeDate(Now, jahr1, monat1, tag1);
    DecodeDate(GebDatum, jahr, monat, tag);

    Jahre:=YearsBetween(Now, GebDatum);
    GebDatum:=StrToDate(IntToStr(tag) + '.' + IntToStr(monat) + '.' + IntToStr(jahr1));

    Monate:=MonthsBetween(Now, GebDatum);
    GebDatum:=StrToDate(IntToStr(tag) + '.' + IntToStr(monat1) + '.' + IntToStr(jahr1));

    Tage:=DaysBetween(Now, GebDatum);

    Edit1.Text:=IntToStr(Tage) + ', ' + IntToStr(Monate) + ', ' + IntToStr(Jahre);
end;