Obsah

# Funkce TimeValue

Ze zadané hodnoty hodin, minut a sekund (tyto parametry se zadávají jako řetězce) vypočítá číselnou hodnotu, která představuje časový údaj. Tuto hodnotu lze použít k výpočtu rozdílu mezi dvěma časy.

## Syntaxe:

    TimeValue (Text As String)

## Návratová hodnota:

Datum

## Parametry:

Text: Řetězec, který obsahuje čas ve formátu "HH:MM:SS".

Pomocí funkce TimeValue je možné převést jakýkoliv čas na jednu hodnotu, se kterou je možné počítat rozdíly časů.

Funkce TimeValue vrací typ Variant s VarType 7 (Date), který je interně uložen jako hodnota double v rozsahu 0 až 0,9999999999.

Na rozdíl od funkcí DateSerial a DateValue, kde se rozdíl počítá jako počet dní k pevnému datu, je možné s hodnotami vrácenými funkcí TimeValue počítat, ale není je možné převést zpět na čas.

Funkci TimeSerial je možné předávat jednotlivé parametry (hodiny, minuty, sekundy) jako samostatná čísla. Ovšem funkci TimeValue je možné předat řetězec jako parametr obsahující čas.

### Chybové kódy:

5 Neplatné volání procedury

13 Datové typy nesouhlasí

## Příklad:

    Sub ExampleTimerValue
    Dim daDT As Date
    Dim a1, b1, c1, a2, b2, c2 As String
        a1 = "start time"
        b1 = "end time"
        c1 = "total time"
        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

Podpořte nás!