Jak podzielić całkowity czas na godz min sek
Deti
var
suma, h, n, s: integer;
begin
h:=suma div 3600;
n:=(suma mod 3600) div 60;
s:=(suma mod 3600) mod 60;
end;
var
suma, h, n, s: integer;
begin
h:=suma div 3600;
n:=(suma mod 3600) div 60;
s:=(suma mod 3600) mod 60;
end;
To można też uzyskać konwertując typ TDateTime na TSystemTime procedurą DateTimeToSystemTime. I to działa też na daty.
Poprawne obliczenia znajdują się tu.