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

13899971660 2004-09-25 07:05:28

想实现
如果8:00到12点启动程序msgbox "上午好"
13点到14点 msgbox "中午好"
15点18点 sgbox "下午好"

怎么来判断时间区间来做出这样的提示呢？

...全文

130 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2004-09-25

打赏
举报

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

cso 2004-09-25

打赏
举报

如果我要判断分怎么办?

If Minute(Now) > 30 Then
代码

Minute函数可以获取分钟,同时Second函数可以获得秒

jilong4 2004-09-25

打赏
举报

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

13899971660 2004-09-25

打赏
举报

谢谢jilong4(凹凹) 虽然程序没有通过但是意思明白了!

如果我要判断分怎么办?比如现在是20:00到20:30现在是下班时间 20:31到21:00吃饭时间

麻烦了~给个思想就行

jilong4 2004-09-25

打赏
举报

Private Sub Form_Load()
Label1.Caption = Now
End Sub

Private 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