<%
'Преобразовать месяц в китайский
Функция MonthToCH(TheMonth)
Размер мм
mm=split("Один, два, три, четыре, пять, шесть, семь, восемь, девять, десять, одиннадцать, двенадцать",",")
Если IsNumeric(TheMonth) Тогда
MonthToCH = мм(TheMonth-1) & «месяц»
Еще
MonToCH = "месяц"
Конец, если
Конечная функция
'Преобразовать месяц в длинный английский
Функция MonthToLongEN(TheMonth)
Размер мм
mm=split("Январь,февраль,март,апрель,май,июнь,июль,август,сентябрь,октябрь,ноябрь,декабрь",",")
Если IsNumeric(TheMonth) Тогда
МесяцToLongEN = мм(TheMonth-1)
Еще
МесяцТоЛонгЕН = " "
Конец, если
Конечная функция
'Преобразовать месяц в сокращенный английский
Функция MonthToShortEN(TheMonth)
Размер мм
mm=split("Январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь",",")
Если IsNumeric(TheMonth) Тогда
МесяцToShortEN = мм(TheMonth-1)
Еще
МесяцToShortEN = " "
Конец, если
Конечная функция
%>