Access VBA中TimerInterval倒计时异常：瞬间完成而非每秒递减

问题根源 #

你的代码在Form_Timer事件里用了Do While循环，而Timer事件本应每隔1秒触发一次。这个循环会在单次事件触发时直接跑完所有倒计时步骤，导致倒计时瞬间完成，完全跳过了每秒递减的逻辑。

修正后的代码 #

Sub Form_Timer()
    ' 将显示的时间字符串转为时间值，方便比较和计算
    Dim currentTimer As Date
    currentTimer = TimeValue(Me.DisplayTimer)
    
    If currentTimer > TimeSerial(0, 0, 0) Then
        ' 每次Timer触发仅递减1秒
        currentTimer = DateAdd("s", -1, currentTimer)
        Me.DisplayTimer = Format(currentTimer, "nn:ss")
    Else
        ' 倒计时结束，关闭Timer并执行日志操作
        Me.TimerInterval = 0
        Call LogProcess
    End If
End Sub

额外说明 #

• 无需依赖全局变量X，直接对时间值做递减操作更直观，也避免了全局变量可能带来的异常。
• 用TimeValue和DateAdd处理时间，比手动计算时间戳（1.15740740740741E-05）更易读且不易出错。
• 要确保初始化时CountDownTime被设为TimeSerial(0,5,0)（即5分钟），并在表单加载时把Me.DisplayTimer初始化为Format(CountDownTime, "nn:ss")。

内容的提问来源于stack exchange，提问作者Picayuni