stopwatch.cls

来自「好用啊」· CLS 代码 · 共 38 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "stopwatch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Run  As Boolean
Public StartTime As Date
Public Endtime As Date
Public TimeSum As Single

    Public Sub Start()
        Run = True
        StartTime = Now
    End Sub
    Public Sub StopIt()
        If Run = False Then Exit Sub
        Run = False
        Endtime = Now
        TimeSum = TimeSum + (Endtime - StartTime)
    End Sub
    Public Sub Reset()
        Run = False
        TimeSum = 0 '
    End Sub
    Public Function GetTotalTime() As Single
        GetTotalTime = TimeSum
    End Function

Private Sub Class_Initialize()
    Run = False
    TimeSum = 0
End Sub