Module
Contents
Index 🔎︎

# TimeValue Function

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.

## Error codes:

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