Бухгалтерия / Говнокод #9729 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
Функция ПреобразованиеДаты(Дата) Экспорт
Если НЕ ПустаяСтрока(Дата) Тогда	
	ГодКраткий = Прав(Дата, 2);
	Если 		ГодКраткий = "83" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1983";		
		ИначеЕсли   ГодКраткий = "84" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1984";
		ИначеЕсли   ГодКраткий = "85" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1985";	
		ИначеЕсли   ГодКраткий = "86" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1986";	
		ИначеЕсли   ГодКраткий = "87" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1987";	
		ИначеЕсли   ГодКраткий = "88" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1988";	
		ИначеЕсли   ГодКраткий = "89" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1989";	
		ИначеЕсли   ГодКраткий = "90" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1990";	
		ИначеЕсли   ГодКраткий = "91" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1991";	
		ИначеЕсли   ГодКраткий = "92" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1992";	
		ИначеЕсли   ГодКраткий = "93" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1993";	
		ИначеЕсли   ГодКраткий = "94" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1994";	
		ИначеЕсли   ГодКраткий = "95" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1995";	
		ИначеЕсли   ГодКраткий = "96" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1996";	
		ИначеЕсли   ГодКраткий = "97" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1997";	
		ИначеЕсли   ГодКраткий = "98" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1998";	
		ИначеЕсли   ГодКраткий = "99" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "1999";	
		ИначеЕсли   ГодКраткий = "00" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2000";	
		ИначеЕсли   ГодКраткий = "01" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2001";	
		ИначеЕсли   ГодКраткий = "02" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2002";	
		ИначеЕсли   ГодКраткий = "03" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2003";	
		ИначеЕсли   ГодКраткий = "04" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2004";	
		ИначеЕсли   ГодКраткий = "05" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2005";	
		ИначеЕсли   ГодКраткий = "06" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2006";	
		ИначеЕсли   ГодКраткий = "07" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2007";	
		ИначеЕсли   ГодКраткий = "08" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2008";	
		ИначеЕсли   ГодКраткий = "09" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2009";	
		ИначеЕсли   ГодКраткий = "10" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2010";	
		ИначеЕсли   ГодКраткий = "11" Тогда
			ДатаНовая = "" + Лев(Дата,6) + "2011";					
		КонецЕсли;

ДатаЗначение = Дата(Сред(ДатаНовая,7,4),Сред(ДатаНовая,4,2),Сред(ДатаНовая,1,2));	
Возврат ДатаЗначение;	
КонецЕсли;
КонецФункции

Прихожу сегодня с утра и вижу вот такой код коллеги. Надо теперь психологически восстанавливаться.

Запостил: i-ale i-ale, (Updated )

Комментарии (59) RSS

        • ava FAKYOUINTIRNEAT # Ссылка на оригинал 0 ⇈

          некоторые встраиваемые системы нельзя "перевести", но они могут "дожить" до того времени
          Ответить

          • ava Steve_Brown # Ссылка на оригинал 0 ⇈

            Автоматические системы нанесения ответного ядерного удара.
            Ответить

              • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                А на чем тогда? На электронных лампах или на импортированных во времена СССР китайцах?
                Ответить

                • ava FAKYOUINTIRNEAT # Ссылка на оригинал 0 ⇈

                  да, на лампах. Потому что полупроводники могут сгореть даже от слабого электромагнитного импульса, а лампы нет. Для системы, которая может стать целью ядерного удара, это критично.
                  Ответить

                  • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                    А серъезно: я полагал что там либо реле какие-то стоят, либо полупроводники с серъезным экранированием + всё находится глубоко под землей.
                    И конечно нельзя отрицать дублирование логики на разных элементах - так часто делают в критически важных системах.
                    Ответить

                    • ava FAKYOUINTIRNEAT # Ссылка на оригинал 0 ⇈

                      в СССР все было на лампах, насколько я знаю, сейчас – может и комбинируют различные способы...
                      Ответить

          • ava rat4 # Ссылка на оригинал 0 ⇈

            Впереди ещё 25 лет, кого там не успеют обновить? Марсоход?
            Ответить

            • ava FAKYOUINTIRNEAT # Ссылка на оригинал 0 ⇈

              системы в любой технике, срок службы которой может превышать эти 25 лет.
              Например: медицинское оборудование, электроника в автомобилях.
              Ответить

  • ava TarasB # Ссылка на оригинал 0

    Пацаны, как настроить размер таба на говнокоде?
    Ответить

  • ava TarasB # Ссылка на оригинал 0

    И где начало того конца, которым начинается конец начала границы между годами, которые надо дополнять до 19 и годами, которые надо дополнять до 20?
    Вот 42 - это 1942 или 2042?
    Ответить

    • ava Lure Of Chaos # Ссылка на оригинал 0 ⇈

      очевидно, времяисчисление начинается с года рождения автора, а что было до этого - великая тайна
      Ответить

        • ava Lure Of Chaos # Ссылка на оригинал 0 ⇈

          не успел закончиться затяжной новый год, как свалилось сначала 23, потом масленница, затем 8 - и вот наконец, скоро пасха.
          автор просто не успел проапгрейдиться - но еще время до декабря есть!
          Ответить

            • ava Lure Of Chaos # Ссылка на оригинал 0 ⇈

              учимся у МС - у них баги (скажем, осла) фиксятся только со следующей операционкой (заплатки на дыры, "позволяющие выполнить произвольный код на машине жертвы", не считаем)
              Ответить

          • ava bugmenot # Ссылка на оригинал 0 ⇈

            > скоро пасха
            у меня от христианских младенцев изжога
            Ответить

  • ava wvxvw # Ссылка на оригинал 0

    Вот чего в 1С не хватает, так это ключевого слова Бы. И вообще, разрешить бы произвольные слова, которые не влияют на построение программы. Т.е. зарезервировать все частицы, предлоги и т.п. Замечательный язык бы получился.
    Ответить

  • ava guest # Ссылка на оригинал 0

    Конструкция с Если можно свернуть до строчки. И будет работать ещё полвека 🙂
    Ответить

  • ava guest # 0

    в)Y$T!W"X(JCI:I(UL.P.P(XT!H)O(Z:Y$BV$S$D!LG:D!B:F?X(M:A:X?Z$F)K)K J,U:D.I!R$G)X O:Y,W"N:O?T.M!M(N$O(XW H"B(PM.Y"X"M.N!J$A(W!S$PJ,X?T)E.F"L(T?H:T$F)T)F(M!G A:G(RY"Q,G C$L,G W"C:W:B,Q(P:K?P$V(G$I.W!J,B$R?I.H!D(Y?KF)C?J!B W$W,V:PQ$V!GL$C)I!Q"Z)G.D:O,V,J:P.N.X X,H.S:E"F(A:P(L:K"A$X.B!Q(K!W"I$A G"Y$Z(U L(Z?T,J?A(L:C,L.U(A?D(X.N?C,Q.Z$W)A$Z.O JJC?QE?W"R,L(F?F"A$J"W"SC"A.D?MP,U!Z)A(Q(Q(F,CZ!W?K$Z(I:U!R.LQ$N"I X N"I.J,S:C(L)JA$S(Z!K?Z.HR.PR D.Q N:E!R?N$GZ:T,A)R A$XB:F:T)S S(W$E$Q,Z$R,H$N)C(J,B,XIS.F.PQ"U?E:CJ(Y:Q?WC"B(J,J"EK.H H:K:I(B(D:S R)F,G?M:VM Y OM(Z)A!NJ.CWC$X!T?R!J,Q(P)J:C!A!Y:S(R!B,B(V!E)M.P)D(D R(J.R!EQ?K$D,C)Q$M D!C(K.Q O)N(Q.I"F!H.N$I)O$A)K?D?L,X"G U!S:H)L.Y"O:ZP.Y?Y.D:F?P$W"T?X,GШXQWXIHKAOGPQVZVJBYQQMJWUWFQOMADMTAWUSSAJPR
    Ответить

  • ava guest # 0

    Вы там в своем 2012-м над таким ржете, а мои коллеги такой код пишут с помощью AI, и не видят в этом ничего дурного
    Ответить

Добавить комментарий

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓