Vermutlich keine 1:1 Übersetzung des
asm Codes, aber was die Funktion macht:
Delphi-Quellcode:
function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
var
LDateTimeInMSecs: Int64;
LDateInMSecs: Int64;
LTimeInMSecs: Int64;
begin
LDateTimeInMSecs := Round(DateTime * MSecsPerDay);
LDateInMSecs := LDateTimeInMSecs div MSecsPerDay;
LTimeInMSecs := Abs(LDateTimeInMSecs) mod MSecsPerDay;
Result.Date := DateDelta + LDateInMSecs;
Result.Time := LTimeInMSecs;
end;