格林治時間，也就是返回從 UTC 1970 年 1 月 1 日午夜開始經過的毫秒數。
(*
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