<%
'Monat in Chinesisch umwandeln
Funktion MonthToCH(TheMonth)
Abgedunkelt mm
mm=split("Eins, zwei, drei, vier, fünf, sechs, sieben, acht, neun, zehn, elf, zwölf",,")
If IsNumeric(TheMonth) Then
MonthToCH = mm(TheMonth-1) & „Monat“
Anders
MonthToCH = „Monat“
Ende wenn
Funktion beenden
'Konvertieren Sie Monat in Langenglisch
Funktion MonthToLongEN(TheMonth)
Abgedunkelt mm
mm=split("Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember",",")
If IsNumeric(TheMonth) Then
MonthToLongEN = mm(TheMonth-1)
Anders
MonthToLongEN = " "
Ende wenn
Funktion beenden
'Konvertieren Sie den Monat in Kurzenglisch
Funktion MonthToShortEN(TheMonth)
Abgedunkelt mm
mm=split("Jan,Feb,Mär,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez",",")
If IsNumeric(TheMonth) Then
MonthToShortEN = mm(TheMonth-1)
Anders
MonthToShortEN = " "
Ende wenn
Funktion beenden
%>