开始控制的时候有点难,不会弄,如何开始将三个记时器都置零,还望高手指教.本人只能做到最简单的,惭愧.
Option Explicit
Dim T1 As Date
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer2.Enabled = False
End Sub
Private Sub Command4_Click()
Timer3.Enabled = False
End Sub
Private Sub Form_Load()
T1 = Time()
Text1 = T1
End Sub
Private Sub Timer1_Timer()
Dim hh As Long
Dim mm As Long
Dim ss As Long
Dim mTs As Date
mTs = Time()
hh = DateDiff("h", T1, mTs)
mm = DateDiff("n", T1, mTs)
ss = DateDiff("s", T1, mTs)
Label3.Caption = Format(hh & ":" & mm & ":" & ss, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
Dim hh As Long
Dim mm As Long
Dim ss As Long
Dim mTs As Date
mTs = Time()
hh = DateDiff("h", T1, mTs)
mm = DateDiff("n", T1, mTs)
ss = DateDiff("s", T1, mTs)
Label2.Caption = Format(hh & ":" & mm & ":" & ss, "hh:mm:ss")
End Sub
Private Sub Timer3_Timer()
Dim hh As Long
Dim mm As Long
Dim ss As Long
Dim mTs As Date
mTs = Time()
hh = DateDiff("h", T1, mTs)
mm = DateDiff("n", T1, mTs)
ss = DateDiff("s", T1, mTs)
Label1.Caption = Format(hh & ":" & mm & ":" & ss, "hh:mm:ss")
End Sub
Private Sub 开始记时_Click()
End Sub