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对cookie的操作

Delphi滚动窗口标题

Delphi tdictionary使用范例

Delphi使用api实现模拟按键

Delphi 使用openjdk进行Delphi android开发

Delphi 把单张图片保存到access数据库

Delphi之tstrings和tstringlists类

Delphi双击tmemo选择光标所在行

Delphi 让"显示桌面"功能对你的窗口无效

Delphi 获取标题栏高

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

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