高手在线帮忙,急等用!如何列出两个月份之间的所有月?

Question

如何列出两个月份之间的所有月?
比如:a1="2005-02-25"
a2="2006-03-27"
如何利用循环求出这两个月之间所有的月份?
就是得出2005.03,....直到2006.03之间所有的月?格式成yyyy.mm
在线等,不胜感激.

Answer 1

Private Sub Command1_Click()
Dim a1 As String
Dim a2 As String
a1 = "2005-02-25"
a2 = "2006-03-27"
Dim xx As Integer
Dim i As Integer
xx = DateDiff("m", CDate(a1), CDate(a2))
For i = 1 To xx
   Debug.Print Format(DateAdd("m", i, CDate(a1)), "yyyy-mm")
NextEnd Sub