VBA Formato de Tiempo/Hora

Este tutorial demostrará cómo utilizar la función Format de VBA para dar formato a la hora.

Función Format y Hora

Formatear la Hora en VBA con Formatos Predefinidos

La función Format de VBA puede ser utilizada para convertir un número en una cadena con un formato predefinido. Los formatos disponibles para el tiempo son long time, medium time, y short time.

Sub Ejemplo1_Formatear_Hora()
    Dim DateEx As Date
    
    DateEx = #4/18/2020 6:05:07 PM#
    MsgBox Format(DateEx, "Long Time")      'Resultado: 6:05:07 PM
    MsgBox Format(DateEx, "Medium Time")    'Resultado: 06:05 PM
    MsgBox Format(DateEx, "Short Time")     'Resultado: 18:05
    
    DateEx = #2/18/2021 6:05:07 AM#
    MsgBox Format(DateEx, "Long Time")      'Resultado: 6:05:07 AM
    MsgBox Format(DateEx, "Medium Time")    'Resultado: 06:05 AM
    MsgBox Format(DateEx, "Short Time")     'Resultado: 06:05

End Sub

Formatear la Hora en VBA con Formatos Personalizados

La función VBA Formato puede utilizarse para convertir un número en una cadena con formatos personalizados. Los símbolos h y hh se utilizan para las horas, n y nn para los minutos, s y ss para los segundos, ttttt para la hora completa según la configuración del sistema y AM/PM, am/pm, A/P, a/p, AMPM para el sistema am-pm.

Sub Ejemplo2_Formatear_Hora()
    Dim DateEx As Date
    DateEx = #4/18/2020 6:05:07 PM#
    
    MsgBox Format(DateEx, "hh:nn:ss")     'Resultado: 18:05:07
    MsgBox Format(DateEx, "h:n:s AM/PM")  'Resultado: 6:5:7 PM
    
    MsgBox Format(DateEx, "h")             'Resultado: 18
    MsgBox Format(DateEx, "hh")            'Resultado: 18
    MsgBox Format(DateEx, "h:n")           'Resultado: 18:5
    MsgBox Format(DateEx, "hh:nn")         'Resultado: 18:05
    MsgBox Format(DateEx, "hh:nn:s")       'Resultado: 18:05:7
    MsgBox Format(DateEx, "hh:nn:ss")      'Resultado: 18:05:07
    
    MsgBox Format(DateEx, "\H\o\r\a\ \e\s\:\ hh:nn:ss")
    'Resultado: Hora es: 18:05:07
End Sub