Возвращает значение типа Variant (Date), содержащее время для определенных значений часов, минут и секунд.
Синтаксис
TimeSerial(hour, minute, second)
Предупреждение Убедитесь, что аргументы находятся в правильном диапазоне значений. Недопустимый аргумент может привести к неправильному результату.
Функция TimeSerial имеет следующие аргументы:
| Аргумент | Описание |
|---|---|
| Час | Обязательный аргумент. Variant (Integer). Число от 0 (12:00) до 23 (23:00 вечера), включительно или числовое выражение. |
| Минуту | Обязательный аргумент. 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 минут, оно преобразуется в 1 час 15 минут. Если какой-либо из аргументов имеет значение, лежащее вне диапазона от -32 768 до 32 767, возникает ошибка. Если заданное тремя аргументами время обозначает дату, находящуюся вне допустимого диапазона дат, возникает ошибка.
Пример запроса
| Выражение | Результаты |
|---|---|
| SELECT TimeSerial(18,12,10) AS NewTime FROM ProductSales GROUP BY TimeSerial(18,12;10); | Возвращает значение "Время", состоящее из указанных часов, минут и секунд, введенных в аргументах функции, и отображается в столбце NewTime. Результат: "18:12:10". |
Пример VBA
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере функция TimeSerial используется для получения времени, определенного указанными значениями часов, минут и секунд.
Dim MyTime
MyTime = TimeSerial(16, 35, 17)
' MyTime contains serial representation of 4:35:17 PM.