VB计时器代码研究 我有代码 谁能稍微给我解释下

来源：百度知道 编辑：UC知道 时间：2024/05/24 23:54:10
Private Sub Timer1_Timer()
Dim XS, FZH, MS, XS1, FZH1, MS1
XTSJ = Now
XS = Hour(XTSJ)
FZH = Minute(XTSJ)
MS = Second(XTSJ)
MS = MS + 1
If MS > 59 Then
MS = 0
FZH = FZH + 1
End If
If FZH > 59 Then
FZH = 0
XS = XS + 1
End If
If XS > 23 And FZH = 59 Then
XS = 1
End If
If XS < 10 And FZH < 10 And MS < 10 Then
Label3.Caption = "0" & LTrim(Str(XS)) & ":0" & LTrim(Str(FZH)) & ":0" & LTrim(Str(MS))
ElseIf XS < 10 And FZH < 10 Then
Label3.Caption = "0" & LTrim(Str(XS)) & ":0" & LTrim(Str(FZH)) & ":" & LTrim(Str(MS))
ElseIf XS < 10 And MS < 10 Then
Label3.Caption = "0" & LTrim(Str(XS)) & ":" & LTrim(Str(FZH)) & ":0" & LTrim(Str(MS))
ElseIf XS < 10 Then
Label3.Caption = "0" & LTrim(Str(XS)) & ":" & LTrim(Str(FZH)) & ":" & L

真麻烦，用1个函数搞定的东西用得着写这么多代码？

Private Sub Timer1_Timer()
Label1 = Format(Time, "hh:mm:ss")
End Sub

先声明了XS, FZH, MS, XS1, FZH1, MS1
着几个变量关于这个LABLE 控件,再设定他的
XTSJ = Now 这表示现在时间.

知道的但没有时间啊。