Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (31)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

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

   Всего: 2

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

   −10

   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

   Функция РазностьДатВДнях(Дата1, Дата2, ВключаяГраницы = Истина)
   	
   	Результат = ?(ВключаяГраницы, 1, 0);
   	Если Дата1 < Дата2 Тогда
   		ТекущаяДата = НачалоДня(Дата1);
   		ДатаОкончания = НачалоДня(Дата2);
   	Иначе
   		ТекущаяДата = НачалоДня(Дата2);
   		ДатаОкончания = НачалоДня(Дата1);
   	КонецЕсли;
   	Пока ТекущаяДата < ДатаОкончания Цикл
   		ТекущаяДата = НачалоДня(ТекущаяДата + 24 * 60 * 60);
   		Результат = Результат + 1;
   	КонецЦикла;
   	Возврат Результат;
   
   КонецФункции

   можно тремя строками заменить:
   ДатаНачала = Мин(НачалоДня(Дата1), НачалоДня(Дата2));
   ДатаОкончания = Макс(НачалоДня(Дата1), НачалоДня(Дата2));
   Возврат ?(ВключаяГраницы, 1, 0) + (ДатаОкончания - ДатаНачала) / 86400

   noncode, 17 Апреля 2017

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

3. 1C / Говнокод #17430

   −126

   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

   Если ЗаполненАдрес=0 Тогда
   	Если  ПустаяСтрока(Запрос.ЭлПочта)=0 Тогда
   		Продолжить;
   	Иначе
   		ТЗ.НоваяСтрока();
   		ТЗ.Код			= Запрос.Контрагенты.Код;
   		ТЗ.Контрагент 	= Запрос.Контрагенты.Наименование;
   		ТЗ.ЭлАдрес		= Запрос.ЭлПочта;
   	КонецЕсли;
   иначе
   	Если  ПустаяСтрока(Запрос.ЭлПочта)=1 Тогда
   		Продолжить;
   	Иначе
   		ТЗ.НоваяСтрока();
   		ТЗ.Код			= Запрос.Контрагенты.Код;
   		ТЗ.Контрагент 	= Запрос.Контрагенты.Наименование;
   		ТЗ.ЭлАдрес		= Запрос.ЭлПочта;
   	КонецЕсли;
   Конецесли;

   ЗаполненАдрес - это чекбокс.
   Если сократить код, то получится:
   
   Если ЗаполненАдрес<>ПустаяСтрока(Запрос.ЭлПоч та) Тогда
   ТЗ.НоваяСтрока();
   ТЗ.Код = Запрос.Контрагенты.Код;
   ТЗ.Контрагент = Запрос.Контрагенты.Наименование;
   ТЗ.ЭлАдрес = Запрос.ЭлПочта;
   КонецЕсли;

   noncode, 12 Января 2015

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