我正在尝试遍历一系列据称是连续的时间戳,并发现是否缺少一分钟。如果缺少一分钟,我希望将前一分钟存储在一维数组中。
如何创建日期数组并为其添加值?我知道可以使用“ Split”将字符串数组添加到其中,但是如何使用日期呢?这是我正在使用的基本代码。
Dim currentminute as Date, oldminute as Date
i=1
Do Until Sheets("Data").Cells(i, currentcolumn).Value=""
currentminute=Sheets("Data").Cells(i, currentcolumn).Value
If oldminute<>""
If currentminute-.007>oldminute then
array1()=array1 & oldminute then
'How to add to array?
End If
End If
Do Until Sheets("Data").Cells(i, currentcolumn)<>currentminute
'Do calculations
oldminute=currentminute
i=i+1
Loop
Loop
更新:我假设数组基本上是可以添加到的较大变量。错误!感谢您的答复。