Module
Contents
Index 🔎︎

# TimeValue Function

Kiszámít egy soros időértéket a megadott órából, percből és másodpercből - karakterláncként átadott paraméterek -, amelyek az időt egy numerikus értékként ábrázolják. Az érték segítségével kiszámítható az idők közötti különbség.

## Szintaxis:

    TimeValue (Szöveg As String)

## Visszatérési érték:

Dátum

## Paraméterek:

Szöveg: String (karakterlánc) kifejezés, amely tartalmazza az "ÓÓ:PP:MM" formátumban kiszámítani kívánt értéket.

Használja a TimeValue függvényt bármely idő normál számértékké való átalakításához, így akár időkülönbségeket is kiszámolhat.

Ez a TimeValue függvény Variant típust ad vissza (VarType 7 - Date (dátum)), és az értéket egy 0 és 0.9999999999 közötti double (dupla pontosságú) számként tárolja el.

A DateSerial és a DateValue függvénnyel ellentétben, ahol a soros dátumértékek egy rögzített dátumhoz viszonyított napok száma, a TimeValue függvény által visszaadott értékekkel számításokat is lehet végezni, de viszont nem lehet őket megbecsülni.

A TimeSerial függvényben egyedi paramétereket adhat át (óra, perc, másodperc) külön numerikus kifejezésekként. A TimeValue függvénynek egy időt tartalmazó karakterláncot adhat át paraméterként.

## Error codes:

5 Érvénytelen eljáráshívás

13 Az adattípus nem egyezik

## Példa:

    Sub ExampleTimerValue

    Dim daDT As Date

    Dim a1, b1, c1, a2, b2, c2 As String

        a1 = "kezdési idő"

        b1 = "befejezési idő"

        c1 = "teljes idő"

        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