Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Automatische Update von Zeit zur zeit (https://www.delphipraxis.net/130273-automatische-update-von-zeit-zur-zeit.html)

thomas2009 5. Mär 2009 22:15

Re: Automatische Update von Zeit zur zeit
 
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 5. Mär 2009 22:17

Re: Automatische Update von Zeit zur zeit
 
Delphi-Quellcode:
Tage := DaysBetween( Now(), Datum1);

thomas2009 5. Mär 2009 22:44

Re: Automatische Update von Zeit zur zeit
 
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 5. Mär 2009 22:47

Re: Automatische Update von Zeit zur zeit
 
Tage ist ja auch ein Integer. Was dir dein Delphi auch gesagt haben wird.

thomas2009 5. Mär 2009 23:02

Re: Automatische Update von Zeit zur zeit
 
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 5. Mär 2009 23:03

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.
Seite 2 von 2     12   

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