ЭлементыФормы.Календарь.НачалоПериодаОтображения = Дата;
ЭлементыФормы.Календарь.КонецПериодаОтображения = ДатаКонца;
Календарь = Дата;
ЭлементыФормы.Календарь.ТекущаяДата = Дата;
ЭлементыФормы.Календарь.Обновить();

Процедура КалендарьПриВыводеПериода(Элемент, ОформлениеПериода)
ЭлементыФормы.Календарь.ВыделенныеДаты.Очистить();
ТекДата=Дата;
СекундВДне =  24 * 60 * 60 ;
Для каждого Эл Из Даты Цикл
ОформлениеПериода.Даты[ТекДата].ЦветТекста = Новый Цвет(?(Эл, 0 , 255 ), 0 , 0 );
ТекДата=ТекДата+СекундВДне;
КонецЦикла;
КонецПроцедуры