Contenido
La función Hour en VBA es utilizada para obtener la parte correspondiente a la hora de un valor de tipo Date. Esta devuelve un entero que representa la hora de dicho valor, de 0 (12:00 A.M.) a 23 (11:00 P.M.).
Aquí tienes un ejemplo de cómo usar la función Hour:
Sub EjemploHora()
' Obtener la fecha y hora actual
Dim fechaActual As Date
fechaActual = Now
' Extraer la hora de la fecha actual
Dim horaActual As Integer
horaActual = Hour(fechaActual)
' Mostrar la hora en una ventana de mensaje
MsgBox "La hora actual es: " & horaActual
End Sub
En este ejemplo tienes un procedimiento subrutina en VBA llamado EjemploHora, que obtiene la fecha y la hora actual usando la función Now, luego extrae la hora de esa fecha y la asigna a la variable horaActual. Por último, muestra la hora actual en una ventana de mensaje.
Recuerda que la función Hour solo devuelve la hora. Si también necesitas los minutos y los segundos, deberías usar las funciones Minute y Second, respectivamente.
Aquí puedes ver cómo obtener la hora completa (hora, minutos y segundos):
Sub EjemploHoraCompleta()
' Obtener la fecha y hora actual
Dim fechaActual As Date
fechaActual = Now
' Extraer la hora, minutos y segundos de la fecha actual
Dim horaActual As Integer
Dim minutoActual As Integer
Dim segundoActual As Integer
horaActual = Hour(fechaActual)
minutoActual = Minute(fechaActual)
segundoActual = Second(fechaActual)
' Mostrar la hora completa en una ventana de mensaje
MsgBox "La hora actual es: " & horaActual & ":" & minutoActual & ":" & segundoActual
End Sub
Cuando ejecutas el macro EjemploHoraCompleta, te mostrará la hora completa con la estructura «hora:minutos:segundos».