Как найти разницу между датами?

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

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

				Пока ВыборкаДетальныеЗаписи.Следующий() Цикл	
					Тз.Очистить();
					Запрос2.УстановитьПараметр("ДатаОкончания", ВыборкаДетальныеЗаписи.ДатаОкончания);
					Запрос2.УстановитьПараметр("ДатаНачала", ВыборкаДетальныеЗаписи.ДатаНачала);
					
					РезультатЗапроса2 = Запрос2.Выполнить();
					
					ВыборкаДетальныеЗаписи22 = РезультатЗапроса2.Выгрузить();
					ПервыйРаз = Истина;
					ВтораяДата = Дата("00010101");
					Сч = 1;
					Для Каждого ВыборкаДетальныеЗаписи2 ИЗ ВыборкаДетальныеЗаписи22  Цикл
						Если ВыборкаДетальныеЗаписи.ДатаНачала = ВыборкаДетальныеЗаписи2.ДатаНачала И ВыборкаДетальныеЗаписи2.ДатаОкончания = ВыборкаДетальныеЗаписи.ДатаОкончания Тогда
							Продолжить;
						КонецЕсли;
						Если ПервыйРаз Тогда
							ТЗСтр = ТЗ.Добавить();
							ТЗСтр.ДатаС = ВыборкаДетальныеЗаписи2.ДатаОкончания;
							ВтораяДата =  ВыборкаДетальныеЗаписи2.ДатаОкончания;
							Если ВыборкаДетальныеЗаписи22.Количество() = 1 Тогда
								ТЗСтр.ДатаПо = ВыборкаДетальныеЗаписи.ДатаОкончания;	
							КонецЕсли;
							ПервыйРаз = Ложь;
						Иначе
							
							ТЗСтр = ТЗ.Добавить();
							ТЗСтр.ДатаС = ВыборкаДетальныеЗаписи2.ДатаОкончания;
							Отбор = Новый Структура;
							Отбор.Вставить("ДатаС",ВтораяДата);
							Резолт = ТЗ.НайтиСтроки(Отбор);
							Резолт[0].ДатаПо = ВыборкаДетальныеЗаписи2.ДатаНачала;
							
							Если Сч = ВыборкаДетальныеЗаписи22.Количество() Тогда
								ТЗСтр.ДатаПо = ВыборкаДетальныеЗаписи.ДатаОкончания;
							Иначе 							
								ВтораяДата =  ВыборкаДетальныеЗаписи2.ДатаОкончания;
							КонецЕсли;
						КонецЕсли;
					КонецЦикла;					
					Тз.Сортировать("ДатаС УБЫВ",);