VBA - 显示子程序运行多长时间

Question

我正在尝试使用以下代码来显示一系列命令的运行时间。在这个例子中，我预计它会返回“10”或类似的东西。

相反，它会返回：

这是怎么回事，如何正确格式化？

Sub timeyWimey()

    Dim t1 As Date
    Dim t2 As Date
    Dim timeTaken As Date

        t1 = Now()
        Application.Wait (Now + TimeValue("0:00:10"))
        t2 = Now()

        timeTaken = t2 - t1

        MsgBox timeTaken

End Sub

编辑：

在一些很好的答案之后的最终代码：

Sub timeyWimey()

    'Dim t1 As Double
    'Dim t2 As Double


        t1 = Now()
        Application.Wait (Now + TimeValue("0:00:10"))
        t2 = Now()

        timeTaken = t2 - t1

        MsgBox Format(timeTaken, "nn:ss.000")

End Sub

结果：

砰！问题解决了！感谢大家的帮助！

Answer 1

日期在 MS Access 和 MS Excel 中存储为数值。因此，如果在您的即时窗口 (Ctrl+G) 中输入?Cdbl(now())，您将得到一个类似这样的数字：42195.5204050926。

整数表示自 1899 年 12 月 30 日以来已过去多少天，小数表示当天已过去多少天。

所以在你的代码中你基本上是这样说的：

timeTaken = 42195.5222337963  - 42195.5204050926

在这个例子中，我只检查了一次Now()，几分钟后又检查了一次。所以我最终选择了 0.0018287037。

现在，如果我使用 Date 变量（例如在您的示例中）来显示它，我基本上是在说 0.0018287037 是什么时间，即 1899 年 12 月 30 日 12:02：上午 38 点。

您可以通过返回您的即时窗口并输入?cdate(0.0018287037) 直观地看到这一点，您将获得如下结果：12:02:38 AM。更进一步，你可以输入?cdate(1.0018287037)，你会得到一个结果：1899-12-31 12:02:38 AM

所以在你的情况下，你可以简单地改变：

MsgBox timeTaken

收件人：

MsgBox Format(timeTaken, "nn:ss")

注意：我没有注意到屏幕截图中显示“Excel”，尽管这个答案应该仍然有效。

Answer 2

通常你会使用DateDiff function 来计算两个日期之间的差异，但我认为在你的情况下你会想要别的东西，因为 DateDiff 不会给你毫秒。相反，只需将您对“Now”函数的调用替换为 Timer()，这只是几秒钟（但请注意，它只给您从午夜开始经过的时间，所以 t2 - t1 可以是负数，如果您的命令持续几天你不会得到任何有意义的结果）。

Answer 3

你可以试试定时器功能。正如其他答案所示，可能有一些警告。

Dim startTime As Double, endTime As Double
startTime = Timer

Application.Wait (Now + TimeValue("0:00:10"))

endTime = Timer
msgBox endTime - startTime