adminysh

[系统应用] delphi 获得时间戳多位数字时间方法

uses
DateUtils



function GetJavaTime( d: TDateTime ): Int64;

var

  dJavaStart: TDateTime;

begin

  //java里的时间是从1970年1月1日0点到当前的间隔

  dJavaStart := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );  

  Result := MilliSecondsBetween( d, dJavaStart );

end;


#1楼
发帖时间:2014-4-15   |   查看数:0   |   回复数:1
admin

var
 p:TTimeStamp;

 p:=DateTimeToTimeStamp(now);
 Caption:=Copy(IntToStr(p.Date)+inttostr(p.Time),1,11);

10天前 #2楼
游客组