一个逐月倒推的问题

Question

现在程序要从2004.12倒推3年，推到2002.01，
就是从2004-12→2004-11→……→2002-02→2002-01
请教该如何实现呢？

Answer 1

Dim I As Integer
    For I = 1 To 1000
        Debug.Print Format(Date - I, "YYYY-MM-DD")
    Next

Answer 2

Private Sub command1_click()
Dim beginDate As Date
Dim EndDate As Date
Dim i As IntegerbeginDate = Date
EndDate = DateAdd("yyyy", -3, beginDate)
    MsgBox EndDate
For i = 1 To 36
    Debug.Print DateAdd("m", -i, beginDate)
Next i
End Sub'这个例子是从当天开始倒数前三年.