Question

在VB中如何使文本框中显示上午或下午

Answer 1

向窗体中添加文本框Text1,然后在Form_Load里写入一句代码即可实现（该方法简洁明了，意思就是如果返回的小时数小于12，那么Text1显示“上午”，否则就是“下午”）：
Private Sub Form_Load()
Text1.Text = IIf(Hour(Now) < 12, "上午", "下午")
End Sub

Answer 2

用time得到时间然后判断
Private Sub Form_Load()
If Hour(Time) < 12 Then Text1.Text = "上午：" & Time Else Text1 = "下午：" & Time
End Sub

下面的程序加个时间控件时间就可以自己跳动了
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Hour(Time) < 12 Then Text1.Text = "上午：" & Time Else Text1 = "下午：" & Time
End Sub

Answer 3

Text1 = Format(Now, "AMPM")