关于秒表

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim STARTTIME As Long

Private Sub Command1_Click()
STARTTIME = timeGetTime
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Label1.Caption = mytime(0)
Timer1.Interval = 1
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = mytime(timeGetTime - STARTTIME)
End Sub
Function mytime(ByVal thetime As Long) As String
mytime = Format(thetime Mod 1000, "000")
thetime = thetime / 1000
mytime = Format(TimeSerial(0, 0, thetime), "HH:MM:SS") & ":" & mytime
End Function

需要注意的是,TIMER控件实现的秒表精度只有55毫秒!