delphi 时间戳与日期互转
1、日期转换成时间戳
function Gettimestamp: string;
begin
Result := inttostr(DateTimeToUnix(IncHour(Now,-8))); // 本地时间减8小时
end;
2、时间戳转换成日期
function UnixDateToDateTime(const USec: Longint): TDateTime;
const
UnixStartDate: TDateTime = 25569.0; // 1970/01/01
begin
Result:= (Usec / 86400) + UnixStartDate;
Result:= IncHour(Result,8);
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.035297155380249 seconds