Einzelnen Beitrag anzeigen

daniel-volk

Registriert seit: 16. Jul 2003
170 Beiträge
 
Delphi 6 Enterprise
 
#27

Re: Zu einer bestimmten Uhrzeit Aktion ausführen!

  Alt 16. Jul 2003, 17:05

Die Idee mit dem Timer ist schon richtig.
Jetzt ist die große Frage, wo die Software verwendet werden soll. In Deutschland arbeitet man (normalerweise) im 24h Zeitmodus. Die Zeit sieht also so aus: HH:mm:ss
In anderen Ländern kann das wieder anders aussehen, weil z.T. auch der 12h-Modus mit AM / PM verwendet wird.
Für die reine lokale Verwendung kannst du folgenden Code nehmen:

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var zeit, aktzeit : string;
begin
  Zeit := '09:45'; //Timer um 9:45 Uhr auslösen
  delete(zeit,3,1); //Doppelpunkt löschen
  aktZeit := TimeToStr(Time); //aktuelle Zeit in String konvertieren (In D.: HH:mm:ss)
  delete(aktZeit,3,1); //ersten Doppelpunkt löschen
  delete(aktZeit,5,length(zeit)-4); //alles nach den Minuten löschen
  if StrToInt(aktZeit) >= StrToInt(Zeit) //Uhrzeiten werden als Integerwerte behandelt
  then begin
         //Anweisungen
       end;
end;
In diesem Code stellt die Variable "Zeit" die gewünschte Zeit dar und "aktZeit" ist die aktuelle Zeit.
Und wie schon gesagt: Diese Methode läuft nur dann, wenn der PC im 24h-Modus arbeitet!
  Mit Zitat antworten Zitat