Function TimeTToDateTimeStr (TimeT: Integer): String; Const UnixDateDelta = 25569; {days between 12/31/1899 and 1/1/1970} Var DT: TDateTime; TZ: TTimeZoneInformation; Res: DWord; Begin If (TimeT = 0) Then Result: = 'Else Begin {UNIX TIME_T IS SECS SINCE 1/1/1970} DT: = UnixDatedelta (TimeT / (24 * 60 * 60)); {in Utc} {Calculate Bias} Res: = GetTimeZoneInformation (tz ); If (res = time_zone_id_invalid) THEN RAISELASTWIN32ERROR; if (res = time_zone_id_standard) THEN BEGIN DT: = DT - (tz.bias tz.standardbias) / (24 * 60)); Result: = DateTimetostr (DT) '' Widechartostring (tz.standardname); END ELSE BEGIN {Daylight Saving Time} DT: = DT - ((tz.bias tz.daylightbias) / (24 * 60)); Result: = DateTimetostr (DT) ' ' Widechartostring (tz.daylightname); End; end;
