1. Список говнокодов пользователя pahalovo

    Всего: 1

  2. 1C / Говнокод #26012

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    Функция ДобавитьКДатеМесяц(НачальнаяДата, Количество)
	
	РезультатФункции = Дата("00010101");
	
	ЗапросПериода = Новый Запрос;
	ЗапросПериода.УстановитьПараметр("ДатаНачала",		НачальнаяДата);
	ЗапросПериода.УстановитьПараметр("Количество",		Количество);
	ЗапросПериода.Текст = 
	"ВЫБРАТЬ
	|	ДОБАВИТЬКДАТЕ(&ДатаНачала, МЕСЯЦ, &Количество) КАК ДатаСмещения
	|";
	РезультатЗапросПериода = ЗапросПериода.Выполнить().Выбрать();
	
	Если РезультатЗапросПериода.Следующий() Тогда
		РезультатФункции = РезультатЗапросПериода.ДатаСмещения;
	КонецЕсли;
	
	Возврат РезультатФункции;
	
КонецФункции

    pahalovo, 05 Ноября 2019

    Комментарии (7)