mit Zeiten Rechnen

[ichbins]

Erstmal ist die Anzahl der Minuten nicht die Anzahl der Stunden durch 60 sondern die Anzahl der Stunden mal 60 (genauso bei sekunden etc.)

Dann sieht es bei dir so aus dass du sagst: 2 Stunden, 120 Minuten und 7200 Sekunden, wobei du ja eher meinst: 2 Stunden, 0 Minuten und 0 Sekunden


Also berechne erstmal die Anzahl der hundertstel Sekunden aus der Stundenzahl:

Delphi-Quellcode:

var
  ss,s,m,h,rest:integer;
begin
  rest:=round(ZEITWERT IN STUNDEN * 360000);  //den zeitwert in Stunden solltest du mit strtofloat bestimmen (Kommazahlen möglich)
  ss:=rest mod 100 //Die Anzahl der Hundertstelsekunden entspricht dem Teilungsrest des Zeitwerts (rest) durch hundert.
  rest:=rest div 100 //Jetzt durch hundert teilen, da die Hundertstelsekunden erledigt sind.
  //das selbe mit sec/min/h machen:
  
  s:=rest mod 60;
  rest:=rest div 60;

  min:=rest mod 60;
  rest:=rest div 60;
 
  h:=rest;  //der übrige Wert in REST ist die Stundenanzahl
end;