Неделя = 3600 * 24 * 7;

Выходные = 3600 * 48;

МаксимальнаяДата =ДатаД1; // + Неделя * 4;



ТекущаяДата = ДатаД;



Пока ТекущаяДата <= МаксимальнаяДата Цикл

    Конец = НачалоНедели(ТекущаяДата);    

    Начало = Конец - Выходные;    

  ИнтФ=ДГ.ИнтервалыФона.Добавить(Начало, Конец);

  ИнтФ.Цвет = WebЦвета.Красный;

 

    ТекущаяДата = ТекущаяДата + Неделя;

КонецЦикла;