Функция массив дат за период

Функция МассивДатЗаПериод(Дата1, Дата2) Экспорт
	М = Новый Массив();
	ТекДата = НачалоДня(Дата1);
	Пока ТекДата <= Дата2 Цикл
		М.Добавить(ТекДата);
		// Увеличение ровно на одни сутки
		ТекДата = ТекДата + 60 * 60 * 24; 	
	КонецЦикла;
	Возврат М;
КонецФункции

Основу взял отсюда, но причесал.