我是一个新手，想请教一个问题

Question

我的代码是这样的：
    Dim hour As Integer
Select Case hour
 Case hour >= 18
    Print "lin"
 Case hour >= 14
    Print "you"
End Select我没论怎样改变系统的时间都不能改变打印结果的，打印结果老是LIN。要如何才能把HOUR与系统时间挂上钩呀。请指导一下。

Answer 1

Hour是函数，不要定义同名变量
Select Case Hour(now)
 Case is >= 18
    Print "lin"
 Case is >= 14
    Print "you"
End Select

Answer 2

Dim ih As Integer
ih=cint(hour(time))
Select Case ih
    Case hour >= 18
        Print "lin"
    Case hour >= 14
        Print "you"
End Select

Answer 3

Select Case Hour(now)
Case is >= 18
Print "lin"
Case is >= 14
Print "you"
End Select

Answer 4

Select Case Hour(Now)
 Case 18 To 24
    MsgBox "lin"
 Case 14 To 24
    MsgBox "you"
End Select