File Time to System Time - Delphi

DarkCoderSc personal avatar
DarkCoderSc

Jean-Pierre LESUEUR

uses
  uHelper, System.SysUtils, Winapi.Windows;

// ...

function FileTimeToDateTime(const AFileTime: TFileTime): TDateTime;
begin
  var ALocalFileTime: TFileTime;
  if not FileTimeToLocalFileTime(AFileTime, ALocalFileTime) then
    raise EWindowsException.Create('FileTimeToLocalFileTime');

  var ASystemTime : TSystemTime;
  if not FileTimeToSystemTime(AFileTime, ASystemTime) then
    raise EWindowsException.Create('FileTimeToSystemTime');

  ///
  Result := SystemTimeToDateTime(ASystemTime);
end;

function TryFileTimeToDateTime(const AFileTime: TFileTime): TDateTime;
begin
  try
    result := FileTimeToDateTime(AFileTime);
  except
    result := Now;
  end;
end;

// ...

Creating and researching code snippets takes time and effort. You’re welcome to share them through your own platforms, but please don’t forget to credit the original author, here: Jean-Pierre LESUEUR.

Depends On


Created

September 17, 2025

Last Revised

September 17, 2025