关于VB中的时间问题

[樱桃小丸子0_0]

用VB写一个显示时间的界面，用12小时制，附加两个radiobutton am 和 pm 来表示上午还是下午，怎样实现选中am或pm，让其与现实时间对应？

[zhuhuofong]

Private Sub Form_Load()
Show
Print Time
End Sub

Private Sub Timer1_Timer()
If Option1.Value = False Then
Cls
Show

Print Format(Time, "hh:nn:ss AM/PM")
Else
Show
Print Time
End If
End Sub

[zhuhuofong]

向窗体添加两个optionbutton控件和一个timer控件

[SYSSZ]

'上午就显示上午,'下午就显示下午
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Form1.Caption = Format(Now, "YYYY-MM-DD hh:mm:ss AMPM")
End Sub