PrintDatesTo("08/31/2013")
Sub PrintDatesTo(target As String)
Dim start As Long = DateTime.Now
Dim targetDate As Long = DateTime.DateParse(target)
Dim p As Period
p.Days = 1
Do While (start < targetDate)
Log(DateTime.Date(start))
start = DateUtils.AddPeriod(start, p)
Loop
End Sub