vb输入日期的问题

Question

我想从 2008-08-19号这天起，依次输出
2008-08-20
2008-08-21
.....
2009-08-20一直到当天的所有日期，该怎么弄呢？

Answer 1

Private Sub Command1_Click()
Dim dDiff As Integer, dStart As Date
Dim i As Integer
dStart = CDate("2009-08-01")
dDiff = DateDiff("d", dStart, Now)For i = 0 To dDiff - 1
    Debug.Print Format(DateAdd("d", i, dStart), "yyyy-MM-DD")
Next
End Sub具体你要输出到哪自己改下就好了