Compartir a través de


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.