IBM Lotus Symphony
|
Calcula um valor de tempo serial para os parâmetros de hora, minuto e segundo especificados que são transmitidos como valor numérico. É possível usar esse valor para calcular a diferença entre os tempos.
TimeSerial (hour, minute, second)
Data
hour: Qualquer expressão inteira que indica a hora do tempo usado para determinar o valor do tempo serial. Valores válidos: 0 a 23.
minute: Qualquer expressão inteira que indica o minuto do tempo usado para determinar o valor do tempo serial. Em geral, use os valores entre 0 e 59. Entretanto, é possível também usar os valores que estejam fora desse intervalo, em que o número de minutos influencia o valor da hora.
second: Qualquer expressão inteira que indica o segundo do tempo usado para determinar o valor do tempo serial. Em geral, é possível usar valores entre 0 e 59. Entretanto, é possível também usar os valores que estejam fora desse intervalo, em que o número de segundos influencia o valor do minuto.
Exemplos:
12, -5, 45 corresponde a 11, 55, 45
12, 61, 45 corresponde a 13, 2, 45
12, 20, -2 corresponde a 12, 19, 58
12, 20, 63 corresponde a 12, 21, 4
É possível usar a função TimeSerial para converter qualquer hora em um valor único que possa usar para calcular as diferenças de tempo.
A função TimeSerial retorna o tipo Variante com VarType 7 (Date). Esse valor é armazenado internamente como um número de dupla precisão entre 0 e 0.9999999999. Ao contrário da função DateSerial ou DateValue, em que os valores de data serial são calculados como dias relativos a uma data fixa, é possível calcular com os valores retornados pela função TimeSerial, porém não pode avaliá-los. Na função TimeValue, é possível transmitir uma sequência como uma parâmetro que contenha o tempo. No entanto, para a função TimeSerial, é possível transmitir os parâmetros individuais (hour, minute, second) como expressões numéricas separadas.
Na função TimeValue, é possível transmitir uma sequência como uma parâmetro que contenha a hora. No entanto, para a função TimeSerial, é possível transmitir os parâmetros individuais (hour, minute, second) como expressões numéricas separadas.
Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
dDate = TimeSerial(8,30,15)
sDate = TimeSerial(8,30,15)
MsgBox dDate,64,"Time as a number"
MsgBox sDate,64,"Formatted time"
End Sub