生成date序列

我写了一个代码，它给了我一个“mmm yy”格式的date序列。 例如1月15日 。

For i = 1 To 20 MsgBox Format(DateAdd("m", i, "01/01/2005"), "mmm") & " " & Right(Year(Date), 2) Next i 

我遇到的问题是，当我继续增加的一年不会改变。 所以例如，如果我是12，那么应该是06年1月，但它仍然给我1月05日 。 我想从1月05日到今天（即9月15日）请build议一个序列。

Answer 1

创build一个variables并添加到该date。

 Private Sub CommandButton1_Click() Dim dDate As Date Dim i As Integer dDate = "01/01/2005" For i = 1 To 20 MsgBox Format(dDate, "mmm") & " " & Right(Year(dDate), 2) dDate = DateAdd("m", 1, dDate) Next i End Sub 

Answer 2

考虑：

 Sub oiudskfh() For i = 1 To 20 Dim d As Date d = DateAdd("m", i, "01/01/2015") MsgBox Format(d, "mmm") & " " & Right(d, 2) Next i End Sub