请问:为什么我取不到这个函数正确的返回值(超级菜问题)

Question

up && 加分
这么菜的问题没人会吗,我今天头痛死了

Answer 1

Public Function TimeC() As Integer
  Dim time As Integer
  time = Hour(Now)
  Select Case time
    Case 0 to 6
      TimeC = 0
    Case 7 to 8
      TimeC = 1
    Case 9 to 12
      TimeC = 2
    Case 13 to 16
      TimeC = 3
    Case 17 to 19
      TimeC = 4
    Case is > 19
      TimeC = 5
  End Select
End Function

Answer 2

同意，要不然就写if then elseif ... end if

Answer 3

同意ltpao(啊炮)
还可以这么写
Public Function TimeC() As Integer
  Dim timenow As Integer
  timenow = Hour(Now)
  Select Case timenow
    Case 0, 1, 2, 3, 4, 5, 6
      TimeC = 0
    Case 7, 8
      TimeC = 1
    Case 9, 10, 11, 12
      TimeC = 2
    Case 13, 14, 15, 16
      TimeC = 3
    Case 17, 18, 19
      TimeC = 4
    Case Else
      TimeC = 5
  End Select
End Function