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 not 与整数

Delphi的字符串与16进制的相互转换函数的汇编代码

Delphi 显示windows断开网络驱动器对话框

Delphi 系统日期时间格式设置

Delphi 关闭进程方法

Delphi 主窗体最小化时不显示在任务栏

Delphi 备份恢复剪切板

Delphi 之 工具栏组件(ttoolbar)

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

Delphi 压缩图片(bmp、jpg、png)

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

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