Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
Private Function DecodName(ByVal ind As Integer) As String
''перекодування назви місяця
Select Case ind
Case 1
Return "Січень"
Case 2
Return "Лютий"
Case 3
Return "Березень"
Case 4
Return "Квітень"
Case 5
Return "Травень"
Case 6
Return "Червень"
Case 7
Return "Липень"
Case 8
Return "Серпень"
Case 9
Return "Вересень"
Case 10
Return "Жовтень"
Case 11
Return "Листопад"
Case 12
Return "Грудень"
Case Else
Return ""
End Select
End Function
Private Sub redecodename(ByVal month As String, ByRef id As Integer)
Select Case month
Case "Січень"
id = 1
Case "Лютий"
id = 2
Case "Березень"
id = 3
Case "Квітень"
id = 4
Case "Травень"
id = 5
Case "Червень"
id = 6
Case "Липень"
id = 7
Case "Серпень"
id = 8
Case "Вересень"
id = 9
Case "Жовтень"
id = 10
Case "Листопад"
id = 11
Case "Грудень"
id = 12
End Select
End Sub
vova94 # 0
Select Case month
Case "Січень"
id = 1
Case "Лютий"
id = 2
Case "Березень"
id = 3
Case "Квітень"
id = 4
Case "Травень"
id = 5
Case "Червень"
id = 6
Case "Липень"
id = 7
Case "Серпень"
id = 8
Case "Вересень"
id = 9
Case "Жовтень"
id = 10
Case "Листопад"
id = 11
Case "Грудень"
id = 12
End Select
End Sub
И в обратку...)
1024-- # 0
После европейских названий месяцев и правда смотрится как-то необычно.
CHayT # 0 ⇈
SemaReal # 0 ⇈
Обратите внимание на судьбу месяца Листопад.
У ховатов он куда-то съехал.
inkanus-gray # 0 ⇈
Increment_Excrement # 0 ⇈
guest # 0 ⇈
inkanus-gray # 0 ⇈
SemaReal # 0 ⇈
SemaReal # 0
inkanus-gray # 0
1024-- # 0 ⇈
SemaReal # 0 ⇈
vofka-vofka # 0 ⇈
3.14159265 # 0 ⇈
guest # 0 ⇈
Заебал
guest # 0 ⇈