Calculate months between two dates [RESOLVED]

[IrelandsOwn]

I have two dates say 01/01/2002 and 01/08/2003. I want to write all the months between these two dates to a spreadsheet.

e.g

Jan 2002
Feb 2002
Mar 2002
Apr 2002
May 2002
etc
etc
etc
Jul 2003
Aug 2003

How would I go about separating all the months out?

[big_k105]

one thing i would do would be to put all the months in an array first month (jan) in the first part of the array and so on.

[zak2zak]

May be this helps...
I have tried myself and it works fine

Dim Date1 As String
Dim Date2 As String
Dim sDate As String
Dim i As Integer
Dim IntDiff As Integer
Dim Months  'Test to display in MsgBox
Dim DateArray() As String
Date1 = "01/1/2002"
Date2 = "01/8/2003"
 
IntDiff = DateDiff("m", Date1, Date2)  'Count the Month Diff
sDate = DateSerial(Year(Date1), Month(Date1) + IntDiff, Day(Date1))
ReDim DateArray(IntDiff) As String   'Redim The DateArray()
For i = 0 To IntDiff
sDate = DateAdd("m", i, Date1)
DateArray(i) = Format$(sDate, "MMM YYYY") 'THIS IS THE ARRAY THAT CAN BE USE TO DISPLAY THE DATE
Months = Months & Format$(sDate, "MMM YYYY") & vbCr
Next i
 
MsgBox Months

[IrelandsOwn]

Nice one Zak. Exactly what I needed.