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