Public Function fncMonthYear(byval dteStart As Date, Optional Byval dteEnd As Date = 0)
Dim tmp As Date, Dim ret As String
If dteEnd = 0 Or dteStart = dteEnd Then
fncMonthYear = Format$(dteStart, "mmm-yy")
Exit Function
End If
dteStart = DateSerial(Year(dteStart), Month(dteStart), 1)
dteEnd = DateSerial(Year(dteEnd), Month(dteEnd), 1)
If dteEnd < dteStart Then
tmp = dteStart
dteStart = dteEnd
dteEnd = tmp
End If
tmp = dteStart
Do Until tmp > dteEnd
ret = ret & Format$(tmp, "mmm-yy") & ", "
tmp = DateAdd("m", 1, tmp)
Loop
If Len(ret)<>0 then
ret = Left$(ret, Len(ret)-2)
fncMonthYear = ret
End If
End Function