Bei TDateTime gilt:
1 = 1 Tag
Ein Tag hat 24 Stunden
zu 60 Minuten = 24 * 60 = 1440 Minuten
zu 60 Sekunden = 1440 * 60 = 86400 Sekunden
zu 1000 Millisekunden = 86400 * 1000 = 86400000 Millisekunden
1 Millisekunde = 1 / 86400000 = 1,1574074074074074074074074074074e-8 Tage
Delphi-Quellcode:
function MilliSecondsToTime(AMilliSeconds : Cardinal) : TDateTime;
begin
Result := AMilliSeconds / 86400000;
end;