如何在VBA中计算经过的时间（秒）？

Question

9

我有两个字符串，strStartTime和strEndTime。

strStartTime = "12:32:54" strEndTime = "12:33:05"

我想知道strStartTime和strEndTime之间相隔了多少秒，所以我这样做：

Dim dtDuration as date
dtDuration = DateDiff("s", CDate(strStartTime), CDate(strEndTime))

我得到的结果是在本地监视窗口中dtDuration =“＃1/10/1900＃”。

为什么会发生这种情况？如何使dtDuration等于11，以表示开始时间和结束时间之间经过的11秒钟？

- MrPatterns

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Radek · Accepted Answer

只需将变量类型更改为Long：

Dim dtDuration as Long

VBA将DateDiff函数的数字结果转换为日期类型的变量。