delphitimetostring

最新推荐文章于 2023-10-03 00:04:01 发布

原创最新推荐文章于 2023-10-03 00:04:01 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function #unix #string

博客展示了TimeTToDateTimeStr函数，用于将Integer类型的Unix时间转换为String类型的日期时间。函数考虑了Unix时间起始点和时区信息，根据不同的时区状态（标准时间或夏令时）进行计算，最终返回包含日期时间和时区名称的字符串。

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;
End;