Hallo,
bin wieder mal da und hab gleich ein Problem
Ich formatiere in meinem Programm wie folgt eine Stoppuhr:
Delphi-Quellcode:
procedure TForm1.Timer6Timer(Sender: TObject);
begin
if HourOf(Time - StartTimePlay)=0 then
Label6.Caption := FormatDateTime('nn:ss', Time - StartTimePlay) else Label6.Caption := FormatDateTime('hh:nn:ss', Time - StartTimePlay);
end;
Wenn es weniger als eine Stunde ist, werden nur Minuten und Sekunden angezeigt, bei mehr als eine Stunde noch die Stunden dazu. Funktioniert also soweit alles gut. Aber wenn ich z.B die Stoppuhr kurz vor 0:00 Uhr einschalte, es vergehen ein paar Minuten, und es wird 0:00 Uhr spielt die Stoppuhr verrückt. Die Formatierung springt auf hh:nn:ss und auf der Stoppuhr wird 23 Stunden noch was angezeigt.
Kann mir jemand helfen diesen Fehler zu korrigieren? Selber komme ich nicht mehr weiter. Das einzigste was ich rausgefunden habe, dass um 0:00 Uhr die HourOf(Time - StartTimePlay) = 23 ist.
Danke!