delphi获取java时间戳

本文整理自网络，侵删。

 SysTime: TsystemTime;timen,time2:TDateTime;ss2,ss3:int64;str2:string;


GetLocalTime(SysTime);timen:= SystemTimeToDateTime(SysTime);time2 := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
ss2 := 28800000;ss3 := MilliSecondsBetween( timen, time2 );ss3 :=ss3- ss2;
str2 := IntToStr(ss3);
///////////////////////////////////////以下无用str  := '2019-03-06 06:06:23'  ;timen := VarToDateTime(str);str := IntToStr(DateTimeToUnix(timen)-28800);
str2 :=  IntToStr(  DateTimeToUnix(timen)-86060);
      time2 := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
      ss2 := 28800000;      ss3 := MilliSecondsBetween( timen, time2 );      ss3 :=ss3- ss2;
      str2 := IntToStr(ss3);
      GetSystemTime(SysTime);      GetLocalTime(SysTime);
        timen:= SystemTimeToDateTime(SysTime);
 

相关阅读 >>

Delphi7调用Delphi xe2 中间层注意事项

Delphi的tfilestream

Delphi读取xml文件

Delphi 如何得到 winrar 处理解压缩文件的返回值 ？

Delphi获取控件界面图像“新招”

Delphi 之 定时器 (ttimer组件)

Delphi 的运算符列表

Delphi实现二分查找

Delphi 过滤网页代码 <ｓｃｒｉｐｔ></ｓｃｒｉｐｔ>

Delphi 实现dns上线域名解析（用于远控server）

更多相关阅读请进入《Delphi》频道 >>