Time <-> Millisekunden

[Delphi.Narium]

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;