Excel VBA：使用日期值填充一维数组

Question

我正在尝试遍历一系列据称是连续的时间戳，并发现是否缺少一分钟。如果缺少一分钟，我希望将前一分钟存储在一维数组中。

如何创建日期数组并为其添加值？我知道可以使用“ 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

更新：我假设数组基本上是可以添加到的较大变量。错误！感谢您的答复。