Получить текущее время Миллисекунды

Question

Как получить текущее время в миллисекундах?

Я знаю, что использую Теперь, но мне нужно получить миллисекунды.

var 
    today : TDateTime; 
begin 
    today := Now; 

Answer 1

DateUtils.MilliSecondsBetween(Now, 0); 

Answer 2

DecodeDateTime примет TDateTime и быть в состоянии разделить его на год, месяц, день, час минуты секунду и миллисекунду.

См. http://www.delphibasics.co.uk/RTL.asp?Name=DecodeDateTime для получения дополнительной информации.

Как только у вас есть отдельные номера, вы можете использовать математику для вычисления текущего миллисекундного счета за полночь.

Var 
    myDate: TDateTime; 
    myYear, myMonth, myDay: Word; 
    myHour, myMin, mySec, myMilli: Word; 

begin 
    myDate := Now; 
    DecodeDateTime(myDate, myYear, myMonth, myDay, myHour, myMin, mySec, myMilli); 
    ShowMessage('Number of milliseconds past midnight = ' + IntToStr(myMilli + (mySec * 1000) + (myMin * 60 * 1000) + (myHour * 60 * 60 * 1000))); 
end; 

Answer 3

Используйте DateUtils MilliSecondOfTheDay:

ms := MillisecondOfTheDay(Now); 

Возвращает количество миллисекунд между заданным значением TDateTime и началом того же дня.

Если вы хотите миллисекунды из другого периода времени, есть и другие подобные функции, такие как: MilliSecondOfTheYear, MilliSecondsBetween и т.д.

Answer 4

TDateTime является double где 1 день. Константа SecsPerDay объявлена ​​в SysUtils представляет количество секунд в день, так, чтобы получить сейчас в миллисекундах:

todayInMilliseconds := Now * SecsPerDay * 1000.0;