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小时):
本文来自博客园,作者:IT情深,转载请注明原文链接:https://www.cnblogs.com/wh445306/p/16751816.html