vb 24/12时制转换

来源：百度知道 编辑：UC知道 时间：2024/06/17 04:49:16
点击 Option1 转换为12小时制
label1.caption 显示上午或者下午
点击Option2 转换为24小时制
在text1.text显示时间

需要用到时钟控件。。怎么做！！要解释 简单点的

'时钟控件为 Timer1
Private Sub Form_Load()
Timer1.Enabled = True: Timer1.Interval = 500 '设置定时器，每半秒更新一次
Option1.Caption = "12 时制": Option2.Caption = "24 时制"
Option1.Value = True '默认 12 时制
End Sub

Private Sub Timer1_Timer()
Dim H As Long, nStr As String

H = Format(Now, "hh") '取得小时
nStr = Format(Now, ":mm:ss") '取得分和秒
If H < 12 Then Label1.Caption = "上午" Else Label1.Caption = "下午"

If Option1.Value Then
If H > 12 Then H = H - 12 '12 时制
Else
If H < 12 Then H = H + 12 '24 时制
End If

Text1.Text = H & nStr
End Sub