VB求助 时间设置问题

来源:百度知道 编辑:UC知道 时间:2024/06/04 21:28:19
Label5.Caption = Time

If Time > "0:00:00" And Time < "2:00:00" Then
Text2.Text = "主人,你怎么还不休息啊!"
End If

If Time > "2:00:00" And Time < "5:30:00" Then
Text2.Text = "主人,你失眠吗?有什么心事吗?"
End If

If Time > "5:30:00" And Time < "6:00:00" Then
Text2.Text = "主人,你起得真早!"
End If

If Time > "6:00:00" And Time < "9:30:00" Then
Text2.Text = "主人,早上好!"
End If

If Time > "11:30:00" And Time < "13:00:00" Then
Text2.Text = "主人,中午好!"
End If

If Time > "13:00:00" And Time < "13:40:00" Then
Text2.Text = "主人,现在可是休息时间哦,你应该好好休息的!"
End If

If Time > "15:00:00" And Time < "17:00:00" Then
Text2.Text = "主人,下午好!&qu

类型不对,要用CDate转换字符串的时间,如:

If Time > CDate("0:00:00") And Time < CDate("2:00:00") Then
Text2.Text = "主人,你怎么还不休息啊!"
End If

......

由于时间格式设置不一,建议使用Format函数对时间进行格式化