计算VBA上测验的计时器

Question

我目前正在尝试在VBA中安装计时器 - 我正在努力进行一项小工作。

有几个问题需要回答。我想知道的是有人花在回答每个问题上的时间。因此，计时器应该在每次有人点击问题时启动，然后在有人点击问题2并立即重新开始时停止。

Answer 1

OnClick事件。只需使用DateDiff来计算花费的时间。当然，他们必须单击按钮开始考试，或打开包含考试的表单，因此有一个初始参考点。但是，将该时间戳写入表格只需几毫秒，然后在每次单击该按钮时计算差异。

Answer 2

您可以使用定时器功能。它将为您提供高达1/1000秒的精度：

Dim myTime as variant
myTime = Timer
... 
Debug.Print "Process duration", Timer - myTime