Differenz von Datum1 und Datum2

[Chris.R]

Hallo,

ich würds so lösen:

Delphi-Quellcode:

var datum1, datum2 : TDateTime;
tage : integer;

datum1 := StrToDate(Edit1.Text);
datum2 := StrToDate(Edit2.Text);

if datum1 > datum2 then
  tage := Trunc(datum1) - Trunc(datum2)
else
  tage := Trunc(datum2) - Trunc(datum1);

Label1.Caption := 'Die Differenz zwischen Datum1 und Datum2 ist ' + IntToStr(tage) + ' Tage';

Ciao Chris