Расставить даты по таблице

[hunter-330]

Добрый день, поделитесь своими соображениями по поводу задачи

задаем НачальнуюДата
и КонечнуюДату - получаем период
нужно чтобы чтобы в таблице Access по строкам раскидывались даты концов месяца
то есть если мы берем например НачальнуюДату 01.01.2001
а КонечнуюДату 01.03.2001
то в таблице нужно записать
1строка - 31.01.2001
2строка - 28.02.2001

как найти конец месяца нашел

Public Function LastDayOfMonth(dtDate As Date)
    LastDayOfMonth = DateAdd("d", -1, DateSerial(Year(dtDate), Month(dtDate) + 1, 1))
End Function

а что дальше делать не могу сообразить

[hunter-330]

Разобрался

[hunter-330]

Оказывается нужно было всего лишь в цикле прибавлять по 30 дней и попадаешь на следующий месяц, а я голову ломал
И никто подсказать не мог