【Excel VBA编程】VBA的时间管家Timer大揭秘,以及如何使用它

2.1Userform设计及代码

主要完成的功能：初始化及善后清理工作，并对用户点击按钮进行响应，以“开始”和“暂停”按钮加以说明

开始按钮：按下“开始”键时，会进入到Private Sub StartTimer()，记录当前时间并保存到变量 startTime 中，具体通过 startTime = Timer 这行代码实现。例如，12:33分按下“开始”按钮，那么startTime变量里面存储的内容如下图所示

看到这一串数值是不是脑袋瓜子嗡嗡的？和传统意义上的时间完全不对等呢？其实，Timer返回的是从午夜（00:00:00）开始到当前时刻（12:33）的秒数 ，顺着这个思路我们进行计算：

45201刚好等于12×3600+33*60+21，即12点33分21秒

暂停按钮：则需要记录从计时开始到按下暂停按钮之间经过的秒数，保存在elapsedTime中。这样，后续点击“继续”按钮时，计时器就能在之前累计的时间基础上接着计时，而不会从0开始

' 在UserForm模块顶部声明变量Private nextTick As DoublePrivate timerEnabled As BooleanPrivate Sub UserForm_Initialize()    ' 初始化变量和界面    elapsedTime = 0    isRunning = False    timerEnabled = False    lblTimer.Caption = "00:00:00"    cmdStartPause.Caption = "开始"End SubPrivate Sub cmdStartPause_Click()    If Not timerEnabled Then        ' 第一次开始计时        StartTimer        cmdStartPause.Caption = "暂停"    ElseIf isRunning Then        ' 正在运行，点击则暂停        PauseTimer        cmdStartPause.Caption = "继续"    Else        ' 已暂停，点击则继续        ResumeTimer        cmdStartPause.Caption = "暂停"    End IfEnd SubPrivate Sub cmdReset_Click()    ' 重置计时器    ResetTimerEnd SubPrivate Sub StartTimer()    ' 开始计时    startTime = Timer    isRunning = True    timerEnabled = True    ' 安排第一次更新    ScheduleNextTickEnd SubPrivate Sub PauseTimer()    ' 暂停计时    If isRunning Then        ' 计算经过的时间并累加到总时间        elapsedTime = elapsedTime + (Timer - startTime)        isRunning = False        ' 取消预定的下一次更新        On Error Resume Next ' 防止没有预定任务时报错        Application.OnTime nextTick, "UpdateTimerDisplay", , False        On Error GoTo 0    End IfEnd SubPrivate Sub ResumeTimer()    ' 继续计时    If Not isRunning Then        startTime = Timer        isRunning = True        ScheduleNextTick    End IfEnd SubPrivate Sub ResetTimer()    ' 重置计时器    isRunning = False    timerEnabled = False    ' 取消预定的下一次更新    On Error Resume Next    Application.OnTime nextTick, "UpdateTimerDisplay", , False    On Error GoTo 0    elapsedTime = 0    lblTimer.Caption = "00:00:00"    cmdStartPause.Caption = "开始"End SubPrivate Sub ScheduleNextTick()    ' 安排1秒后更新    nextTick = Now + TimeValue("00:00:01")    Application.OnTime nextTick, "UpdateTimerDisplay"End SubPrivate Sub UserForm_Terminate()    ' UserForm关闭时清理预定的任务    On Error Resume Next    Application.OnTime nextTick, "UpdateTimerDisplay", , False    On Error GoTo 0End SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    If CloseMode = vbFormControlMenu And isRunning = False Then '停止计时可关闭        Cancel = False    Else        ' 计时器未停止，禁止点击右上角“X”关闭窗体        MsgBox "请停止计时器后，再关闭", vbInformation        Cancel = True    End IfEnd Sub

' 在标准模块中声明公共变量（与UserForm共享状态）Public ufTimer As Object ' 改为Object类型避免循环引用Public nextTick As DoublePublic startTime As DoublePublic elapsedTime As DoublePublic isRunning As BooleanSub ShowTimerForm()    Set ufTimer = New UserForm1 ' UserForm名称为UserForm1    ufTimer.ShowEnd SubSub UpdateTimerDisplay()    If ufTimer Is Nothing Then Exit Sub    If isRunning Then        Dim currentTime As Double        currentTime = elapsedTime + (Timer - startTime)        ufTimer.lblTimer.Caption = FormatTime(currentTime)        ' 安排1秒后再次更新        nextTick = Now + TimeValue("00:00:01")        Application.OnTime nextTick, "UpdateTimerDisplay"    End IfEnd SubFunction FormatTime(totalSeconds As Double) As String    Dim hours As Integer, minutes As Integer, seconds As Integer    hours = Int(totalSeconds / 3600)    minutes = Int((totalSeconds Mod 3600) / 60)    seconds = Int(totalSeconds Mod 60)    FormatTime = Format(hours, "00") & ":" & _                 Format(minutes, "00") & ":" & _                 Format(seconds, "00")End Function