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);
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.04053783416748 seconds