Automatische Update von Zeit zur zeit

[thomas2009]

Zitat von mkinzler:

Tage := DaysBetween( Now(), Datum1);

Ich bekomme keine Tage sondern 03.03.1900

Delphi-Quellcode:

//uses  DateUtils;
procedure TForm1.Button4Click(Sender: TObject);
begin
//Tage := DaysBetween( Now(), Datum1);
Caption := DateToStr(Round(DaysBetween( Now(), StrToDateTime('01.01.09'))));
end;