Ajuda do LibreOffice 24.8
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.
TimeValue (Texto As String)
Data
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.
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