Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi DateTimePicker: zu einer gewissen Uhrzeit Funktion ausführen (https://www.delphipraxis.net/95176-datetimepicker-zu-einer-gewissen-uhrzeit-funktion-ausfuehren.html)

Sherlock 5. Jul 2007 08:02

Re: DateTimePicker: zu einer gewissen Uhrzeit Funktion ausfü
 
Aber bitte, denk dran: Nur ein Vergleich zwischen Vollständigen Zeitpunkten ist sinnvoll.

Now = DateTimePicker.DateTime sonst kommst auch mit Strings nicht hin ;)

Wie gesagt, Du musst halt die Abfrage etwas aufweichen. weil so prüfst Du millisekundengenau.

Sherlock

oldmax 5. Jul 2007 12:24

Re: DateTimePicker: zu einer gewissen Uhrzeit Funktion ausfü
 
Hi
Wenn ich dein Problem richtig deute, so brauchst du einen "Wecker". Dazu hätt ich folgenden Vorschlag:
Weckzeit : TDateTime; // Updatezeit oder was auch immer


Nun kannst du wie folgt deine Abfrage starten:
Delphi-Quellcode:
if (Weckzeit <Now) then
begin
 
  ......
  Weckzeit:=Weckzeit+1; // würde am nächsten Tag den Wecker wieder klingeln lassen
  Weckzeit:=Weckzeit+0,3600000; // würde in einer Stunde angehen

end;
ungeprüft, aber vom Prinzip sollte es stimmen

Gruß oldmax

digra 6. Jul 2007 11:40

Re: DateTimePicker: zu einer gewissen Uhrzeit Funktion ausfü
 
Hi,
TDatetime bildet die Zeit wie folgt ab

Round(xyz) ist der Tag
alles was hinter dem Komma kommt die Zeit.

Eine 1 sind demzufolge 24 Stunden
eine Minute entsprechen 1/(24*60)

das bedeutet, wenn runden dann ungefähr so

if round(zeit*1000)/1000 =round(anderezeit * 1000) / 1000 then .....
rundet die Zeit auf vier Nachkommastellen

Das entspricht dann etwa eine Spanne von 1,5 Minuten, also den Timer auf zwei Minuten einstellen.

Gruß Dirk


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:15 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz