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
Post a Comment