Função TimeValue

Calcula um valor de tempo em série a partir da hora, minuto e segundo especificados - parâmetros transferidos como cadeias e que representam a hora num valor numérico único. Este valor pode ser utilizado para calcular a diferença entre horas.

Sintaxe:


TimeValue (Text As String)

Valor de retorno:

Data

Parâmetros:

Texto: qualquer expressão em caracteres que contenha a hora que pretende calcular no formato "HH:MM:SS".

Utilize a função TimeValue para converter qualquer hora num só valor, para que possa calcular as diferenças da hora.

A função TimeValue devolve o tipo Variante com VarType 7 (Data), e armazena este valor internamente como um número de precisão dupla entre 0 e 0.9999999999.

Ao contrário das funções DateSerial e DateValue, em que os valores de data em série resultam em dias relativos a uma data fixa, pode calcular com os valores devolvidos pela função TimeValue, mas não os pode avaliar.

Na função TimeSerial, pode transferir parâmetros individuais (hora, minuto, segundo) como expressões numéricas separadas. No entanto, na função TimeValue, é possível transferir uma cadeia como um parâmetro que contém a hora.

Códigos de erro

5 Chamada de procedimento inválido

13 Disparidade no tipo de dados

Exemplo:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "hora de início"
    b1 = "hora de finalização"
    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

Necessitamos da sua ajuda!