简单问题，时间区间的判断

Question

想实现
如果8:00到12点启动程序msgbox "上午好"
13点到14点 msgbox "中午好"
15点18点 sgbox "下午好"怎么来判断时间区间来做出这样的提示呢？

Answer 1

Private Sub Form_Load()
    Label1.Caption = Now
End SubPrivate Sub Timer1_Timer()
    Call Form_Load
    Timer1.Interval = 1000
    If Hour(Now) > 8 And Hour(Now) < 12 Then
        Label2.Caption = "早上好"
    ElseIf Hour(Now) > 13 And Hour(Now) < 14 Then
        Label2.Caption = "中午好"
    Else
        Label2.Caption = "晚上好"
    End If
End Sub

Answer 2

谢谢jilong4(凹凹) 虽然程序没有通过但是意思明白了!如果我要判断分怎么办?比如现在是20:00到20:30现在是下班时间 20:31到21:00吃饭时间麻烦了~给个思想就行

Answer 3

Timer1.Interval 设置的小一点,就可以定时刷新了

Answer 4

如果我要判断分怎么办?If Minute(Now) > 30 Then
代码
Minute函数可以获取分钟,同时Second函数可以获得秒

Answer 5

Private Sub Form_Load()
Select Case Time
Case CDate("20:00") To CDate("20:30")
MsgBox "现在是下班时间 "
Case CDate("20:31") To CDate("21:00")
MsgBox "吃饭时间"
End Select
End Sub