Как получить количество часов/минут из интервал с исключением ночного времени

 	КолМин = 0;
	НачДата = Дата1;
	Пока НачДата < Дата2 Цикл 
		// Запускаем цикл с шагом в 1 мин
		НачДата = НачДата + 60;
		//Пребразуем дату в строку
		СтрТекДата = Формат(НачДата, "ДФ=yyyyMMddHHmm");
		//часы и минуты преобразуем в число, берем правые 4 знака строки и делаем их числом
		// т.е. 08:00 будет равно 800 и тд....
		ТекВремя = Число(Прав(СтрТекДата,4));
		// в цикле сравниваем на больше - меньше и накпливаем минуты если условие верно		
		// 800 в данном случае время - 08:00 
		// 2200 в данном случае время - 22:00 
		Если (ТекВремя > 800) и (ТекВремя <= 2200) Тогда
			//накапливаем минуты
			КолМин = КолМин + 1;
		КонецЕсли;
	КонецЦикла;
	//получим количество часов из интервала с исключением промежутка с 22:00 по 08:00
	Сообщить(КолМин/60);