HelpF.pro

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

Код 1C v 8.х
 Тз = Новый ТаблицаЗначений;
тз.Колонки.Добавить("День");
//Переберем все даты за период
ТекДат = НачалоДня(НачПериода);
Пока Не ТекДат = НачалоДня(КонПериода) Цикл
Состояние(ТекДат);
//Добавим текущую дату в таблицу периодов
НовСтр = Тз.Добавить();
НовСтр.День = ТекДат;

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

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

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/1349.html