用秒vba计算

Question

我在excel中有一个列，它以秒为单位存储和结束日期和开始日期之间的差异。

Time window seconds
2580 (0:43)
16200

我想将这些秒数相加并将此信息存储在数组中。然后，此数组应包含总数秒。但是，如果我将此数组指定为：

Dim totalnumber(7) as Date

我在日期格式中得到奇怪的值，而不是秒。下一步是使用存储在数组中的每个数字进行简单计算。我应该如何定义这个数组，使其包含秒，并且我可以用它进行计算？

Answer 1

如果它是表示秒数的整数，我会使用Long数组。

Dim seconds(7) as Long

PROTIP ：您可以使用DateAdd和DateDiff函数计算日期和日期部分的整数。 E.g。

Dim lSeconds as Long
lSeconds = DateDiff("s", date1, date2)

Dim dtNew as Date
dtNew = DateAdd("s", lSeconds, date1)

见这里：

DateDiff

DateAdd

Answer 2

当您计算两天之间的差异时，日期格式会为您提供以天为单位的值。小数点后的数字为您提供小时，分钟，秒，毫秒等。例如，日期值2.5表示2天，12小时（12小时= 0.5天）。

要将Date值转换为秒，请乘以86,400（一天86,400秒）。