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
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函数对时间进行格式化