用VB实现计时器
Option Explicit
Dim startime As Variant
Dim passtime As Variant
Dim endtime As Variant
Dim msec As Variant
Dim sec As Variant
Dim mn As Variant
_____________________________________________________
Private Sub Cmdstar_Click()
startime = Now
Lbl4.Caption = Format(startime, "hh:mm:ss ampm")
Lbl5.Caption = ""
Cmdstar.Enabled = False
Cmdstop.Enabled = True
timTimeshow.Enabled = True
msec = 0
sec = 0
mn = 0
End Sub
_____________________________________________________
Private Sub Cmdstop_Click()
endtime = Now
Lbl5.Caption = Format(endtime, "hh:mm:ss ampm")
Cmdstar.Enabled = True
Cmdstop.Enabled = False
timTimeshow.Enabled = False
msec = 0
sec = 0
mn = 0
End Sub
_____________________________________________________
Private Sub timTimeshow_Timer()
Dim h As String
msec = msec + 1
If msec = 60 Then
msec = 0
sec = sec + 1
End If
If sec = 60 Then
sec = 0
mn = mn + 1
End If
If mn >= 60 Then
mn = 0
End If
If sec < 10 Then
lblTime.Caption = "0" & mn & ":0" & sec & ":" & msec
End If
If mn < 10 Then
lblTime.Caption = "0" & mn & ":0" & sec & ":" & msec
End If
'passtime = mn & ":" & sec & ":" & msec
'lblTime.Caption = Format(passtime, "hh:mm:ss")
End Sub