TimeValue funktsioon

Arvutab üksikus arvväärtuses aega tähistava kellaja järjenumbriväärtuse alates määratud tunnist, minutist ja sekundist (stringina edastatud parameetrid). Seda väärtust saab kasutada aegadevaheliste erinevuste arvutamiseks.

Süntaks:


TimeValue (Text As String)

Tagastusväärtus:

Kuupäev

Parameetrid:

Tekst: suvaline stringavaldis, mis sisaldab vormingus "HH:MM:SS" aega, mida soovid arvutada.

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

Funktsioon TimeValue tagastab tüübi variandi tüübiga VarType 7 (Kuupäev) ja salvestab selle väärtuse topelttäpsusega arvuna vahemikus 0 ja 0,9999999999.

Vastupidiselt funktsioonile DateSerial või DateValue, mis tagastavad kuupäevade järjenumbriväärtused fikseeritud kuupäeva suhtes, saab funktsiooni TimeValue tagastatavate väärtuste abil teha arvutusi, kuid ei saa väärtusi hinnata.

Funktsiooni TimeSerial kasutamisel saab edastada üksikparameetrid (nt tund, minut, sekund) eraldi arvavaldistena. Funktsiooni TimeValue korral aga saab edastada stringi aega sisaldava parameetrina.

Veakoodid:

5 Vigane protseduuri väljakutse

13 Andmetüüpide sobimatus

Näide:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "algusaeg"
    b1 = "lõppaeg"
    c1 = "koguaeg"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub

Palun toeta meid!