Contenido
En VBA (Visual Basic for Applications), la función Time se utiliza para obtener la hora actual del sistema. Esta función devuelve un valor de tipo Variant con un subtipo Date que representa la hora actual del día en formato de horas, minutos y segundos.
Ejemplo
Sub DisplayCurrentTime()
' Declaramos una variable para almacenar la hora actual
Dim currentTime As Variant
' Obtenemos la hora actual usando la función Time
currentTime = Time
' Mostramos la hora actual en un cuadro de mensaje
MsgBox "La hora actual es: " & currentTime
End Sub
Al ejecutar este subprocedimiento, se mostrará un cuadro de mensaje mostrando la hora actual.
Además, si quieres manipular solo partes específicas de la hora actual, puedes utilizar las funciones Hour, Minute y Second para obtener la hora, minutos y segundos actuales, respectivamente. Aquí te muestro un ejemplo:
Sub DisplayPartsOfTime()
' Obtener y mostrar la hora actual
MsgBox "Hora actual: " & Hour(Time)
' Obtener y mostrar los minutos actuales
MsgBox "Minutos actuales: " & Minute(Time)
' Obtener y mostrar los segundos actuales
MsgBox "Segundos actuales: " & Second(Time)
End Sub
Al ejecutar este subprocedimiento, se mostrarán tres cuadros de mensaje sucesivamente, cada uno mostrando la hora, los minutos y los segundos actuales.
Recuerda que estas funciones devuelven la hora del sistema, por lo tanto, si la hora del sistema esta configurada incorrectamente, los valores que devuelva estarán igualmente incorrectos.