用VB做的迷你小时钟，要有进制转换的。急用，请帮忙啊

来源：百度知道 编辑：UC知道 时间：2024/06/26 05:28:15
有一个Timer三个label，分别表示日期（）、星期、时间。两个command分别表示结束、12小时制（二十四小时制）

Dim is12 As Boolean

Private Sub cmd12or24_Click()
cmd12or24.Caption = IIf(is12, "12进制", "24进制")
is12 = Not is12
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub Timer1_Timer()
lblDate.Caption = Date
lblWeek.Caption = WeekdayName(Weekday(Date))
If is12 Then
lblTime.Caption = Format(Time, "AM/PM hh:mm:ss")
Else
lblTime.Caption = Format(Time, "hh:mm:ss")
End If
End Sub

24小时制
format(date,"hh:mm:ss")

12小时制
format(date,"hh:mm:ss AM/PM")