Hour Function
Returns a whole number between 0 and 23, inclusive, representing the hour of the day.
Hour(time)
Remarks
The time argument is any expression that can represent a time. If time contains Null, Null is returned.
The following example uses the Hour function to obtain the hour from the current time:
Dim MyTime, MyHour
MyTime = Now
MyHour = Hour(MyTime) ' MyHour contains the number representing
' the current hour.