Vsebina

# Funkcija TimeValue

Izračuna serijsko vrednost za čas, ki je naveden v urah, minutah in sekundah – parametrih v obliki nizov –, ki predstavlja čas kot eno samo numerično vrednost. S pomočjo te vrednosti lahko izračunavate časovne razlike.

## Skladnja:

    TimeValue(Besedilo As String)

## Vrnjena vrednost:

Datum

## Parametri:

Besedilo: poljuben niz, ki vsebuje želeni čas v obliki »HH:MM:SS«.

Funkcijo TimeValue lahko uporabljate zato, da čas pretvorite v eno samo vrednost, s katero lahko računate razlike v časih.

Ta funkcija TimeValue vrača podatkovno vrsto Variant VarType 7 (Date), shranjena pa je interno v dvojni natančnosti kot število med 0 in 0,9999999999.

Za razliko od funkcij DateSerial ali DateValue, kjer se serijski datum računa v dneh od fiksnega datuma, lahko z vrednostmi, ki jih TimeValue vrača, računate, ne morete pa jih ovrednotiti.

Za funkcijo TimeSerial lahko posredujete posamezne parametre (uro, minute, sekunde) kot ločene numerične izraze. Funkciji TimeValue lahko posredujete kot parameter niz, ki vsebuje čas.

### Kode napak:

5 Neveljaven klic procedure

13 Vrsta spremenljivk se ne ujema

## Primer:

    Sub ExampleTimerValue
    Dim daDT As Date
    Dim a1, b1, c1, a2, b2, c2 As String
        a1 = "začetni čas"
        b1 = "končni čas"
        c1 = "čas skupaj"
        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

Podprite nas!