Module
Contents
Index 🔎︎

# TimeValue Function

Calcula un valor d'hora serie a partir de la hora, minutu y segundos especificaos (parámetros que se pasen como cadenes) y que representa la hora nun valor numbéricu simple. Esti valor pue usase pa calcular la diferencia ente dos hores.

## Sintaxis:

    TimeValue (Testu As String)

## Valor de torna:

Fecha

## Parámetros:

Testu: Cualquier espresión de cadena que contenga la hora que se deseya calcular nel formatu "HH:MM:SS".

Con esta función pue convertise cualquier hora nun valor simple, pa calcular diferencies ente hores.

Esta función TimeValue devuelve'l tipu Variante con VarType 7 (Data), y almacena esti valor internamente como númberu de precisión doble ente 0 y 0,9999999999.

A diferencia de lo qu'asocede coles funciones DateSerial o DateValue, nes que los valores de fecha serie producen díes relativos a una fecha fixa, colos valores que devuelve la función TimeValue puen realizase cálculu pero nun evalualos.

Na función TimeSerial puen pasase parámetros individuales (hora, minutu, segundu) como espresiones numbériques independientes. Sicasí, pa la función TimeValue pue pasase una cadena como parámetru que contién la hora.

## Error codes:

5 Llamada a procedimientu non válida

13 Discordancia de tipu

## Exemplu:

    Sub ExampleTimerValue

    Dim daDT As Date

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

        a1 = "hora inicial"

        b1 = "hora final"

        c1 = "tiempu 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