1С 8.2 УП : Как перебрать все даты с НачалоПериода по КонецПериода и получить таблицу периодов?

 Тз = Новый ТаблицаЗначений;

	тз.Колонки.Добавить("День");

	//Переберем все даты за период 

	ТекДат = НачалоДня(НачПериода);

	Пока Не ТекДат = НачалоДня(КонПериода) Цикл 

		Состояние(ТекДат);

		//Добавим текущую дату в таблицу периодов

		НовСтр = Тз.Добавить();

		НовСтр.День = ТекДат;

		

		ТекДат = ТекДат+86400;//Добавим 1 День

	КонецЦикла;

	

	тз.ВыбратьСтроку();