//примеры

ВЫРАЗИТЬ(ДокументыОплаты.Регистратор КАК Документ.ПлатежноеПоручениеВходящее).СуммаДокумента

//или так

ВЫБОР

 КОГДА РАЗНОСТЬДАТ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата,КонецПериода, ДЕНЬ) > ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности

   ТОГДА ДОБАВИТЬКДАТЕ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата, ДЕНЬ, ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности)

 ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1)

КОНЕЦ КАК ДеньВозникновенияЗадолженности   

 //Перехватываем событие вывода компоновки данных в табличный документ и выводим со своим заголовком

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь; 

	УстановитьПривилегированныйРежим(Истина);	

	

	//Сформируем отчет

	СформироватьОтчет(ДокументРезультат, ДанныеРасшифровки);

	

	УстановитьПривилегированныйРежим(Ложь);

КонецПроцедуры   

 //Перехватываем событие вывода компоновки данных в табличный документ и выводим со своим заголовком

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;  

	

	МЕ_ДляОтчетаСКД_ПривелРежим.СформироватьОтчетПривРеж(ДокументРезультат, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек);



КонецПроцедуры   

 Процедура СформироватьОтчетПривРеж(ТабличныйДокумент, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек) Экспорт 



	ТабличныйДокумент.Очистить();  

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; 	

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки,,,Ложь);

	

	ВнешниеНаборыДанных  = Новый Структура;

	/// можно передать внешние данные ВнешниеНаборыДанных.Вставить("тзПродаж", СформироватьТЗПродаж());

	

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,ВнешниеНаборыДанных,ДанныеРасшифровки);

	

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

	ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

КонецПроцедуры   

 ПараметрыСеанса.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей=Ложь;   

 //примеры

ВЫРАЗИТЬ(ДокументыОплаты.Регистратор КАК Документ.ПлатежноеПоручениеВходящее).СуммаДокумента

//или так

ВЫБОР

 КОГДА РАЗНОСТЬДАТ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата,КонецПериода, ДЕНЬ) > ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности

   ТОГДА ДОБАВИТЬКДАТЕ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата, ДЕНЬ, ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности)

 ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1)

КОНЕЦ КАК ДеньВозникновенияЗадолженности



   

 // Процедура выполняет формирование табличного документа по настройкам СКД

Процедура СформироватьОтчет(ТабличныйДокумент, ДанныеРасшифровки) 

	УстановитьПривилегированныйРежим(Истина);	

	// если отчет открывается по расшифровке, отбору, упорядочиванию, 

	// группировке или условному оформлению - восстановим настройки вывода заголовка,

	// т.к., в переданных настройках при этом, вывод заголовка отключен

	// для того, чтобы не выводился встроенный заголовок компоновки.                                                                         

	ВосстановитьНастройкиВыводаЗаголовка();

	

	ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	

	ТабличныйДокумент.Очистить();

	

	// установим обязательные настройки отчета

	УстановитьПараметрыОтчета();

	

	// Сделаем копию настроек вывода заголовка

	СохранитьНастройкиВыводаЗаголовка();

	

	ВыводитьЗаголовок = ВыводитьЗаголовокОтчета();

	Если ВыводитьЗаголовок Тогда

		ПрисоединитьЗаголовокОтчетаКТабличномуДокументу(ТабличныйДокумент, ПолучитьТекстЗаголовкаОтчета());

		

		// Отключим в настройках вывод встроенного заголовка

		НайденнаяНастройкаВыводаЗаголовка = КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок");

		НайденнаяНастройкаВыводаЗаголовка.Значение		= ТипВыводаТекстаКомпоновкиДанных.НеВыводить;

		НайденнаяНастройкаВыводаЗаголовка.Использование	= Истина;

	КонецЕсли;

	

	КопияДополнительныхНастроек = УстановитьДополнительныеНастройкиДляРасшифровки();

	

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);

	

	// при необходимости вставим внешние наборы данных в СКД

	ВнешниеНаборыДанных = Новый Структура;

	

	ТаблицаВнешнегоНабораДанных = ПолучитьТаблицуВнешнегоНабораДанных();

	ВнешниеНаборыДанных.Вставить("ТаблицаВнешнегоНабораДанных",ТаблицаВнешнегоНабораДанных);

	

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,ВнешниеНаборыДанных,ДанныеРасшифровки);

	

	ВывестиРезультатКомпоновкиСАвтофиксациейСтрок(ТабличныйДокумент, ПроцессорКомпоновкиДанных, ДанныеРасшифровки.Элементы,,,КоличествоФиксируемыхСтолбцов);

	

	ДополнительнаяОбработкаРезультатаОтчета(ТабличныйДокумент);

	

	Если ВыводитьЗаголовок Тогда

		// вернем настройки вывода заголовка на место		

		ВосстановитьНастройкиВыводаЗаголовка();

	КонецЕсли;

	

	// восстановим дополнительные настройки

	Для Каждого ЭлементСтруктуры Из КопияДополнительныхНастроек Цикл

		КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить(ЭлементСтруктуры.Ключ, ЭлементСтруктуры.Значение);

	КонецЦикла;

	

	// сохраненные настройки нужны только при расшифровке и т.п.

	// и не будуть давать изменить вывоз заголовка при обычном формировании.

	ОчиститьСохраненныеНастройкиВыводаЗаголовка();





	УстановитьВидимостьЗаголовкаОтчета(ТабличныйДокумент);

	УстановитьВидимостьПараметровОтчета(ТабличныйДокумент);    

    УстановитьПривилегированныйРежим(Ложь);

КонецПроцедуры // СформироватьОтчет()

   

  ИмяФайла=ПолучитьИмяВременногоФайла("XML");

    Результат.Очистить();

    Фильтр=Новый Структура;

    Фильтр.Вставить("ДатаНачала", НачалоПериода);

    Фильтр.Вставить("ДатаОкончания", ОкончаниеПериода);

    Фильтр.Вставить("Событие", "_$Data$_.Post");

    Состояние("Выгрузка журнала...");

    ВыгрузитьЖурналРегистрации(ИмяФайла, Фильтр, "Дата, Метаданные, Данные, ПредставлениеДанных, ИмяПользователя");

    Состояние("Обработка журнала...");

    ЧтениеXML=Новый ЧтениеXML;

    ЧтениеXML.ОткрытьФайл(ИмяФайла);

    ПостроительDOM=Новый ПостроительDOM;

    ДокументDOM=ПостроительDOM.Прочитать(ЧтениеXML);

    Event=ДокументDOM.ПолучитьЭлементыПоИмени("v8e:Event");

    Для й=0 По Event.Количество()-1 Цикл

        ДочерниеУзлы=Event[й].ДочерниеУзлы;

        Для Каждого Узел Из ДочерниеУзлы Цикл

            Если Узел.ИмяУзла="v8e:Date" Тогда

                ДатаСобытия=СтрЗаменить(Узел.ТекстовоеСодержимое, "T", "");

                ДатаСобытия=СтрЗаменить(ДатаСобытия, ":", "");

                ДатаСобытия=Дата(СтрЗаменить(ДатаСобытия, "-", ""));

            ИначеЕсли Узел.ИмяУзла="v8e:MetadataName" Тогда

                МетаданныеДокумента=СтрЗаменить(Узел.ТекстовоеСодержимое, "Document.", "");

            ИначеЕсли Узел.ИмяУзла="v8e:Data" Тогда

                УИД=Узел.ТекстовоеСодержимое;

            ИначеЕсли Узел.ИмяУзла="v8e:DataPresentation" Тогда

                ПредставлениеДанных=Узел.ТекстовоеСодержимое;

            ИначеЕсли Узел.ИмяУзла="v8e:UserName" Тогда

                Пользователь=Узел.ТекстовоеСодержимое;

            КонецЕсли;

        КонецЦикла;

        Ссылка=Документы[МетаданныеДокумента].ПолучитьСсылку(Новый УникальныйИдентификатор(УИД));

        ДатаОбъекта=Ссылка.Дата;

        

        НоваяСтрока=Результат.Добавить();

        НоваяСтрока.ДатаСобытия=ДатаСобытия;

        НоваяСтрока.ДатаОбъекта=ДатаОбъекта;

        НоваяСтрока.ПредставлениеДанных=ПредставлениеДанных;

        НоваяСтрока.Пользователь=Пользователь;

        НоваяСтрока.РазностьДат=Окр((ДатаСобытия-ДатаОбъекта)/86400);

        НоваяСтрока.Ссылка=Ссылка;

    КонецЦикла;   

 Запрос=Новый Запрос("ВЫБРАТЬ

| РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,МЕСЯЦ) КАК Месяцев, 

| РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,ДЕНЬ) КАК Дней");

// или

КоличествоДней = (ДатаКонец - ДатаНачала) / 60 / 60 / 24;

   

 КоличествоДней = ДатаКонец-ДатаНачала

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

	

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

	

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

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

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

		

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

		

	Иначе

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

	КонецЕсли;

	

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





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

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

 "ВЫБРАТЬ

|  ПродажиОбороты.Номенклатура,

|  ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот/ПродажиОбороты.КоличествоОборот КАК ЧИСЛО(15,2))

|      КАК СредняяЦенаПродажи

| ИЗ РегистрНакопления.Продажи.Обороты(&ДатаНач, &ДатаКон)

| КАК ПродажиОбороты"   

 "ВЫРАЗИТЬ(ЧислоВыбр/10 КАК ЧИСЛО(10, 0)) * 10 КАК ОкругленноеДоДесятиЧисло"   

 "Выразить(ЧисловоеПоле-0.5 Как Число(10))"   

 "ВЫБОР КОГДА ЧисловоеПоле >= 0 ТОГДА 

|  ВЫРАЗИТЬ(ЧисловоеПоле - 0.5 КАК ЧИСЛО(10, 0))

|  ИНАЧЕ ВЫРАЗИТЬ(ЧисловоеПоле + 0.5 КАК ЧИСЛО(10, 0))

| КОНЕЦ"   

 Запрос = Новый Запрос("ВЫБРАТЬ РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0), ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0), СЕКУНДА, ЧислоСДробнойЧастью), СЕКУНДА) КАК ЧислоБезДробнойЧасти");   

 "ВЫРАЗИТЬ(Ч + 0.5 КАК ЧИСЛО(15)) - 1"   

 Функция РазностьМеждуДатамиВМесяцах(Дата1,Дата2)

	

	Год1 = Год(Дата1);

	Год2 = Год(Дата2);

	Месяц1 = Месяц(Дата1);

	Месяц2 = Месяц(Дата2);

	День1 = День(Дата1);

	День2 = День(Дата2);

	

	Результат = (Год1 - Год2) * 12 + Месяц1 - Месяц2;

	Если Результат < 0 Тогда Результат = 0 - Результат; КонецЕсли;

	Если ((Дата1 > Дата2) И (День1 < День2)) ИЛИ ((Дата1 < Дата2) И (День1 > День2)) Тогда

		Результат = Результат - 1;

	КонецЕсли;

	Возврат Результат;

	

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

 Функция ВозрастВМесяцахИГодах(Месяцы)

	

	Структура = Новый Структура;

	Структура.Вставить("Год");

	Структура.Вставить("Месяц");

	Структура.Месяц = Месяцы % 12;

	Структура.Год = (Месяцы - Структура.Месяц) / 12;

	

	Возврат Структура;

	

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

 Функция ВозрастПрописью(Структура)

	

	Строка = "";

	Если Структура.Год > 0 Тогда

		ПоследняяЦифраГода = Число(Сред(Строка(Структура.Год), СтрДлина(Строка(Структура.Год)), 1));

		Если (ПоследняяЦифраГода = 1) И (Структура.Год <> 11) Тогда Строка = Строка(Структура.Год) + " год"; КонецЕсли;

		Если (ПоследняяЦифраГода >= 2) И (ПоследняяЦифраГода <=4) И ((Структура.Год < 12) ИЛИ (Структура.Год > 14)) Тогда Строка = Строка(Структура.Год) + " года"; КонецЕсли;

		Если ((ПоследняяЦифраГода >= 5) И (ПоследняяЦифраГода <=9)) ИЛИ (ПоследняяЦифраГода = 0) Тогда Строка = Строка(Структура.Год) + " лет"; КонецЕсли;

		Если (Структура.Год >= 11) И (Структура.Год <= 14) Тогда Строка = Строка(Структура.Год) + " лет"; КонецЕсли;

	КонецЕсли;

	

	Если (Структура.Год > 0) И (Структура.Год < 3) И (Структура.Месяц > 0) Тогда

		Строка = Строка + ", ";

	КонецЕсли;

	

	Если (Структура.Месяц > 0) И (Структура.Год <= 3) Тогда

		Если Структура.Месяц = 1 Тогда Строка = Строка + "1 месяц"; КонецЕсли;

		Если (Структура.Месяц >= 2) И (Структура.Месяц <= 4) Тогда Строка = Строка + Строка(Структура.Месяц) + " месяца"; КонецЕсли;

		Если Структура.Месяц >= 5 Тогда Строка = Строка + Строка(Структура.Месяц) + " месяцев"; КонецЕсли;

	КонецЕсли;

	

	Возврат Строка;

	

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

   

 Функция ВозрастВычислить(Возраст,Дата)

	

	Месяцы = РазностьМеждуДатамиВМесяцах(Возраст,Дата);

	ВозрастСтруктура = ВозрастВМесяцахИГодах(Месяцы);

	ВозрастПрописью = ВозрастПрописью(ВозрастСтруктура);

	

	Возврат ВозрастПрописью;

	

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

   

 

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), СЕКУНДА) // 82 652

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), МИНУТА) // 1 378

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ЧАС) // 23

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ДЕНЬ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), МЕСЯЦ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), КВАРТАЛ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ГОД) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), СЕКУНДА) // 31 535 999

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), МИНУТА) // 525 599

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ЧАС) // 8 759

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ДЕНЬ) // 364

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), МЕСЯЦ) // 11

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), КВАРТАЛ) // 3

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ГОД) // 0   

 Процедура ТЕСТ_ВыполнитьНажатие(Кнопка)

	ДатаНач = Дата(2009, 12, 31);

	ДатаКон = Дата(2005, 1, 10); 

	Лет=0; Мес=0; Дн=0;	

	РазобратьРазностьДат(ДатаНач, ДатаКон, Лет, Мес, Дн);

	ЛетС = ФормаМножественногоЧисла("год","года","лет",Лет);	

	МесС = ФормаМножественногоЧисла("месяц","месяца","месяцев",Мес);

	ДнС = ФормаМножественногоЧисла("день","дня","дней",Дн);

	Сообщить(?(Лет>0,Строка(Лет)+" "+ЛетС,"")+" "+?(Мес>0,Строка(Мес)+" "+МесС,"")+" "+Строка(дн)+" "+ДнС);

	// Результат будет : 4 года 11 месяцев 21 день



КонецПроцедуры



// Получить разность дат

Процедура РазобратьРазностьДат(Дата1, Дата2, Лет = 0, Месяцев = 0, Дней = 0)	

	Лет		= 0;

	Месяцев	= 0;

	Дней	= 0;

	Если Дата1 > Дата2 Тогда

		

		ВременнаяДата = Дата1;

		Если День(ВременнаяДата) < День(Дата2) Тогда

			Дней = (ВременнаяДата - ДобавитьМесяц(ВременнаяДата,-1))/86400;

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-1);

		КонецЕсли;

		Если Месяц(ВременнаяДата) < Месяц(Дата2) Тогда

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-12);

			Месяцев = 12;

		КонецЕсли;

		Лет		= Макс(			 Год(ВременнаяДата)		- Год(Дата2),	0);

		Месяцев	= Макс(Месяцев	+ Месяц(ВременнаяДата)	- Месяц(Дата2),	0);

		Дней	= Макс(Дней		+ День(ВременнаяДата)	- День(Дата2),	0);

		

		// скорректируем отображаемое значение, если ""вмешалось"" разное количество дней в месяцах

		Если Дата2 <> (ДобавитьМесяц(Дата1,-Лет * 12-Месяцев)-Дней * 86400) Тогда

			Дней = Дней + (День(КонецМесяца(Дата2)) - День(НачалоМесяца(Дата2))) - (День(КонецМесяца(ДобавитьМесяц(Дата1,-1))) - День(НачалоМесяца(ДобавитьМесяц(Дата1,-1))));

		КонецЕсли;

		

	КонецЕсли;

КонецПроцедуры

// Сформировать множественное число

Функция ФормаМножественногоЧисла(Слово1, Слово2, Слово3, Знач ЦелоеЧисло) 

	

	// Изменим знак целого числа, иначе отрицательные числа будут неправильно преобразовываться

	Если ЦелоеЧисло < 0 Тогда

		ЦелоеЧисло = -1 * ЦелоеЧисло;

	КонецЕсли;

	

	Если ЦелоеЧисло <> Цел(ЦелоеЧисло) Тогда 

		// для нецелых чисел - всегда вторая форма

		Возврат Слово2;

	КонецЕсли;

	

	// остаток

	Остаток = ЦелоеЧисло%10;

	Если (ЦелоеЧисло >10) И (ЦелоеЧисло<20) Тогда

		// для второго десятка - всегда третья форма

		Возврат Слово3;

	ИначеЕсли Остаток=1 Тогда

		Возврат Слово1;

	ИначеЕсли (Остаток>1) И (Остаток<5) Тогда

		Возврат Слово2;

	Иначе

		Возврат Слово3;

	КонецЕсли;



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

 // Получает разность календарных дат указанного вида. В случае ошибки возвращает -1

Функция ПолучитьРазностьДат(рНачДата,рКонДата,рВидРазности="ДЕНЬ") Экспорт

Если не ЗначениеЗаполнено(рНачДата) или не ЗначениеЗаполнено(рКонДата) Тогда Возврат -1 КонецЕсли;

Если рНачДата=рКонДата Тогда Возврат 0 КонецЕсли;

строСтандПер="СЕКУНДА МИНУТА ЧАС ДЕНЬ НЕДЕЛЯ ДЕКАДА МЕСЯЦ КВАРТАЛ ГОД";

Если Найти(строСтандПер,рВидРазности)=0 Тогда рВидРазности="ДЕНЬ" КонецЕсли;

тз="ВЫБРАТЬ РАЗНОСТЬДАТ(&НачДата,&КонДата,"+СокрЛП(рВидРазности)+")+1 КАК ПериодовВремени";

з=Новый Запрос(тз);

Если рВидРазности="СЕКУНДА" или рВидРазности="МИНУТА" или рВидРазности="ЧАС" Тогда

      // ставим, как есть, с учётом времени

      Если рНачДата>рКонДата Тогда // всё наоборот

            рПервая=рКонДата; рВторая=рНачДата; коэф=-1;

      Иначе

            рПервая=рНачДата; рВторая=рКонДата; коэф=1;

      КонецЕсли;       

Иначе

      // ставим от начала дня

      Если рНачДата>рКонДата Тогда // всё наоборот

            рПервая=НачалоДня(рКонДата); рВторая=НачалоДня(рНачДата); коэф=-1;

      Иначе

            рПервая=НачалоДня(рНачДата); рВторая=НачалоДня(рКонДата); коэф=1;

      КонецЕсли;       

КонецЕсли;



Попытка

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

      з.УстановитьПараметр("КонДата",рВторая);

      рРезультат=з.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой).Получить(0).ПериодовВремени;

      Если ТипЗнч(рРезультат)<>Тип("Число") Тогда Возврат -1 Иначе Возврат коэф*рРезультат КонецЕсли;

Исключение

      Возврат -1

КонецПопытки;

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





Функция ДобавитьКДате(рДата,рРазность,рВидРазности="ДЕНЬ") Экспорт

Если рРазность=0 Тогда Возврат рДата КонецЕсли;

строСтандПер="СЕКУНДА МИНУТА ЧАС ДЕНЬ НЕДЕЛЯ ДЕКАДА МЕСЯЦ КВАРТАЛ ГОД";

Если Найти(строСтандПер,рВидРазности)=0 Тогда рВидРазности="ДЕНЬ" КонецЕсли;



тз="ВЫБРАТЬ ДОБАВИТЬКДАТЕ(&УслДата,"+СокрЛП(рВидРазности)+",&УслРазность) КАК РезДата";

з=Новый Запрос(тз);

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

з.УстановитьПараметр("УслРазность",рРазность);

рРезультат=з.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой).Получить(0).РезДата;

Если ТипЗнч(рРезультат)<>Тип("Дата") Тогда Возврат Дата(1,1,1) Иначе Возврат рРезультат КонецЕсли;

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





Функция ГраницаПериода(рДата,рВидПериода="ДЕНЬ",рВидГраницы) Экспорт

строСтандПер="СЕКУНДА МИНУТА ЧАС ДЕНЬ НЕДЕЛЯ ДЕКАДА МЕСЯЦ КВАРТАЛ ГОД";

Если Найти(строСтандПер,рВидПериода)=0 Тогда рВидПериода="ДЕНЬ" КонецЕсли;

Если Найти(ВРег(рВидГраницы),"НАЧ")<>0 Тогда

      рГраница="НАЧАЛОПЕРИОДА";

ИначеЕсли Найти(ВРег(рВидГраницы),"КОН")<>0 Тогда

      рГраница="КОНЕЦПЕРИОДА";

Иначе

      Возврат рДата;

КонецЕсли;

тз="ВЫБРАТЬ "+рГраница+"(&УслДата,"+СокрЛП(рВидПериода)+") КАК РезДата";



з=Новый Запрос(тз);

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

рРезультат=з.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой).Получить(0).РезДата;



Если ТипЗнч(рРезультат)<>Тип("Дата") Тогда Возврат Дата(1,1,1) Иначе Возврат рРезультат КонецЕсли;

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

 

Функция РазницаДатВМесяцах(Дата1, Дата2) Экспорт

	

ДатаНач	= ?(Дата1 < Дата2, Дата1, Дата2);

ДатаКон	= ?(Дата1 < Дата2, Дата2, Дата1);

	

Годы    = Год( датаКон ) - Год( датаНач );

Месяцы  = Месяц( датаКон ) - Месяц( датаНач );



Разность = месяцы + годы * 12;



Возврат Разность;



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

   

 Запрос=Новый Запрос("ВЫБРАТЬ РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,МЕСЯЦ) КАК Месяцев, РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,ДЕНЬ) КАК Дней");

   

 

// Процедура вычисляет количество лет, месяцев и дней между двумя датами

//

// Параметры

//  Дата1	– дата, первая дата (более поздняя, часто текущая, стаж определяется по состоянию на эту дату)

//  Дата2	– дата, вторая дата (ранняя дата, с нее начинается ""течение"" стажа)

//  Лет		– Число, в этот параметр будет записано кол-во лет между двумя датами (Дата1-Дата2)

//  Месяцев	– Число, в этот параметр будет записано кол-во месяцев между двумя датами (Дата1-Дата2)

//  Дней	– Число, в этот параметр будет записано кол-во дней между двумя датами (Дата1-Дата2)

//

Процедура РазобратьРазностьДат(Дата1, Дата2, Лет = 0, Месяцев = 0, Дней = 0) Экспорт

	

	Лет		= 0;

	Месяцев	= 0;

	Дней	= 0;

	Если Дата1 > Дата2 Тогда

		

		ВременнаяДата = Дата1;

		Если День(ВременнаяДата) < День(Дата2) Тогда

			Дней = (ВременнаяДата - ДобавитьМесяц(ВременнаяДата,-1))/86400;

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-1);

		КонецЕсли;

		Если Месяц(ВременнаяДата) < Месяц(Дата2) Тогда

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-12);

			Месяцев = 12;

		КонецЕсли;

		Лет		= Макс(			 Год(ВременнаяДата)		- Год(Дата2),	0);

		Месяцев	= Макс(Месяцев	+ Месяц(ВременнаяДата)	- Месяц(Дата2),	0);

		Дней	= Макс(Дней		+ День(ВременнаяДата)	- День(Дата2),	0);

		

		// скорректируем отображаемое значение, если ""вмешалось"" разное количество дней в месяцах

		Если Дата2 <> (ДобавитьМесяц(Дата1,-Лет * 12-Месяцев)-Дней * 86400) Тогда

			Дней = Дней + (День(КонецМесяца(Дата2)) - День(НачалоМесяца(Дата2))) - (День(КонецМесяца(ДобавитьМесяц(Дата1,-1))) - День(НачалоМесяца(ДобавитьМесяц(Дата1,-1))));

		КонецЕсли;

		

	КонецЕсли;



КонецПроцедуры

   

 

//********************************************************

//Назначение: преобразует строку в число путем преобразования каждого символа

//по правилам преобразования типов

// <стр> - строка;

//

//Примечание:

//

Функция зпГлСтрокуВЧисло(стр) Экспорт

    стр1 = СокрЛП(стр);

    Чис1 = "";

    Для х = 1 По СтрДлина(стр1) Цикл

        Чис1 = Чис1 + Число(Сред(стр1,х,1));

    КонецЦикла;

    Чис = Число(Чис1);

    Возврат Чис;

КонецФункции // зпГлСтрокуВЧисло(стр)

//********************************************************

// Функция зпГлВычислитьСрок(Аргум1,Аргум2="",Парам=777)

// <Аргум1> - Дата1 или Срок1

// <Аргум2> - Дата2 или Срок2

// <Срок> - Период в формате ГГ-ММ-ДД

// Параметры: '0' - ЗнВозврата = Дата2-Дата1 - вичислить период между датами в формате ГГ-ММ-ДД

//         '-1' - ЗнВозврата = Дата1-Срок - вычесть период

//         '1' - ЗнВозврата = Дата1+Срок - добавить период

//         Иначе ЗнВозврата = Правильный срок

//         'П' - ЗнВозврата = Правильный срок прописью

//         'К' - ЗнВозврата = Правильный срок прописью краткий формат

//         '+' - ЗнВозврата = Срок1+Срок2 - сложить периоды

////////         '-' - ЗнВозврата = Срок1-Срок2 - вычесть периоды

//

// Примечание: Ст.241-1 КЗоТ Украины

//

Функция зпГлВычислитьСрок(Аргум1,Аргум2="",Парам="") Экспорт

    Перем ЗнВозврата;



    Если (Парам=0) Тогда

        Дата1 = Мин(Дата(Аргум1),Дата(Аргум2));

        Дата2 = Макс(Дата(Аргум1),Дата(Аргум2));



        Мес = (ДатаГод(Дата2) - ДатаГод(Дата1))* 12 + (ДатаМесяц(Дата2) - ДатаМесяц(Дата1));

        Дни = ДатаЧисло(Дата2) - ДатаЧисло(Дата1);



        Если (Дни < 0) Тогда

            Мес = Мес - 1;

            Дни = Дни + ДатаЧисло(КонМесяца(Дата1));

        КонецЕсли;

        Если (Дни >= ДатаЧисло(КонМесяца(Дата2))) и (Дата2 = КонМесяца(Дата2)) Тогда

            Мес = Мес + 1;

            Дни = 0;

        КонецЕсли;



        Лет = Цел(Мес/12);

        Мес = Мес - Лет* 12;



        ЗнВозврата = Формат(Лет,"Ч(0)2.0")+"-"+Формат(Мес,"Ч(0)2.0")+"-"+Формат(Дни,"Ч(0)2.0");

    ИначеЕсли (Число(Парам)*Число(Парам)=1) Тогда

        Дата1 = Дата(Аргум1);

        Аргум2 = зпГлВычислитьСрок(Аргум2);

        Срок = Аргум2;



        Мес = Число(Лев(Срок,2))* 12 + Число(Сред(Срок,4,2));

        Дни = Число(Прав(Срок,2));



        Дата2 = ДобавитьМесяц(Дата1,Парам*Мес);



        Если (Дата1 = КонМесяца(Дата1)) Тогда

            Дни = Мин(ДатаЧисло(КонМесяца(Дата2)) - 1, Дни);

        ИначеЕсли (Дни >= ДатаЧисло(КонМесяца(Дата2))*((1-Парам)/2) - Парам*ДатаЧисло(Дата2)) Тогда

            Дни = Мин(ДатаЧисло(КонМесяца(ДобавитьМесяц(Дата2,1))) - 1, Дни);

        КонецЕсли;



        ЗнВозврата = Дата2 + Парам*Дни;

    Иначе

        Если (Найти(Парам, "+") > 0) Тогда

            Срок1 = зпГлСтрокуВЧисло(СтрЗаменить(Аргум1+".","-",""))/10;

            Срок2 = зпГлСтрокуВЧисло(СтрЗаменить(Аргум2+".","-",""))/10;



            Дни = Срок1%100 + Срок2%100;

            Мес = Цел((Срок1%10000 + Срок2%10000 - Дни)/1000);

            Лет = Цел(Срок1/10000) + Цел(Срок2/10000);



            Мес = Мес + Цел(Дни/30);

            Дни = Дни%30;

            Лет = Лет + Цел(Мес/12);

            Мес = Мес%12;

        Иначе

            Срок = зпГлСтрокуВЧисло(СтрЗаменить(Аргум1+".","-",""))/10;

            Мес = Цел(Срок/100) - Цел(Срок/10000)*(100-12);

            Дни = Мин(Срок - Цел(Срок/100)* 100, 30);

            Лет = Цел(Мес/12);

            Мес = Мес - Лет* 12;

        КонецЕсли;



        Если (Найти(Парам, "П") > 0) Тогда

            ЗнВозврата = "років "+Лет+", місяців "+Мес+", днів "+Дни;

        ИначеЕсли (Найти(Парам, "К") > 0) Тогда

            ЗнВозврата = ""+Лет+"р."+Мес+"м."+Дни+"д.";

        Иначе

            ЗнВозврата = Формат(Лет,"Ч(0)2.0")+"-"+Формат(Мес,"Ч(0)2.0")+"-"+Формат(Дни,"Ч(0)2.0");

        КонецЕсли;

    КонецЕсли;



    Возврат ЗнВозврата;

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