Folgendes bedürfte
IMHO noch der Zeitzonen und Sommerzeitbehandlung, ansonsten meine ich passt es
Delphi-Quellcode:
Function MyDateTime(d:Double):TdateTime;
begin
Result := (d/1000000 + EncodeDate(1601,1,1) * (24*60*60))/(24*60*60) ;
end;
Wie wende ich deinen Code auf das Beispieldatum 12990353101092500 an?
FileDateToDateTime erwartet einen Integer, das Beispieldatum 12990353101092500 ist jedoch ULONG btw Int64.