例子代码：
Sub 宏1()
Dim h, s
h = Hour(Now)
If h < > s = ""
ElseIf h < > s = "早"
ElseIf h < > s = "中"
ElseIf h < > s = "晚"
End If
MsgBox s
End Sub
VBA判断时间的问题
Sub 宏1()
Dim h, s
h = Hour(Now)
If h < > s = ""
ElseIf h < > s = "早"
ElseIf h < > s = "中"
ElseIf h < > s = "晚"
End If
MsgBox s
End Sub
