IADsLargeInteger TO TDateTime

[Andreas L.]

Wenn IADsLargeInteger dem TFileTime entspricht kannst du folgenden Code verwenden:

Delphi-Quellcode:

function FileTimeToDateTime(FileTime: TFileTime):TDateTime;
var
  LocalTime: TFileTime;
  SystemTime: TSystemTime;
begin
  Result := EncodeDate(1900,1,1);
  if FileTimeToLocalFileTime(FileTime, LocalTime) then
    if FileTimeToSystemTime(LocalTime, SystemTime) then
      Result := SystemTimeToDateTime(SystemTime);
end;