IBM Lotus Symphony
|
Calcula un valor de hora serie para los parámetros de hora, minuto y segundo especificados que se hayan pasado como valores numéricos. También se puede usar este valor para calcular la diferencia entre dos horas.
TimeSerial (hora, minuto, segundo)
Fecha
hora: Cualquier expresión entera que indique la hora utilizada para determinar el valor de hora serie. Valores válidos: 0-23.
minuto: Cualquier expresión entera que indique el minuto de la hora utilizada para determinar el valor de hora serie. En general, se usan valores entre 0 y 59. Sin embargo, también se pueden usar valores que excedan este rango, en que el número de minutos afecta al valor de hora.
segundo: Cualquier expresión entera que indique el segundo de la hora utilizada para determinar el valor de hora serie. En general, se usan valores entre 0 y 59. Sin embargo, también se pueden usar valores que excedan este rango, en que el número de segundos afecta al valor de minuto.
Ejemplos:
12, -5, 45 se corresponde con 11, 55, 45
12, 61, 45 se corresponde con 13, 2, 45
12, 20, -2 se corresponde con 12, 19, 58
12, 20, 63 se corresponde con 12, 21, 4
La función TimeSerial se puede usar para convertir cualquier hora en un valor simple que se puede usar para calcular diferencias entre horas.
La función TimeSerial devuelve el tipo de datos Variante con VarType 7 (Fecha). Este valor se almacena internamente como número de precisión doble entre 0 y 0,9999999999. A diferencia de lo que ocurre con las funciones DateSerial o DateValue, en las que los valores de fecha serie se calculan como días relativos a una fecha fija, con los valores que devuelve la función TimeSerial se pueden realizar cálculos pero no evaluarlos.
En la función TimeValue puede pasarse una cadena como parámetro que contiene la hora. Sin embargo, en la función TimeSerial pueden pasarse los parámetros individuales (hora, minuto, segundo) como expresiones numéricas independientes.
Sub EjemploTimeSerial
Dim dFecha As Double, sFecha As String
dFecha = TimeSerial(8,30,15)
sFecha = TimeSerial(8,30,15)
MsgBox dFecha,64,"Tiempo como un número"
MsgBox sFecha,64,"Tiempo con formato"
End Sub