Sisukord

# 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