TimeValue Function

Calcula un valor d'hora de sèrie a partir de l'hora, el minut i el segon especificat (paràmetres passats com a cadenes) que representen l'hora en un únic valor numèric. Aquest valor es pot utilitzar per calcular la diferència entre hores.

Sintaxi:

TimeValue (Text As String)

Valor de retorn:

Data

Paràmetres:

Text: Qualsevol expressió de cadena que conté l'hora que voleu calcular en el format "HH:MM:SS".

Utilitzeu la funció TimeValue per convertir qualsevol hora en un únic valor, per tal que pugueu calcular diferències d'hora.

Aquesta funció TimeValue torna la variant de tipus amb VarType 7 (Data), i emmagatzema aquest valor internament com a nombre de doble precisió entre 0 i 0,9999999999.

Al contrari de les funcions DateSerial o DateValue, en què els valors de data de sèrie resulten en dies relatius a una data fixada, podeu calcular-los amb els valors que es retornen amb la funció TimeValue però no podeu avaluar-los.

A la funció TimeSerial, podeu passar els paràmetres individuals (hora, minut, segon) com a expressions numèriques separades. Per a la funció TimeValue, en canvi, podeu passar una cadena com a paràmetre que conté l'hora.

Codis d'error

5 La crida al procediment no és vàlida

13 Els tipus de dades no coincideixen

Exemple:

Sub ExampleTimerValue

Dim daDT As Date

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

    a1 = "hora d'inici"

    b1 = "hora de finalització"

    c1 = "hora total"

    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