Einzelnen Beitrag anzeigen

Autokrat

Registriert seit: 15. Dez 2005
2 Beiträge
 
#5

Danke!

  Alt 15. Dez 2005, 17:17
Nachdem ich auch noch einmal nach anderen Komponenten geguckt habe, habei ich das per Hand gelöst, indem ich bei OnExit auf die 5-Minutenschritte runde.
Falls jemand nach so etwas suchen sollte, anbei der kurze Code... geht sicherlich eleganter, aber so oft bin ich garnicht mit Delphi beschäftigt...
Grüsse,
Autokrat

Delphi-Quellcode:
var
    DateTime : TDateTime;
    Stunden, Minuten, Sekunden, Millisek : Word;
begin
    // Aktuelle Uhrzeit ermitteln
    DateTime := Time; //oder eben direkt die zuvor ausgelesene Zeit des TDateTimePickers...
    // Uhrzeit splitten
    DecodeTime(DateTime, Stunden, Minuten, Sekunden, Millisek);
    // Auf 5-Minuten-Schritte runden
    Minuten := 5*Round((Minuten*2)/10);
    // 60 Minuten = 1 Stunde!!!
    if Minuten = 60 then
    begin
      // Minuten auf Null und Stunde eins rauf
      Minuten := 00;
      Stunden := Stunden + 1;
    end;
end;
  Mit Zitat antworten Zitat