Módulo
Conteúdo
Índice 🔎︎

# Função TimeValue

Calcula um valor de hora serial a partir da hora, minuto e segundo especificados - parâmetros passados como strings - que representam o horário em um único valor numérico. Este valor pode ser usado para calcular a diferença entre intervalos de tempo.

## Sintaxe:

    TimeValue (Text As String)

## Valor de retorno:

Data

## Parâmetros:

Text: qualquer expressão de cadeia de caracteres que contenha o tempo que você deseja calcular no formato "HH:MM:SS".

Com esta função, você pode converter qualquer tempo em um único valor, com o qual poderá calcular as diferenças de tempo.

A função TimeValue retorna o tipo Variant com VarType 7 (Date) e armazena esse valor internamente como um número de dupla precisão entre 0 e 0,9999999999.

Ao contrário das funções DateSerial ou DateValue, nas quais os valores de data serial resultam em dias relativos a uma data fixa, você pode efetuar cálculos com os valores retornados pela função TimeValue mas não pode avaliá-los.

Na função TimeSerial, você pode passar parâmetros individuais (hora, minuto, segundo) como expressões numéricas separadas. No caso da função TimeValue, entretanto, você pode passar uma cadeia de caracteres como um parâmetro que contém o tempo.

## Códigos de erro:

5 Chamada de procedimento inválida

13 Tipo de dados incompatível

## Exemplo:

    Sub ExampleTimerValue

    Dim daDT As Date

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

        a1 = "hora inicial"

        b1 = "hora final"

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