delphi 获得时间戳 毫秒数

function DateTimeToMilliseconds(const ADateTime: TDateTime): Int64; //获得毫秒

var

LTimeStamp: TTimeStamp;

begin

LTimeStamp := DateTimeToTimeStamp(ADateTime);

Result := LTimeStamp.Date;

Result := (Result * MSecsPerDay) + LTimeStamp.Time;

end;