如何使用VB6将时间添加到当前倒计时时钟？当我尝试添加额外的分钟数时，它会恢复到原始时间。

这是循环中的代码片段。这是一个倒计时钟

如何为倒计时时钟添加额外时间

我不明白为什么我不能增加额外的分钟或小时 例如说“分钟=分钟+20”。我是VB6的新手。对不起

Dim time_now As Date
Dim hours As Long
Dim minutes As Long
Dim seconds As Long

time_now = Now

If time_now >= m_StopTime Then

    tmrWait.Enabled = False
    lblRemaining.Caption = "0:00:00" 'Time has reached 0. Boom!
Else

这里我们把秒分为秒，分，小时

    seconds = DateDiff("s", time_now, m_StopTime)

    minutes = seconds \ 60
    seconds = seconds - minutes * 60
    hours = minutes \ 60
    minutes = minutes - hours * 60

现在我们显示结果

    lblRemaining.Caption = _
        Format$(hours) & ":" & _
        Format$(minutes, "00") & ":" & _
        Format$(seconds, "00")

---

如果不清楚你在问什么，就结束。在你发布的代码中，没有任何地方你试图添加任何内容，在你发布的代码中，也没有任何地方有倒计时时钟。你到底有什么问题？嗨，肯。对不起，我以为我已经把问题说清楚了。我最终发现我需要使用m_StopTime=DateAdd（“h”，1，m_StopTime）。这给我的倒计时钟增加了一个小时。再次感谢您抽出时间。