Automatische Update von Zeit zur zeit

[thomas2009]

Zitat:

Zitat von mkinzler

Wie meinst du das mit Tagen? DateUtils.DaysBetween()

kannst Du mir eine beispiel geben ?
ich habe nun diese Lösung :

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Dat1: TDateTime;
  Dat2: TDatetime;
begin
  Dat1:= Now();
  Dat2:= StrToDateTime(Edit1.Text);
  edit3.Text:= inttoStr(round((Dat1)-(Dat2)));

end;

Der Code gibt mir den Unterschied in Tagen

[mkinzler]

Delphi-Quellcode:

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

[thomas2009]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

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;

[mkinzler]

Tage ist ja auch ein Integer. Was dir dein Delphi auch gesagt haben wird.

[thomas2009]

Zitat:

Zitat von mkinzler

Tage ist ja auch ein Integer. Was dir dein Delphi auch gesagt haben wird.

Stimmt
also so

Delphi-Quellcode:

Caption := IntToStr(Round(DaysBetween( Now(), StrToDateTime('01.01.09'))));

Danke

[mkinzler]

Das Round() ist dann auch unnötig