Tagastab tüübile Variant (Kuupäev) vastavad andmed, mis sisaldavad kindlale tunnile, minutile ja sekundile vastavat kellaaega.
Süntaks
TimeSerial ( tund, minut, sekund )
Hoiatus! Veenduge, et argumendid oleksid õiges väärtustevahemikus. Sobimatu argument võib põhjustada vale tulemi.
Funktsiooni TimeSerial süntaksil on järgmised argumendid.
Argument |
Kirjeldus |
tund |
Nõutav. Variant (Täisarv). Arv vahemikus 0 ja 23 (k.a või arvuline avaldis). |
minut |
Nõutav. Variant (Täisarv). Mis tahes arvuline avaldis. |
sekund |
Nõutav. Variant (Täisarv). Mis tahes arvuline avaldis. |
Kommentaarid
Kellaaja (nt 11:59:59) määramiseks peaks iga argumendi TimeSerial arvuvahemik olema ühiku tavalises vahemikus; st 0–23 tundi ja 0–59 minutit ja sekundit. Siiski saate iga argument jaoks määrata suhtelised ajad, kasutades mis tahes arvulist avaldist, mis tähistab teatud arvu tunde, minuteid või sekundeid enne või pärast teatud aega. Järgmises näites kasutatakse absoluutarvude asemel avaldisi. Funktsioon TimeSerial tagastab kellaaja 15 minutit enne (-15) kuus tundi enne lõunat (12 - 6) või 5:45:00.
TimeSerial(12 - 6, -15, 0)
Kui mõne argumendi väärtus on suurem vastava argumendi tavavahemiku väärtustest, suurendatakse seda vastavalt järgmise ühikuni. Näiteks kui määrate väärtuse 75 minutit, arvestatakse seda ühe tunni ja 15 minutina. Kui argument on väljaspool vahemikku -32 768–32 767, ilmneb tõrge. Tõrge ilmneb ka siis, kui kolme argumendiga määratud kellaaja tõttu jääb kuupäev väljapoole sobivat kuupäevavahemikku.
Päringu näide
Avaldis |
Tulemid |
SELECT TimeSerial(18;12;10) AS NewTime FROM ProductSales GROUP BY TimeSerial(18;12;10); |
Tagastab väärtuse "Time", mis koosneb määratud tunnist, minutist ja sekundist, mis on sisestatud funktsiooni argumentidesse ja kuvatakse veerus NewTime. Tulem: "6:12:10 PL". |
VBA näide
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites tagastatakse funktsiooni TimeSerial abil määratud tunnile, minutile ja sekundile vastav kellaaeg.
Dim MyTime
MyTime = TimeSerial(16, 35, 17) ' MyTime contains serial representation of 4:35:17 PM.