如何判断时间是上午还是下午?

Question

有没有判断上午和下午的时间函数?
谢谢!!

Answer 1

Dim d
d = Format(Now, "AMPM")
Print d

Answer 2

用time取当前时间
再判该时间是否在12点之前就可以了

Answer 3

找了找以前做的代码,找到这一段,看看适用否!
三个label,一个timer/时间间隔任意,我取100Private Sub Timer1_Timer()
a = Hour(Time)
b = Minute(Time)
c = Second(Time)
e = CStr(a)
f = CStr(b)
g = CStr(c)
Label1.Caption = e + "时" + f + "分" + g + "秒"
If e = 0 Then
Label1.Caption = "凌晨" + f + "分" + g + "秒"
End If
If Hour(Time) >= 0 And Hour(Time) <= 11 Then
Label2.Caption = "上午(AM)"
ElseIf Hour(Time) >= 12 And Hour(Time) < 24 Then
Label2.Caption = "下午(PM)"
End If
Label3.Caption = Time
End Sub

Answer 4

Private Sub Command1_Click()
    If Right(Format(Now, "hh:mm:ss AMPM"), 2) = "AM" Then
        MsgBox "上午", vbOKOnly, "程序提示"
    Else
        MsgBox "下午", vbOKOnly, "程序提示"
    End If
End Sub