IBM Lotus Symphony
|
Calcula um valor de hora de série a partir dos parâmetros de hora, minuto e segundo especificados transmitidos como sequências, que representam a hora em um único valor numérico. Esse valor pode ser usado para calcular a diferença entre as horas.
TimeValue (Text As String)
Data
Text: Qualquer expressão de sequência que contenha a hora que você deseja calcular no formato "HH:MM:SS".
Use a função TimeValue para converter qualquer hora em um único valor, de forma que você possa calcular as diferenças de hora.
Essa função TimeValue retorna o tipo Variante com VarType 7 (Data) e armazena esse valor internamente como um número de precisão dupla entre 0 e 0.9999999999.
Ao contrário da função DateSerial ou DateValue, em que os valores de data de série resultam em dias relativos a uma data fixa, é possível calcular com o valores retornados pela função TimeValue, porém não pode avaliá-los.
Na função TimeSerial, é possível transmitir os parâmetros individuais (hora, minuto, segundo) como expressões numéricas separadas. Entretanto, para a função TimeValue, é possível transmitir uma sequência como uma parâmetro que contenha 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