Delphi : How to convert Unix (date time) to TDateTime.

Uses
   DateUtils;

var
  FTimeZoneInfo : TTimeZoneInformation;
  FRateLimitResetInt: Int64;
  D: TDateTime;

begin
  FRateLimitResetInt := 1559792203;   //for example UnixDateTime
  if FRateLimitResetInt>0 then begin
     GetTimeZoneInformation(FTimeZoneInfo);
     D:=   UnixToDateTime( FRateLimitResetInt - (FTimeZoneInfo.Bias * 60));
  end
  else
     D:= EncodeDate(1899,12,31);
   
  Label1.Caption:= formatdatetime ('dd/mm/yyyy hh:mm:ss.ms', D);

end;

Comments