IBM Lotus Symphony


Função TimeValue [Runtime]

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.

Sintaxe:

TimeValue (Text As String)

Valor de retorno:

Data

Parâmetros:

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.

Códigos de erro

5 Chamada de procedimento não válido

13 Disparidade ao escrever

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais