Обработка производит расчет количество рабочих дней на текущий момент времени

Обработка производит расчет количество рабочих дней на текущий момент времени.

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

Число = 0;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("ПроизводственныйКалендарь", Справочники.ПроизводственныеКалендари.НайтиПоКоду("РФ"));
Запрос.УстановитьПараметр("Дата", Дата);
Запрос.Текст =
"ВЫБРАТЬ
| КОЛИЧЕСТВО(ДанныеПроизводственногоКалендаря.Дата) КАК Количество
|ИЗ
| РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственногоКалендаря
|ГДЕ
| ДанныеПроизводственногоКалендаря.ПроизводственныйКалендарь = &ПроизводственныйКалендарь
| И ДанныеПроизводственногоКалендаря.Дата >= НАЧАЛОПЕРИОДА(&Дата, МЕСЯЦ)
| И ДанныеПроизводственногоКалендаря.Дата <= КОНЕЦПЕРИОДА(&Дата, ДЕНЬ)
| И (ДанныеПроизводственногоКалендаря.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
| ИЛИ ДанныеПроизводственногоКалендаря.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный))";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
КоличествоОтработДней = Выборка.Количество
КонецЕсли;
КонецПроцедуры