Problem mit DateTimeToStr

[Popov]

Such dir evtl. etwas aus der Funktion heraus:

Delphi-Quellcode:

function FileTimeToDateTime(AFileTime: Windows.TFileTime): TDateTime;
var
  ModifiedTime: Windows.TFileTime;
  SystemTime: Windows.TSystemTime;
begin
  try
    FileTimeToLocalFileTime(AFileTime, ModifiedTime);
    FileTimeToSystemTime(ModifiedTime, SystemTime);
    Result := SystemTimeToDateTime(SystemTime);
  except
    Result := 0;
  end;
end;