1С 8.x : Перебор дат, заполнение списка, массива дат по порядку

  // Укажем период	

ДатаН = Дата(2008,1,1);

ДатаК = Дата(2009,12,31);







// В Список значений поместим перебором каждую дату за период

СписокДат = Новый СписокЗначений;

ТекДата = ДатаН;

Пока ТекДата < ДатаК Цикл

	СписокДат.Добавить(ТекДата);

	// Увеличение ровно на одни сутки

	ТекДата = ТекДата + 60 * 60 * 24; 	

КонецЦикла;

СписокДат.Добавить(ТекДата);







//В Массив добавим каждый первый день месяца за период

МассивДат = Новый Массив;

ТекДата = ДатаН;

Пока ТекДата < ДатаК Цикл

	МассивДат.Добавить(ТекДата);

	//  Для получения даты следющего месяца на Конец Дня,

	// получаем дату конца месяца текущей даты и плюс одни сутки

	//ТекДата = КонецМесяца(ТекДата) + 60 * 60 * 24;

	//  Для получения даты следющего месяца на Начало Дня,

	// получаем дату конца месяца текущей даты и плюс один

	ТекДата = КонецМесяца(ТекДата) + 1; 	

КонецЦикла;