VB timer控制显示当前时间 并自动刷新，我写的哪错了

来源：百度知道 编辑：UC知道 时间：2024/07/05 06:10:11
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim timey, timem, timed, timeh, timemi, i As String
Dim tim As Integer

timey = CStr(Year(Now))
timem = CStr(Month(Now))
timed = CStr(Day(Now))
timeh = CStr(Hour(Now))
timemi = CStr(Minute(Now))

If Val(timeh) > 12 Then i = "PM"
tim = Val(timeh) - 12
Else
i = "AM"
End If

Label1.Caption = "现在的时间是：" & timey & "年" & timem & "月" & timed & "日" & i & (CStr(tim)) & "时" & timemi & "分"

End Sub

Private Sub Form_Load()
Timer1.Interval = 1000 '这个改成995 有一定缓冲时间
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim timey, timem, timed, timeh, timemi, i As String
Dim tim As Integer

timey = CStr(Year(Now))
timem = CStr(Month(Now))
timed = CStr(Day(Now))
timeh = CStr(Hour(Now))
timemi = CStr(Minute(Now))

If Val(timeh) > 12 Then
i = "PM"
tim = Val(timeh) - 12
Else
i = "AM"
End If

Label1.Caption = "现在的时间是：" & timey & "年" & timem & "月" & timed & "日" & i & (CStr(tim)) & "时" & timemi & "分"

End Sub

另外帖上一个源代码供你参考
============================================

Private Sub Form_Load()
Me.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 星期" & GetWD(Weekday(Date)) & " 系统时间" & For