Funci贸n TimeSerial

Calcula un valor de hora en serie para os par谩metros da hora, minuto e segundo especificados pasados como valor num茅rico. Pode usar este valor para calcular a diferenza entre horas.

Sintaxe:


TimeSerial (hora, minuto, segundo)

Valor de retorno:

Data

Par谩metros:

hour: Any integer expression that indicates the hour of the time that is used to determine the serial time value. Valid values: 0-23.

minute: Any integer expression that indicates the minute of the time that is used to determine the serial time value. In general, use values between 0 and 59. However, you can also use values that lie outside of this range, where the number of minutes influence the hour value.

second: Any integer expression that indicates the second of the time that is used to determine the serial time value. In general, you can use values between 0 and 59. However, you can also use values that lie outside of this range, where the number seconds influences the minute value.

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

Use a funci贸n TimeSerial para converter calquera hora nun 煤nico valor que pode usar para calcular diferenzas entre horas.

A funci贸n TimeSerial devolve o tipo Variante con VarType 7 (Data). Este valor almac茅nase internamente como un n煤mero de dupla precisi贸n entre 0 e 0,9999999999. Ao contrario das funci贸ns DateSerial ou DateValue, onde os valores de data en serie se calculan como d铆as relativos a unha data fixa, pode efectuar c谩lculos cos valores devoltos pola funci贸n TimeSerial, mais non pode avalialos.

Na funci贸n TimeValue, pode pasar unha cadea como un par谩metro que cont茅n a hora. Na funci贸n TimeSerial, no entanto, pode pasar os par谩metros individuais (hora, minuto,segundo) como expresi贸ns num茅ricas separadas.

C贸digos de erro

5 Chamada de procedemento incorrecta

Exemplo:


Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dData,64,"Hora como numero"
    MsgBox sData,64,"Hora con formato"
End Sub

Precisamos da s煤a axuda!