Delphi - UnixToDateTime in UTC?



var
  LDateTime     : TDateTime;
  LUnixTime     : Int64;
  LTimeZoneInfo : TTimeZoneInformation;
begin

  GetTimeZoneInformation(LTimeZoneInfo);
  LUnixTime:= 1513414207 - LTimeZoneInfo.Bias * 60;
  LDateTime:= UnixToDateTime(LUnixTime);
  Panel1.Caption := formatdatetime('dd-mm-yyyy hh:mm:ss', LDateTime);

Comments