返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时。
Hour(time)
time 参数是任意可以代表时间的表达式。如果 time 参数中包含 Null，则返回 Null。
下面的示例利用 Hour 函数得到当前时间的小时：
Dim MyTime, MyHourMyTime = NowMyHour = Hour(MyTime) ‘ MyHour 包含代表当前时间的数值。原文：http://www.jb51.net/article/4615.htm