UC知道关于时间段在VB中的处理方式有疑问？
来源：百度知道 编辑：UC知道 时间：2024/09/22 15:47:02
本人现在打算做一个三班班次查询系统，其中想实现这样一个功能：
先建立一个MyLabel，然后：
晚上 11：00 到 第二天早上 8：30 在MyLabel上输出 零时班
早上 8：30 到 下午 4：45 在MyLabel上输出 日班
下午 4：45 到 晚上 11：00 输出 中班
这样的功能应该怎样实现，估计要用上返回系统时间吧，希望好心人能告知，谢谢！！
先建立一个MyLabel，然后：
晚上 11：00 到 第二天早上 8：30 在MyLabel上输出 零时班
早上 8：30 到 下午 4：45 在MyLabel上输出 日班
下午 4：45 到 晚上 11：00 输出 中班
这样的功能应该怎样实现，估计要用上返回系统时间吧，希望好心人能告知，谢谢！！
在窗体添加一个Timer1控件，项目是实现代码：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim XS As Integer, FZ As Integer
XS = Hour(Now)
FZ = Minute(Now)
If XS >= 23 Or XS <= 8 Then
MyLabel.Caption = "零时班"
If XS = 8 And FZ > 30 Then
MyLabel.Caption = "日班"
End If
ElseIf XS >= 8 Or XS <= 16 Then
MyLabel.Caption = "日班"
If XS = 8 And FZ <= 30 Then
MyLabel.Caption = "零时班"
End If
If XS = 16 And FZ >= 45 Then
MyLabel.Caption = "中班"
End If
ElseIf XS >= 16 Or XS < 23 Then
MyLabel.Caption = "中班"
If XS = 16 And FZ < 45 Then
MyLabel.Caption = "日班"
End If
End If
End Sub
Minute(Now)返加分钟
Hour(Now)返回小时
这两个就要了