IBM Lotus Symphony


Função TimeValue [Tempo de Execução]

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.

Sintaxe:

TimeValue (Text As String)

Valores de Retorno:

Data

Parâmetros:

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.

Códigos de Erro

5 Chamada de procedimento inválida

13 Incompatibilidade de tipo

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


Feedback do Produto | Documentação Adicional | Marcas Registradas