Función TimeSerial
Devuelve una Variant (Date) que contiene la hora para una hora, minuto y segundo específicos.
Sintaxis
TimeSerial(hour, minute, second)
La sintaxis de función TimeSerial tiene estos argumentos con nombre:
| Parte | Descripción |
|---|---|
| hour | Obligatorio; Variant (Integer). Número comprendido entre 0 (12:00 a.m.) y 23 (11:00 p.m.), incluidos, o una expresión numérica. |
| minute | Obligatorio; Variant (Integer). Cualquier expresión numérica. |
| second | Obligatorio; Variant (Integer). Cualquier expresión numérica. |
Comentarios
Para especificar una hora, como 11:59:59, el rango de números para cada argumento de TimeSerial debería estar en el rango normal para la unidad; es decir, 0–23 para horas y 0–59 para minutos y segundos. Sin embargo, también puede especificar horas relativas para cada argumento mediante cualquier expresión numérica que represente algún número de horas, minutos o segundos antes o después de un tiempo determinado.
El siguiente ejemplo usa expresiones en lugar de números de hora absoluto. La función TimeSerial devuelve una hora durante 15 minutos antes de (-15) seis horas antes del mediodía (12 - 6) o a las 5:45:00 A.M.
TimeSerial(12 - 6, -15, 0)
Cuando cualquier argumento supera el rango normal para dicho argumento, incrementa a la siguiente unidad mayor según sea adecuado. Por ejemplo, si especifica 75 minutos, se evalúa como una hora y 15 minutos. Si cualquier argumento único se encuentra fuera del rango -32,768 a 32,767, se produce un error. Si la hora especificada por los tres argumentos hace que la fecha se encuentre fuera del rango aceptable de fecha, se produce un error.
Ejemplo:
Este ejemplo usa la función TimeSerial para devolver una hora para la hora, minutos y segundo especificados.
Dim MyTime
MyTime = TimeSerial(16, 35, 17) ' MyTime contains serial
' representation of 4:35:17 PM.
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.