Vrátí hodnotu typu Variant (Date), která udává čas pro zadané hodiny, minuty a sekundy.
Syntaxe
TimeSerial ( hodina, minuta, sekunda )
Upozornění Ujistěte se, že argumenty jsou ve správném rozsahu hodnot. Neplatný argument může vést k nesprávnému výsledku.
Syntaxe funkce TimeSerial má tyto argumenty:
|
Argument |
Popis |
|
h |
Povinný argument. Varianta (celé číslo). Číslo mezi 0 (12:00) a 23 (23:00) (včetně) nebo Číselný výraz. |
|
Minutu |
Povinný argument. Varianta (celé číslo). Libovolný číselný výraz. |
|
Druhé |
Povinný argument. Varianta (celé číslo). Libovolný číselný výraz. |
Poznámky
Chcete-li zadat čas, například 11:59:59, musí být rozsah čísel pro každý argument TimeSerial v normálním rozsahu pro jednotku; to znamená 0–23 pro hodiny a 0–59 pro minuty a sekundy. Můžete ale také určit relativní časy pro každou Argument pomocí libovolného číselného výrazu, který představuje určitý počet hodin, minut nebo sekund před nebo po určitém čase. Následující příklad používá výrazy místo absolutních časových čísel. Funkce TimeSerial vrátí čas 15 minut před (-15) šest hodin před polednem (12 - 6) nebo 5:45:00 dop.
TimeSerial(12 - 6, -15, 0)
Pokud některý argument překročí normální rozsah pro tento argument, podle potřeby se zvýší na další větší jednotku. Pokud například zadáte 75 minut, vyhodnotí se jako jedna hodina a 15 minut. Pokud je některý z argumentů mimo rozsah -32 768 až 32 767, dojde k chybě. Pokud čas určený třemi argumenty způsobí, že datum spadá mimo přijatelný rozsah kalendářních dat, dojde k chybě.
Příklad dotazu
|
Výraz |
Výsledky |
|
SELECT TimeSerial(18,12,10) AS NewTime FROM ProductSales GROUP BY TimeSerial(18,12,10); |
Vrátí hodnotu "Time" tvořenou zadanou hodinou, minutou a sekundou zadanou v argumentech funkce a zobrazí se ve sloupci NewTime. Výsledek: "6:12:10 PM". |
Příklad jazyka VBA
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci TimeSerial k vrácení času pro zadanou hodinu, minutu a sekundu.
Dim MyTime
MyTime = TimeSerial(16, 35, 17)
' MyTime contains serial representation of 4:35:17 PM.
