Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
9. Feb 2007
Ich dachte mir das ungefähr so:
var
stunden, minuten, sekunden: Integer;
...
stunden := (StrToInt(Label10.Caption) div i) div 3600;
minuten := ((StrToInt(Label10.Caption) div i) mod 3600) div 60;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
9. Feb 2007
Wenn ich mich nicht ganz verhaue sollte es so gehen, wenn die Geschwindigkeit irgendwas pro Sekunde ist.
Dann sind 3600 Sekunden eine Stunde, 60 Sekunden eine Minute und der Rest sind Sekunden.
Stunden := (StrToInt(Label10.Caption) div i) div 3600;
Minuten := ((StrToInt(Label10.Caption) div i) mod 3600) div 60;
sekunden := ((StrToInt(Label10.Caption) div i) mod 3600) mod 60;
Grüße
...