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

Функция HourOfTheWeek в Delphi

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

Описание:

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

Синтаксис:

function HourOfTheWeek(const AValue: TDateTime): Word;

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

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

Результат:

HourOfTheWeek в Delphi