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

    Всего: 1

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

    −369.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
    Процедура СформироватьТаблицуГрафика()
    	//Заполнение месяцев
    	Для НомерМесяца = 1 По 12 Цикл
    		
    		НомерГода = Число(Прав(Год(ТекущаяДата()), 1));
    		ДатаМесяца = Дата(НомерГода, НомерМесяца, 1);
    		ДнейВМесяце = День(КонецМесяца(ДатаМесяца));
    
    		НоваяСтрока = КалендарьНаборЗаписей.Добавить();
    		НазваниеМесяца = Формат(ДатаМесяца, "ДФ=""ММММ""");
    		НоваяСтрока.Установить(0, НазваниеМесяца);
    		НоваяСтрока.НомерМесяца = НомерМесяца;
    		
    	КонецЦикла;
    КонецПроцедуры

    Помимо дикости написанного, эта штука не работает в 2010 году.

    Зарплата и Управление Персоналом 2.5.18.3

    Smallrat, 12 Марта 2010

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