本文整理自网络，侵删。
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》频道 >>
