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 obsahuje následující argumenty:
|
Argument |
Popis |
|
hodina |
Povinný argument. Variant (Integer). Číslo mezi 0 (12:00 do 23:00) včetně nebo Číselný výraz. |
|
minuta |
Povinný argument. Variant (Integer). Libovolný číselný výraz. |
|
sekunda |
Povinný argument. Variant (Integer). Libovolný číselný výraz. |
Poznámky
Chcete-li určit čas, například 11:59:59, musí být rozsah čísel pro jednotlivé argumenty funkce TimeSerial v normální oblasti jednotky. to znamená 0–23 pro hodiny a 0 až 59 pro minuty a sekundy. Můžete ale také zadat relativní časy jednotlivých Argument použitím 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. V následujícím příkladu se místo absolutních čísel času používají výrazy. Funkce TimeSerial vrátí čas 15 minut před (-15) šest hodin před polednem (12 - 6) nebo 5:45:00.
TimeSerial(12 - 6, -15, 0)
Pokud některý z argumentů překročí normální oblast argumentu, zvýší se podle potřeby na další větší jednotku. Pokud například zadáte 75 minut, vyhodnotí se to 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 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 "Čas" se zadanými hodinami, minutami a sekundami zadanými v argumentech funkce a zobrazí se ve sloupci NewTime. Výsledek: "18:12:10". |
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.
V tomto příkladu se funkce TimeSerial používá 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.
