Hour(time) returns Variant/Integer between 0 and 23, inclusive, representing the hour for time
Sub dateDemo6() Debug.Print Hour(Date) End Sub