Неделя = 3600 * 24 * 7; Выходные = 3600 * 48; МаксимальнаяДата =ДатаД1; // + Неделя * 4; ТекущаяДата = ДатаД; Пока ТекущаяДата <= МаксимальнаяДата Цикл Конец = НачалоНедели(ТекущаяДата); Начало = Конец - Выходные; ИнтФ=ДГ.ИнтервалыФона.Добавить(Начало, Конец); ИнтФ.Цвет = WebЦвета.Красный; ТекущаяДата = ТекущаяДата + Неделя; КонецЦикла;