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