Option
Explicit
Option
Compare Text
Public
Function
GetMonthId(Month
As
String
)
As
Integer
Select
Case
Month
Case
"Januar"
,
"Jan"
,
"January"
GetMonthId = 1
Case
"Februar"
,
"Feb"
,
"February"
GetMonthId = 2
Case
"März"
,
"Mrz"
,
"March"
,
"Mar"
GetMonthId = 3
Case
"April"
,
"Apr"
,
"April"
GetMonthId = 4
Case
"Mai"
,
"Mai"
,
"May"
,
"May"
GetMonthId = 5
Case
"Juni"
,
"Jun"
,
"June"
GetMonthId = 6
Case
"Juli"
,
"Jul"
,
"July"
GetMonthId = 7
Case
"August"
,
"Aug"
,
"August"
GetMonthId = 8
Case
"September"
,
"Sep"
,
"September"
GetMonthId = 9
Case
"Oktober"
,
"Okt"
,
"October"
,
"Oct"
GetMonthId = 10
Case
"November"
,
"Nov"
,
"November"
GetMonthId = 11
Case
"Dezember"
,
"Dez"
,
"December"
,
"Dec"
GetMonthId = 12
Case
Else
GetMonthId = 0
End
Select
End
Function