Функция TimeSerial

Статья
04/07/2023

Возвращает элемент Variant (Date), содержащий значения времени для определенного часа, минуты и секунды.

Синтаксис

TimeSerial(hour, minute, second)

Синтаксис функции TimeSerial состоит из следующих именованных аргументов:

Part	Описание
Час	Обязательный; Variant (Integer). Число от 0 (12:00 A.M.) до 23 (11:00 P.M.) включительно или числовое выражение.
Минуту	Обязательный; Variant (Integer). Любое числовое выражение.
Второй	Обязательный; Variant (Integer). Любое числовое выражение.

Замечания

Чтобы указать время, например 11:59:59, диапазон чисел для каждого аргумента TimeSerial должен быть в обычном диапазоне для этой единицы измерения; то есть 0–23 для часов и 0–59 для минут и секунд. Однако можно также указать относительное время для каждого аргумента с помощью любого числового выражения, представляющего некоторое количество часов, минут или секунд до или после определенного времени.

В следующем примере используются выражения вместо абсолютных чисел времени. Функция TimeSerial возвращает время за 15 минут до (-15) за шесть часов до полудня (12 - 6) или 5:45:00 утра

TimeSerial(12 - 6, -15, 0)

Когда какой-либо аргумент превышает обычный диапазон этого аргумента, он увеличивается до следующей большей единицы измерения, в зависимости от ситуации. Например, если указано 75 минут, это значение оценивается как один час и 15 минут. Если любой один аргумент находится за пределами диапазона от -32 768 до 32 767, то возникает ошибка. Если время, заданное тремя аргументами, приводит к тому, что дата выходит за приемлемый диапазон дат, возникает ошибка.

Пример

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

Dim MyTime
MyTime = TimeSerial(16, 35, 17)    ' MyTime contains serial 
    ' representation of 4:35:17 PM.

См. также

Функции (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.