Hallo,
vielleicht ein verständlicherer Weg.
Unit "DateUtils" einbinden!
Delphi-Quellcode:
procedure TForm1.Button22Click(Sender: TObject);
begin
Label3.Caption := IntToStr(DaysBetween(
StrToDate(Label1.Caption), StrToDate(Label2.Caption)));
end;
Grüsse, Daniel
