La fonction VBA Hour renvoie un entier correspondant à l'heure de la date ou de l'heure spécifiée.
Heure(date_heure)
Utilisation de la fonction Hour pour obtenir les informations temporelles pertinentes :
Sub HourExample1()
myHour = #6:36:45 PM#
MsgBox Hour(myHour) 'Retours: 18
End Sub
Ou par date et heure (pour le même résultat) :
Sub HourExample2()
myDate = #10/31/2020 6:36:45 PM#
MsgBox Hour(myDate) 'Retours: 18
End Sub
Cette fonction accepte également une heure ou une date avec l'heure au format texte :
Sub HourExample3()
myDate = "31/10/2020 18:36:45"
MsgBox Hour(myDate) 'Retours: 18
End Sub