Функция РазностьВремени(Время1, Время2);

	

	Разность = Время1 - Время2;

	

	Если Разность > 0 Тогда

		Часов = Цел(Разность / 3600);

		Минут = Цел((Разность - Часов * 3600) / 60);

		

		Возврат Дата(1, 1, 1, Часов, Минут, 0);

		

	Иначе

		Возврат Дата(1,1,1,0,0,0);

	КонецЕсли;

	

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





//Пример использования	

Опоздание= РазностьВремени(ВремяПриезда, ВремяПодачи);   

  // Отбирать нужно за 1 месяц

// Выводит: Сотрудник, Организация, Норма в часах, норма в днях

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

Запрос.Текст =

"ВЫБРАТЬ

|	НАЧАЛОПЕРИОДА(Норма.ДатаКалендаря, МЕСЯЦ) КАК ПериодДействия,

|	СотрудникиОрганизаций.Ссылка КАК Сотрудник,

|	СотрудникиОрганизаций.ОбособленноеПодразделение КАК Организация,

|	СУММА(ВЫБОР

|			КОГДА Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И Норма.ДатаКалендаря <= СотрудникиОрганизаций.ДатаУвольнения

|					ИЛИ Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И СотрудникиОрганизаций.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)

|				ТОГДА Норма.НормаВЧасах

|			ИНАЧЕ 0

|		КОНЕЦ) КАК НормаЧасов,

|	СУММА(ВЫБОР

|			КОГДА Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И Норма.ДатаКалендаря <= СотрудникиОрганизаций.ДатаУвольнения

|					ИЛИ Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И СотрудникиОрганизаций.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)

|				ТОГДА Норма.НормаВДнях

|			ИНАЧЕ 0

|		КОНЕЦ) КАК НормаДней

|ИЗ

|	(ВЫБРАТЬ

|		СУММА(ВЫБОР

|				КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

|					ТОГДА 8

|				ИНАЧЕ ВЫБОР

|						КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

|							ТОГДА 7

|						ИНАЧЕ 0

|					КОНЕЦ

|			КОНЕЦ) КАК НормаВЧасах,

|		Норма.ДатаКалендаря КАК ДатаКалендаря,

|		ВЫБОР

|			КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

|				ТОГДА 1

|			ИНАЧЕ ВЫБОР

|					КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

|						ТОГДА 1

|					ИНАЧЕ 0

|				КОНЕЦ

|		КОНЕЦ КАК НормаВДнях

|	ИЗ

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

|	ГДЕ

|		Норма.ДатаКалендаря МЕЖДУ &НачалоПериода И &КонецПериода

|	

|	СГРУППИРОВАТЬ ПО

|		Норма.ДатаКалендаря,

|		ВЫБОР

|			КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

|				ТОГДА 1

|			ИНАЧЕ ВЫБОР

|					КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

|						ТОГДА 1

|					ИНАЧЕ 0

|				КОНЕЦ

|		КОНЕЦ) КАК Норма,

|	Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций

|

|СГРУППИРОВАТЬ ПО

|	НАЧАЛОПЕРИОДА(Норма.ДатаКалендаря, МЕСЯЦ),

|	СотрудникиОрганизаций.Ссылка,

|	СотрудникиОрганизаций.ОбособленноеПодразделение";

Запрос.УстановитьПараметр("КонецПериода", Дата("31.05.2012 0:00:00"));

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



Результат = Запрос.Выполнить();

Выборка = Результат.Выгрузить();

Для каждого СтрокаТЗ Из Выборка Цикл

КонецЦикла;

   

 	КолМин = 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);