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