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