delphi 获得时间戳 毫秒数

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

var

LTimeStamp: TTimeStamp;

begin

LTimeStamp := DateTimeToTimeStamp(ADateTime);