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);

 

相关阅读 >>

Delphi firedac mysql 连接

Delphi services允许跨域访问

Delphi 获取网页代码单元

Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】

Delphi 中文姓名 合法性检查

Delphi 如何将access数据库后缀名accdb改为mdb

Delphi firemonkey的tedit七大变化

Delphi 防止系统睡眠

Delphi webbrowser添加到收藏夹

Delphi 字串转16进制

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

转载请注明出处：木庄网络博客 » delphi获取java时间戳