delphi 获得时间戳 毫秒数

function DateTimeToMilliseconds(const ADateTime: TDateTime): Int64; //获得毫秒
var
LTimeStamp: TTimeStamp;
begin
LTimeStamp := DateTimeToTimeStamp(ADateTime);
Result := LTimeStamp.Date;
Result := (Result * MSecsPerDay) + LTimeStamp.Time;
end;