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!