TimeSerial (Función, Visual Basic)

Actualización: noviembre 2007

Devuelve un valor Date que representa una hora, minuto y segundo especificados, con la información de la fecha establecida en el día 1 de enero del año 1.

Public Function TimeSerial( _
   ByVal Hour As Integer, _
   ByVal Minute As Integer, _
   ByVal Second As Integer _
) As DateTime

Parámetros

• Hour
  Obligatorio. Expresión Integer comprendida entre 0 y 23. No obstante, también se aceptan valores que estén fuera de este intervalo.

• Minute
  Obligatorio. Expresión Integer comprendida entre 0 y 59. No obstante, también se aceptan valores que estén fuera de este intervalo. El valor de Minute se suma a la hora calculada, por lo que un valor negativo especifica unos minutos antes de dicha hora.

• Second
  Obligatorio. Expresión Integer comprendida entre 0 y 59. No obstante, también se aceptan valores que estén fuera de este intervalo. El valor de Second se suma al minuto calculado, por lo que un valor negativo especifica unos segundos antes de dicho minuto.

Excepciones

Consulte la columna "Número de error" si está actualizando aplicaciones de Visual Basic 6.0 que utilizan el control de errores no estructurado. (Se puede comparar el número de error con respecto a Number (Propiedad, objeto Err)). Sin embargo, siempre que sea posible, debe considerarse la posibilidad de sustituir dicho control de errores por Información general sobre el control estructurado de excepciones de Visual Basic.

Comentarios

El siguiente ejemplo muestra valores de argumento negativo, cero y positivo. La función TimeSerial devuelve una hora que representa 15 minutos antes de tres horas antes del mediodía, o 08:45:00 a.m.

Dim alarmTime As Date = TimeSerial(12 - 3, -15, 0)

Si Minute o Second excede su intervalo normal, se aplica a la siguiente unidad mayor, según corresponda. Por ejemplo, si se especifican 75 minutos, se evalúa como una hora y 15 minutos.

TimeSerial reduce el módulo total de segundos 86.400, que es el número de segundos que tiene un día. Por ello, el valor devuelto siempre está entre 00:00:00 y 23:59:59.

El tipo de datos Date incluye componentes de fecha. TimeSerial los establece todos en 1, de tal forma que el valor devuelto representa el primer día del año 1. Sin embargo, si los valores de los argumentos hacen que el tiempo calculado supere las 24 horas, el día se incrementa según sea necesario. En el ejemplo siguiente, los valores de Hour y Minute dan como resultado una hora combinada de más de 24 horas.

MsgBox(TimeSerial(23, 75, 0)) 
' The preceding statement displays "1/2/0001 12:15:00 AM".

Si los valores de los argumentos tienen como consecuencia una hora calculada negativa, la información de fecha se establece en 1/1/0001 y la información de hora se ajusta a un valor entre 00:00:00 y 23:59:59. Sin embargo, si la hora calculada es menor de 24 horas negativas, se produce un error ArgumentOutOfRangeException.

Dado que todos los valores Date se basan en una estructura System.DateTime, sus métodos proporcionan opciones adicionales para ensamblar un valor Date. Por ejemplo, puede emplear uno de los constructores DateTime sobrecargados para rellenar una variable Date que utilice la combinación deseada de componentes. El ejemplo siguiente establece newDateTime en 6 de mayo de 1978, una décima de segundo antes de las 8:30 de la mañana:

Dim newDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)

Ejemplo

En este ejemplo se utiliza la función TimeSerial para devolver un valor de tiempo para la hora, minuto y segundo especificados.

Dim thisTime As Date
thisTime = TimeSerial(16, 35, 17)

Requisitos

Espacio de nombres:Microsoft.VisualBasic

**Módulo:**DateAndTime

**Ensamblado:**Visual Basic Runtime Library (en Microsoft.VisualBasic.dll)

Vea también

Referencia

DateSerial (Función, Visual Basic)

DateValue (Función, Visual Basic)

Hour (Función, Visual Basic)

Minute (Función)

Now (Propiedad)

Second (Función, Visual Basic)

TimeValue (Función, Visual Basic)