Delphi中系统时间与Unix时间戳互相转换

原创已于 2023-04-01 12:10:41 修改 · 1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi

于 2023-04-01 12:07:51 首次发布

delphi常用函数专栏收录该内容

38 篇文章

订阅专栏

文章介绍了如何在编程中进行时间戳转换，包括从DateTime到UnixDate的转换函数，特别提到了由于时区差异，北京时间比格林威治时间快8小时，因此在转换时需要考虑这一因素。提供了不同的转换方法，包括基于毫秒的计算。

应用场景

经常会用到的时间戳转换，特别是在网页数据中，有在线网址工具转换https://tool.chinaz.com/tools/unixtime.aspx
但我们必须要再自己的程序里面实现，这里有个时区问题，默认按格林威治时间计算的，如果按北京时间来算会比格林威治时间多了8小时。

函数代码

//DateTime==>>UnixDate
function DateTimeToUnixDate(const ADate: TDateTime): Longint;
const
  cUnixStartDate: TDateTime = 25569.0; // 1970/01/01
begin
  Result := Round((ADate - cUnixStartDate) * 86400);
end;
//UnixDate==>>DateTime
function UnixDateToDateTime(const USec: Longint): TDateTime;
const
  cUnixStartDate: TDateTime = 25569.0; // 1970/01/01
begin
  Result := (Usec / 86400) + cUnixStartDate;
end;

//等价函数
function DateTimeToUnixDate( d: TDateTime ): Int64;
var
  dJavaStart: TDateTime;
begin
  //时间是从1970年1月1日0点到当前的间隔
  dJavaStart := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
  Result := MilliSecondsBetween( d, dJavaStart );
end;

//曾遇到过按北京时间算时间戳的
function DateTimeToUnixDate( d: TDateTime ): Int64;
var
  dJavaStart: TDateTime;
begin
  dJavaStart := EncodeDateTime( 1970, 1, 1, 8, 0, 0, 0 );
  Result := MilliSecondsBetween( d, dJavaStart );
end;