Hour 函数
         根据 TimeSerial 函数或 TimeValue 函数生成的时间值返回小时。
      
      语法:
      
      返回值:
      整数
      参数:
               「数字」: 数字表达式,含有用于计算小时值的顺序时间值。
      此函数是「TimeSerial 函数的逆运算,根据「TimeSerial」或 TimeValue」函数生成的时间值返回表示小时的整数值。例如,表达式
      Print Hour(TimeSerial(12,30,41))
      返回值为 12。
      
      
      示例:
      
          Sub ExampleHour
          Print "现在的时间 (小时) 是 " & Hour( Now )
          End Sub