1. VisualBasic / Говнокод #3142

    −114

    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
    21. 21
    Public Function Cost(ByVal Vip1 As Boolean, ByVal Dat1 As Date, ByVal Kol1 As Integer, ByVal Cost1 As Decimal) As Decimal

        If Vip1 Then
            Return Bas(Cost1, Kol1) * 0.9 + IIf(Cost1 * Kol1 < 50, 50, Bas(Cost1, Kol1) * 0.11)
        Else
            Dim Sk1 As Decimal
            If Leto(Dat1) Then
                Sk1 = IIf(Bas(Cost1, Kol1) < 1000, 2, 3)
            Else
                Sk1 = IIf(Bas(Cost1, Kol1) < 1100, 3, 0)
            End If
            Dim Sk2 As Decimal = IIf(Kol1 > 500, 5, 0)
            Dim Sk3 As Decimal
            If Leto(Dat1) Then
                Sk3 = IIf(Bas(Cost1, Kol1) < 100, 100, Bas(Cost1, Kol1) * 0.1)
            Else
                Sk3 = IIf(Bas(Cost1, Kol1) < 110, 110, Bas(Cost1, Kol1) * 0.11)
            End If
            Return (Bas(Cost1, Kol1) - Bas(Cost1, Kol1) * Sk1 * 100 - Bas(Cost1, Kol1) * Sk2 * 100 + Sk3)
        End If
    End Function

    Стандартный ынтырпрайз-говнокод, но изюминка, собсно, не в нём, а в нём:

    http://www.sql.ru/forum/actualthread.aspx?bid=9&tid=467673&hl=

    2striker. теперь предпросмотр показывает всегда не php, а си. Спасибо за фикс.

    Запостил: cfdev, 01 Мая 2010

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

    • ava guest 01.05.2010 18:21 # 0

      Ыыы.
      Catch ex As Exception
            Throw New Exception("Вводите данные ПРАВИЛЬНО!")
End Try
      Ответить

    • ava UncleAli 01.05.2010 18:52 # +1

      Где-то здесь уже были отсылки к этому парню. Клиент, кстати, невменяемый - на любую разумную критику отвечал весьма резко. Потенциальный компаньон известного публике Уёбкилла.
      Ответить

    • ava 3.14159265 05.05.2010 16:21 # 0

      2 cfdev ты же самое говно не запостил - вот эти 2 функции меня особенно порадовали

      Private Function Leto(ByVal Dat1 As Date) As Boolean
      Return IIf(Dat1.Month > 3 And Dat1.Month < 9, True, False)
      End Function

      Private Function Bas(ByVal Cost1 As Decimal, ByVal Kol1 As Integer)
      Return Cost1 * Kol1
      End Function
      Ответить

    • ava DPNET 15.10.2011 02:19 # 0

      просто вибросить ненужные "длинные" конструкции и лишнюю переменную - уже на 12строк меньше
      Ответить

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