Поместите все даты в диапазоне в массив

Question

Я пытаюсь добавить диапазон дат в массив (см. Код).Я могу получить только одну дату (текущую дату) в массиве 21/12/2018.Я хочу, чтобы все даты в текущем диапазоне, включая start и currentdate.

Sub calculate
    Dim startdate As Date
    Dim loopdate As Date
    Dim i As Integer
    Dim currentdate As Date
    Dim datearray() As Date

    currentdate = Date

    If currentdate = "20/12/2018" Then
        startdate = currentdate + CDate("00:00")
        currentdate = currentdate + CDate("07:29")
    Else
        startdate = DateAdd("d", -1, currentdate) + CDate("07:30")
        currentdate = currentdate + CDate("07:29")
    End If

    For loopdate = startdate To currentdate
        If loopdate <= currentdate Then
            ReDim Preserve datearray(0 To i)
            datearray(i) = DateValue(loopdate)
            i = i + 1
        End If
    Next
End Sub