Cacher is the code snippet organizer for pro developers

Function MonthNameToNumber_HU(strMonth As String) As Integer
'Description: Converts month string to number
'Inputs:      month as string
'Outputs:     number of months 1-12

    Select Case strMonth
        Case "január":      MonthNameToNumber_HU = 1
        Case "február":     MonthNameToNumber_HU = 2
        Case "március":     MonthNameToNumber_HU = 3
        Case "április":     MonthNameToNumber_HU = 4
        Case "május":       MonthNameToNumber_HU = 5
        Case "június":      MonthNameToNumber_HU = 6
        Case "július":      MonthNameToNumber_HU = 7
        Case "augusztus":   MonthNameToNumber_HU = 8
        Case "szeptember":  MonthNameToNumber_HU = 9
        Case "október":     MonthNameToNumber_HU = 10
        Case "november":    MonthNameToNumber_HU = 11
        Case "december":    MonthNameToNumber_HU = 12
    End Select

End Function

Function MonthNameToNumber_EN(strMonth As String) As Integer
'Description: Converts month string to number
'Inputs:      month as string
'Outputs:     number of months 1-12

    Select Case strMonth
        Case "January":   MonthNameToNumber_EN = 1
        Case "February":  MonthNameToNumber_EN = 2
        Case "March":     MonthNameToNumber_EN = 3
        Case "April":     MonthNameToNumber_EN = 4
        Case "May":       MonthNameToNumber_EN = 5
        Case "June":      MonthNameToNumber_EN = 6
        Case "July":      MonthNameToNumber_EN = 7
        Case "August":    MonthNameToNumber_EN = 8
        Case "September": MonthNameToNumber_EN = 9
        Case "October":   MonthNameToNumber_EN = 10
        Case "November":  MonthNameToNumber_EN = 11
        Case "December":  MonthNameToNumber_EN = 12
    End Select

End Function