![]() |
Re: Automatische Update von Zeit zur zeit
Zitat:
ich habe nun diese Lösung :
Delphi-Quellcode:
Der Code gibt mir den Unterschied in Tagen
procedure TForm1.Button3Click(Sender: TObject);
var Dat1: TDateTime; Dat2: TDatetime; begin Dat1:= Now(); Dat2:= StrToDateTime(Edit1.Text); edit3.Text:= inttoStr(round((Dat1)-(Dat2))); end; |
Re: Automatische Update von Zeit zur zeit
Delphi-Quellcode:
Tage := DaysBetween( Now(), Datum1);
|
Re: Automatische Update von Zeit zur zeit
Zitat:
Delphi-Quellcode:
//uses DateUtils;
procedure TForm1.Button4Click(Sender: TObject); begin //Tage := DaysBetween( Now(), Datum1); Caption := DateToStr(Round(DaysBetween( Now(), StrToDateTime('01.01.09')))); end; |
Re: Automatische Update von Zeit zur zeit
Tage ist ja auch ein Integer. Was dir dein Delphi auch gesagt haben wird.
|
Re: Automatische Update von Zeit zur zeit
Zitat:
also so
Delphi-Quellcode:
Danke
Caption := IntToStr(Round(DaysBetween( Now(), StrToDateTime('01.01.09'))));
|
Re: Automatische Update von Zeit zur zeit
Das Round() ist dann auch unnötig
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz