Delphi中获取十位数Unix时间戳DateTimeToUnix注意事项及互转方法

uses DateUtils;
DateTimeToUnix(Now)

值得注意的是，上面函数运行后它得到的时间比c语言中Time()得到的时间大了8*60*60，也就是多了8小时，28800秒
这是因为Now是当前时区的时间，c语言中time()是按格林威治时间计算的，
北京时间比格林威治时间多了8小时
DateTimeToUnix(Now)-8*60*60 就和c语言中time()得到的一样了 

如下图：

//日期转换成时间戳
procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit2.Text:=IntToStr(DateTimeToUnix(Now));
   Edit3.Text:=IntToStr(DateTimeToUnix(Now)-8*60*60);
end;
 
//时间戳转换成日期
procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit4.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',UnixToDateTime(StrToInt64(Edit2.Text)));
   Edit5.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',UnixToDateTime(StrToInt64(Edit3.Text)));
end;

效果如下图（可以看到相差了8小时）：