- 1
- 2
- 3
- 4
- 5
- 6
- 7
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
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−359
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
вообще это по линку cfdevа лежало в #3142
http://www.sql.ru/forum/actualthread.aspx?bid=9&tid=467673&hl=
но он не запостил самое гавно - то есть этот кусок
и его походу мало кто заметил
2. потому что он понятный, смешной и крайне тупой + не фейк
разве что баян, поскольку линк на него уже был за это я конечно извиняюсь
ежели желаете могу свой говнокод запостить,
но многие могут не понять в чем собсно говно...
>>>Проясняется происхождение гк #3162 :)
хотел тоже написать, но я уже в той теме 2 поста об этом написал ))
Хмм-м. Проясняется происхождение гк #3162 :)
еще варианты?
чертово +13
чертовски хорошее +666
дьявольски хорошее +666
классическое +1024
и, наконец, неожиданное 0
господа, не останавливайтесь, делайте ваши ставки!
// "общее образование" - это я не мог вспомнить словосочетание "общее развитие" =\
If(condition, true_result, false_result)
только, вот, не нужен он тут ни на хрен, оптимально писать
Return Dat1.Month > 3 AndAlso Dat1.Month < 9