以秒计算vba

我有一个Excel中的专栏，以秒为单位存储区别，结束date和开始date。

Time window seconds 2580 (0:43) 16200 

我想总结这些秒，并将这些信息存储在一个数组中。 这个数组应该包含秒数的总数。 但是，如果我指定这个数组为：

 Dim totalnumber(7) as Date 

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

Answer 1

如果它是代表秒数的整数，我将使用一个Long数组。

 Dim seconds(7) as Long 

PROTIP ：您可以使用DateAdd和DateDiff函数来计算date和date的整数部分。 例如

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

看这里：

则DateDiff

使用DateAdd

Answer 2

当您计算两天之间的差异时，date格式会给您一个以天为单位的值。 小数点后面的数字给出了小时，分钟，秒，毫秒等。例如，date值2.5将代表2天12小时（12小时= 0.5天）。

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