Връща стойност от тип Variant (Date), съдържаща времето за конкретен час, минута и секунда.
Синтаксис
TimeSerial(час; минута; секунда)
Предупреждение Уверете се, че аргументите са в правилния диапазон от стойности. Невалиден аргумент може да доведе до неправилен резултат.
Синтаксисът на функцията TimeSerial има следните аргументи:
| Аргумент | Описание |
|---|---|
| час | Задължително. Variant (Integer). Число между 0 (00: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 минути, резултатът се смята за един час и 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 for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията TimeSerial , за да върне време за зададения час, минута и секунда.
Dim MyTime
MyTime = TimeSerial(16, 35, 17)
' MyTime contains serial representation of 4:35:17 PM.