Module
Contents
Index 🔎︎

# 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. Este 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.

Esta funció TimeValue torna la variant de tipus amb VarType 7 (Data), i emmagatzema este 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