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

Функция MilliSecondOfTheHour в Delphi

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

Описание:

Возвращает число миллисекунд, отсчитанное от начала часа, к которому относится указанное значение AValue типа TDateTime, до этого указанного значения.

Синтаксис:

function MilliSecondOfTheHour(const AValue: TDateTime): LongWord;

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

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

Результат:

MilliSecondOfTheHour в Delphi