TWin32FindData.TFileTime nach TDateTime?

[Sharky]

Hai,

ich habe das ganze etwas geändert und vorallem die Abweichung zur UTC
berücksichtigt. Eventuell hat ja jemand das schon gesucht

Code:

[b]uses[/b]
 IdGlobal;

[b]function[/b] FileTimeToDate  (filetime : TFileTime): TDate;
[b]var[/b]
 systime : TSystemTime;
[b]begin[/b]
 FileTimeToSystemTime (filetime,systime);
 result := EncodeDate (systime.wYear,systime.wMonth,systime.wDay);
[b]end[/b];

[i]{****************************************************}[/i]

[b]function[/b] FileTimeToTime  (filetime : TFileTime): TTime;
[b]var[/b]
 systime : TSystemTime;
[b]begin[/b]
 FileTimeToSystemTime (filetime,systime);
 result := OffsetFromUTC + EncodeTime (systime.wHour,systime.wMinute,systime.wSecond,systime.wMilliseconds);
[b]end[/b];

[i]{****************************************************}[/i]

[b]function[/b] FileTimeToDateTime  (filetime : TFileTime): TDateTime;
[b]begin[/b]
 result := FileTimeToDate (filetime) + FileTimeToTime (filetime);
[b]end[/b];