TimeSerial funktsioon

Arvutab arvväärtusena edastatud tunni, minuti ja sekundi kellaaja järjenumbri väärtuse. Seejärel saad selle väärtuse abil arvutada aegadevahelise erinevuse.

Süntaks:

TimeSerial (tund, minut, sekund)

Tagastusväärtus:

Kuupäev

Parameetrid:

hour: suvaline täisarvavaldis, mis näitab kellaaja järjenumbriväärtuse määramiseks kasutatud aja tundi. Kehtivad väärtused on vahemikus: 0-23.

minute: suvaline täisarvavaldis, mis näitab kellaaja järjenumbri väärtuse määramiseks kasutatud aja minutit. Üldiselt on soovitatav kasutada väärtusei vahemikus 0 kuni 59, kuid juhul, kui minutite arv mõjutab tunniväärtust, võib kasutada ka vahemikust väljaspool olevaid väärtusi.

second: suvaline täisarvavaldis, mis näitab kellaaja järjenumbri väärtuse määramiseks kasutatud aja sekundit. Üldiselt on soovitatav kasutada väärtusei vahemikus 0 kuni 59, kuid juhul, kui sekundite arv mõjutab tunniväärtust, võib kasutada ka vahemikust väljaspool olevaid väärtusi.

Näited:

12, -5, 45 vastab väärtustele 11, 55, 45

12, 61, 45 vastab väärtustele 13, 2, 45

12, 20, -2 vastab väärtustele 12, 19, 58

12, 20, 63 vastab väärtustele 12, 21, 4

Funktsiooni TimeSerial abil saad mis tahes aja teisendada üksikväärtuseks, mille abil saab arvutada ajaerinevusi.

Funktsioon TimeSerial tagastab tüübi Variant väärtusega VarType7 (Kuupäev). See väärtus talletatakse sisemiselt topelttäpsusega arvuna vahemikus 0 ja 0,9999999999. Vastupidiselt funktsioonidele DateSerial ja DateValue, kus kuupäeva järjenumbriväärtused arvutatakse suhteliste päevadena kuni fikseeritud kuupäevani, saad funktsiooni TimeSerial abil arvutada väärtused, kuid ei saa neid hinnata.

Funktsiooni TimeValue korral saad edastada stringi aega sisaldava parameetrina. Funktsiooni TimeSerial korral saad aga edastada üksikud parameetrid (tunni, minuti, sekundi) eraldi arvavaldistena.

Näide:

Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dDate,64,"Aeg numbrina"
    MsgBox sDate,64,"Vormindatud aeg"
End Sub