Question

大神，高分求一个计时器代码

大神，我完全不懂代码，我的论坛要做一个计时器，以纪念德甲汉堡队从德甲创立时到如今共走过了X年X月X日X时X分X秒 谢谢大神

我的邮箱2191935657@qq.co删除掉m

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏100（财富值+成长值）

Answer 1

Private sss As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10

Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
sss = sss + 1
hh = Format(Int(sss / 360000), "00")
mm = Format(Int((sss - 360000 * hh) / 6000), "00")
ss = sss Mod 6000
Label1.Caption = hh & ":" & mm & ":" & Format(sss / 100, "00.00")
End Sub