Warum so kompliziert (i.e. warum vorher extra ausrechnen wann der XX.YY.1970 war)?
Eugen und meinereiner haben irgendwann malunabhängig voneinander ca folgendes geschrieben. Wo ich das jetzt zu stehen habe, weiß ich aber net mehr
... Zumindest siehste ja die fette Konstante. Umgekehrt wäre analog zu berechnen.
Ich werde nochmal schauen, ob ich da noch ne Version hinbekomme, die mit einer gestrippten Systemunit funzt (i.e. keine Int64 Unterstützung
)
Delphi-Quellcode:
function UnixTimeToFileTime(t: LongWord): FILETIME;
var ll: int64;
begin
ll := (Int64(t) * 10000000) + int64(116444736000000000);
result.dwLowDateTime := LongWord(ll);
result.dwHighDateTime := ll shr 32;
end;
Nachtrag: Daß meine Func nicht einen String ausgibt ist mir klar ... aber das ist dann auch wirklich nicht mehr so schwer