Die Funktion VBA Hour gibt eine Ganzzahl zurück, die der Stunde des angegebenen Datums oder der angegebenen Uhrzeit entspricht.
Hour(date_hour)
Verwenden der Funktion Hour, um die relevanten Zeitinformationen abzurufen:
Sub HourExample1() myHour = #6:36:45 PM# MsgBox Hour(myHour) 'Rückgabe: 18 End Sub
Oder nach Datum und Uhrzeit (für das gleiche Ergebnis):
Sub HourExample2() myDate = #10/31/2020 6:36:45 PM# MsgBox Hour(myDate) 'Rückgabe: 18 End Sub
Diese Funktion akzeptiert auch eine Uhrzeit oder ein Datum mit Uhrzeit im Textformat:
Sub HourExample3() myDate = "31.10.2020 18:36:45" MsgBox Hour(myDate) 'Rückgabe: 18 End Sub