IBM Lotus Symphony
|
Calcula um valor de tempo em série a partir da hora, minuto e segundo especificados - parâmetros transferidos como cadeias - que representam a hora num valor numérico único. Este valor pode ser utilizado para calcular a diferença entre horas.
TimeValue (Text As String)
Data
Text: 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.
Esta função TimeValue devolve o tipo Variant 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 da função DateSerial ou DateValue, onde 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 é possível avaliá-los.
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 = "start time"
b1 = "end time"
c1 = "total time"
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