Връща стойност от тип Variant (Date), съдържаща времето за конкретен час, минута и секунда.
Синтаксис
TimeSerial ( час; минута; секунда )
Предупреждение Уверете се, че аргументите са в правилния диапазон от стойности. Невалиден аргумент може да доведе до неправилен резултат.
Синтаксисът на функцията 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 минути, той се изчислява като един час и 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.
