Dim dt1 As Date = DateTime.Parse("2006-10-28")
Dim dt2 As Date = DateTime.Parse("2006-11-01")
Dim ts As TimeSpan = dt2.Subtract(dt1)
Dim arr() As DateTime
ReDim arr(CType(ts.TotalDays + 1, Integer))
For i As Integer = 0 To arr.Length - 1
arr(i) = dt1.AddDays(i)
Next
'arr是你要的数组