Außerdem gibt es schöne Konstanten zum Umrechnen, anstatt so komischer undokumentierter nummerischer Werte.
Delphi-Quellcode:
// System.SysUtils
HoursPerDay = 24;
MinsPerHour = 60;
SecsPerMin = 60;
MSecsPerSec = 1000;
MinsPerDay = HoursPerDay * MinsPerHour;
SecsPerDay = MinsPerDay * SecsPerMin;
SecsPerHour = SecsPerMin * MinsPerHour;
MSecsPerDay = SecsPerDay * MSecsPerSec;