Пока писал сообщение пришло озорение
Процедура ДатаНачалаПриИзменении(Элемент)
ДатаОкончания = Объект.Дата + 6*3600*24;
ВсегоВкладок = ЭтаФорма.Элементы.Вкладки.ПодчиненныеЭлементы.Количество()-1;
Для ТекДень = 0 По 6 Цикл
Если ТекДень = 0 Тогда
ДеньМесяца = Формат(Объект.Дата, "ДФ=dd");
ДеньНедели = Формат(Объект.Дата, "ДФ=ddd");
ИмяВкладки = " " + ДеньМесяца + "/" + ДеньНедели;
Элементы.Вкладки.ПодчиненныеЭлементы[ДеньНедели].Заголовок = ИмяВкладки;
Иначе
ДеньМесяца = Формат((Объект.Дата+ТекДень*3600*24), "ДФ=dd");
ДеньНедели = Формат((Объект.Дата+ТекДень*3600*24), "ДФ=ddd");
ИмяВкладки = " " + ДеньМесяца + "/" + ДеньНедели;
Элементы.Вкладки.ПодчиненныеЭлементы[ДеньНедели].Заголовок = ИмяВкладки;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший