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 有关pchar.strcopy的实验

Delphi统计字数（汉字+字母+符号）

Delphi fmx 图像处理成圆角图像

Delphi关于邮箱收信的问题

Delphi 运行clsid文件

Delphi xe安装 tclientsocket, tserversocket控件

Delphi linklabel1 用法

Delphi android 保持唤醒状态

Delphi 如何在toolbar中的toolbutton上显示文字

Delphi 获取邮箱中的用户名

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

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