Hour Function

Возвращает час, принимая в качестве параметра значение времени, созданное функцией TimeSerial или TimeValue.

Синтаксис

Hour (Число)

Возвращаемое значение:

Integer

Параметры:

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

Эта функция обратна функции TimeSerial и возвращает целое число, являющееся количеством часов из значения времени, полученного с помощью функции TimeSerial или TimeValue. Например, выражение

Print Hour(TimeSerial(12,30,41))

возвращает значение 12.

Пример:

Sub ExampleHour

Print "Текущий час - " & Hour( Now )

End Sub