Обновлено: 01 декабря, 2018

Функция MilliSecondOfTheSecond в Delphi

Используемый модуль: DateUtils

Описание:

Извлекает миллисекунды из величины AValue типа TDateTime.

Синтаксис:

function MilliSecondOfTheSecond(const AValue: TDateTime): Word;

Пример использования:

uses DateUtils;
...
Var
  Res: Integer;
begin
  Res:= MilliSecondOfTheSecond(Now);  // сколько миллисекунд прошло с начала секунды
  ShowMessage('С начала секунды прошло ' + IntToStr(Res) + ' миллисекунд');
end;

Результат:

MilliSecondOfTheSecond в Delphi