1С 8.x : Получение количества календарных дней по производственному календарю

 Функция КоличествоДнейПоКалендарнымДням(ДатаНачала, ДатаОкончания, ВключатьПраздники = Ложь)

	

	Если НЕ ВключатьПраздники Тогда

		Запрос = Новый Запрос(

		"ВЫБРАТЬ

		|	СУММА(РегламентированныйПроизводственныйКалендарь.КалендарныеДни) КАК КоличествоДней

		|ИЗ

		|	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь

		|ГДЕ

		|	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря >= &ДатаНачала

		|	И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <= &ДатаОкончания");

		

		Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);

		Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);

		

		Выборка = Запрос.Выполнить().Выбрать();

		Если Выборка.Следующий() Тогда

			КоличествоДней = Выборка.КоличествоДней;

		Иначе

			ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение производственного календаря!");

			КоличествоДней = Неопределено;

		КонецЕсли;

	Иначе

		КоличествоДней = (НачалоДня(ДатаОкончания) - НачалоДня(ДатаНачала)) / 86400 + 1;

	КонецЕсли;

	

	Возврат КоличествоДней;

	

КонецФункции