HelpF.pro

Перебор дат, заполнение списка, массива дат по порядку

Код 1C v 8.х
  // Укажем период	
ДатаН = Дата(2008,1,1);
ДатаК = Дата(2009,12,31);



// В Список значений поместим перебором каждую дату за период
СписокДат = Новый СписокЗначений;
ТекДата = ДатаН;
Пока ТекДата < ДатаК Цикл
СписокДат.Добавить(ТекДата);
// Увеличение ровно на одни сутки
ТекДата = ТекДата + 60 * 60 * 24;
КонецЦикла;
СписокДат.Добавить(ТекДата);



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

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