(* Delphi获取13位格林治时间实现方法, 与java中的java.lang.System.currentTimeMillis()效果相同 *) var SysTime: TSystemTime; begin GetSystemTime(SysTime); // 方法1 Memo1.Lines.Add(FormatFloat(‘#‘, CompToDouble(TimeStampToMSecs( DateTimeToTimeStamp(SystemTimeToDateTime(SysTime)))) - TimeStampToMSecs( DateTimeToTimeStamp(StrToDateTime(‘1970/1/1‘))))); // 方法2 需要引用DateUtils单元 Memo1.Lines.Add(FormatFloat(‘#‘, DateUtils.MilliSecondsBetween( SystemTimeToDateTime(SysTime), StrToDateTime(‘1970/1/1‘)))); end;
参考:http://www.e8e.net/post/2b9e8b_b87935
时间: 2024-10-08 09:30:28