Функция НеделяГодаПоISO8601(Знач Дата, Год=Неопределено) Экспорт

    Если ДеньНедели(НачалоГода(Дата)) <= 4 тогда //если первая неделя года начинается до четверга, т.е. в ней есть четверг

        //значит год начинается с первой недели

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

        Неделя = НеделяГода(Дата);

        Возврат Неделя;

    Иначе

        //год начинается с последней недели прошлого года

        Неделя = НеделяГода(Дата)-1;

        

        Если Неделя = 0 тогда //если это до первой недели года

            Неделя = НеделяГодаПоISO8601(НачалоГода(Дата)-1, Год); //значит это последняя неделя прошлого года

        Иначе

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

        КонецЕсли;

    КонецЕсли;

    

    Возврат Неделя;

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



// Более короткий вариант:

Функция НеделяГода_ISO8601(Дата)       

    Корректировочная = НеделяГода(Дата(Год(Дата),1,4)) - 1;

    Результат = НеделяГода(Дата) - Корректировочная;

    Результат = ?(Результат = 0, НеделяГода_ISO8601(ДобавитьМесяц(КонецГода(Дата), -12)), Результат);    

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

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

 тДат=ДатаНачала; КолМес = 0;

Пока Месяц(тДат)<> Месяц(ДатаОкончания) Цикл 

КолМес = КолМес+1;	

тДат = ДобавитьМесяц(тДат,1);

КонецЦикла;

Результат = КолМес+1;   

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

    Connection = Новый COMОбъект("ADODB.Connection");

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

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



    RS = Новый COMОбъект("ADODB.Recordset");

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

    ТЗ=Новый ТаблицаЗначений;

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

    Пока RS.EOF() = 0 Цикл

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

        Стр=ТЗ.Добавить();

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;   

 //Выберите месяц формирования

СписокМесяцев = Новый СписокЗначений;

ТекДата = НачалоМесяца(РабочаяДата);

Для Мес = -15 по 15 Цикл

	ТекМес = ДобавитьМесяц(ТекДата, Мес);

	СписокМесяцев.Добавить(ТекМес, Формат(ТекМес, "ДФ='ММММ гггг'"));

КонецЦикла;	

ВыбранЗначение = СписокМесяцев.ВыбратьЭлемент("Выберите месяц:", СписокМесяцев.НайтиПоЗначению(ТекДата));

Если ВыбранЗначение = Неопределено Тогда 

	Сообщить("Месяц не выбран ");

Иначе 

	Сообщить("Первый день выбранного месяца: "+ ВыбранЗначение.Значение);	

	Сообщить("Представление выбранного месяца: "+ ВыбранЗначение.Представление);

КонецЕсли;   

 //Выгрузка кадровых данных

Процедура ВыгрузимИзЗУП() Экспорт  	

	Обработина = Обработки.УниверсальныйОбменДаннымиXML.Создать();

	Обработина.РежимОбмена = "Выгрузка";	

	Обработина.ДатаНачала	 = НачалоДня(ДобавитьМесяц(ТекущаяДата(),-1));

	Обработина.ДатаОкончания   = КонецМесяца(ТекущаяДата());

	Обработина.ИмяФайлаОбмена  = "D:\ZUP_BUH_EXCH\Upload.xml";

	Обработина.ИмяФайлаПравилОбмена  = "D:\ZUP_BUH_EXCH\Zup-Buh.xml";

	Обработина.ЗагрузитьПравилаОбмена();

	Обработина.ВыполнитьВыгрузку();	

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

 Процедура ЗагрузкаВБУХ() Экспорт	

	Обработина  = Обработки.УниверсальныйОбменДаннымиXML.Создать();

	Обработина.ИмяФайлаОбмена = "D:\ZUP_BUH_EXCH\Upload.xml";

	Обработина.РежимОбмена	 = "Загрузка";

	Обработина.ОптимизированнаяЗаписьОбъектов = Истина;

	Обработина.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

	Обработина.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

	Обработина.ЗагружатьДанныеВРежимеОбмена = Истина;

	Обработина.ВыполнитьЗагрузку();	

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

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

	ДатаНач = Дата(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;

	КонецЕсли;



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

  ТЗ = Новый ТаблицаЗначений;

    ТЗ = СписокИнвентарныхГрупп.Выгрузить();

    СчетчикКолонок = 2;

    СчетчикСтрок = 0;

    Пока СчетчикСтрок < СписокИнвентарныхГрупп.Количество()Цикл 

        Пока СчетчикКолонок<=13 Цикл 

            НаборДанных = РегистрыСведений.ЛимитыИнвентаря.СоздатьНаборЗаписей();

            НаборДанных.Отбор.ИнвентарнаяГруппа.Установить(ТЗ[СчетчикСтрок][1]);

            НаборДанных.Отбор.Подразделение.Установить(ПОдразделение);

            НаборДанных.Отбор.Дата.Установить(ДобавитьМесяц(НачалоГода(Период),СчетчикКолонок-2));

            НаборДанных.Прочитать();

            Если НаборДанных.Количество() = 0 Тогда

                Запись = НаборДанных.Добавить();

            Иначе

                Запись = НаборДанных[0];

            КонецЕсли;    

            Запись.Подразделение = Подразделение;

            Запись.ИнвентарнаяГруппа = ТЗ[СчетчикСтрок][1];

            Запись.Дата = ДобавитьМесяц(НачалоГода(Период),СчетчикКолонок-2); 

            Запись.Количество = ТЗ[СчетчикСтрок][СчетчикКолонок+1];    

            Запись.Период = Период;

            НаборДанных.Записать();

            СчетчикКолонок = СчетчикКолонок+1;

        КонецЦикла;

        СчетчикСтрок = СчетчикСтрок+1;

        СчетчикКолонок = 2;

    КонецЦикла;   

  //Начало, Конец - начало и конец периода

//Периодичность - строка "День", "Месяц", "Неделя", "Год", "Квартал"

//Возвращает таблицу значений с колонками:

//	Начало - начало интервала

//	Конец - конец интервала

//	Номер - номер интервала (начиная с единицы)

Функция обПериодыЗаИнтервал(Начало, Конец, Периодичность="День", ВыравниваниеПоПериоду=истина)

	Перем Р, Номер, ТекПериод, СледПериод;

	Р=Новый ТаблицаЗначений();

	Р.Колонки.Добавить("Начало");

	Р.Колонки.Добавить("Конец");

	Р.Колонки.Добавить("Номер");

	

	ТекПериод=Начало;

	Номер=1;

	Пока истина Цикл

		Если Периодичность="День" Тогда

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоДня(ТекПериод);

				СледПериод=КонецДня(ТекПериод);

			Иначе

				СледПериод=обДобавитьДни(ТекПериод, 1);

			КонецЕсли;

		ИначеЕсли Периодичность="Месяц" Тогда

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоМесяца(ТекПериод);

				СледПериод=КонецМесяца(ТекПериод);

			Иначе

				СледПериод=обДобавитьМесяцы(ТекПериод, 1);

			КонецЕсли;

		ИначеЕсли Периодичность="Год" Тогда

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоГода(ТекПериод);

				СледПериод=КонецГода(ТекПериод);

			Иначе

				СледПериод=обДобавитьМесяцы(ТекПериод, 12);

			КонецЕсли;

		ИначеЕсли Периодичность="Квартал" Тогда

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоКвартала(ТекПериод);

				СледПериод=КонецКвартала(ТекПериод);

			Иначе

				СледПериод=обДобавитьМесяцы(ТекПериод, 3);

			КонецЕсли;

		ИначеЕсли Периодичность="Неделя" Тогда

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоНедели(ТекПериод);

				СледПериод=КонецНедели(ТекПериод);

			Иначе

				СледПериод=обДобавитьДни(ТекПериод, 7);

			КонецЕсли;

		Иначе

			ВызватьИсключение "Неизвестная периодичность времени:"+Периодичность;

		КонецЕсли;

		Если ТекПериод>Конец И НЕ Номер=1 Тогда

			Прервать;

		КонецЕсли;

		

		Стр=Р.Добавить();

		Стр.Начало=ТекПериод;

		Стр.Конец=СледПериод;

		Стр.Номер=Номер;

		ТекПериод=СледПериод+1; //Переходим на следующий период (добавляем одну секунду)

		Номер=Номер+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");

        КонецЕсли;

    КонецЕсли;



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

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

 СледующийДень = ТекущаяДата() + 60 * 60 * 24;

ДобавитьМесяц(Дата(2005, 1, 31), 1);

ДобавитьМесяц(Дата(2005, 2, 28), -1); 

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

Функция ПолучитьДень(ИсходнаяДата, КоличествоПрибавляемыхДней)

	

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

	|ВЫБРАТЬ 

	|ДОБАВИТЬКДАТЕ(&ИсходнаяДата, ДЕНЬ, &Количество) как Дата";



	Запрос.УстановитьПараметр("ИсходнаяДата", ИсходнаяДата); 

	Запрос.УстановитьПараметр("Количество", КоличествоПрибавляемыхДней); 

	ВозвратЗапрос.Выполнить().Выгрузить()[0].Дата; 

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



ДатаРождения = Дата(1975, 7, 31),;

ДеньРожденияБудущегоГода = ДобавитьМесяц((ДобавитьМесяц(НачалоДня(ТекущаяДата()), -(Год(ДатаРождения) - 1) * 12)), (Год(ТекущаяДата()) * 12));