<%
'Convertir mes a chino
Función MesACH(ElMes)
mm tenue
mm=split("Uno, dos, tres, cuatro, cinco, seis, siete, ocho, nueve, diez, once, doce",",")
Si es numérico (el mes) entonces
MonthToCH = mm(TheMonth-1) & "mes"
Demás
MesToCH = "mes"
Terminar si
Función final
'Convertir mes a inglés largo
Función MonthToLongEN(TheMonth)
mm tenue
mm=split("enero,febrero,marzo,abril,mayo,junio,julio,agosto,septiembre,octubre,noviembre,diciembre",",")
Si es numérico (el mes) entonces
MesToLargoEN = mm(ElMes-1)
Demás
MesToLongES = " "
Terminar si
Función final
'Convertir mes a inglés corto
Función MonthToShortEN(TheMonth)
mm tenue
mm=split("enero, febrero, marzo, abril, mayo, junio, julio, agosto, septiembre, octubre, noviembre, diciembre",")
Si es numérico (el mes) entonces
MesACortoEN = mm(ElMes-1)
Demás
MonthToShortEN = " "
Terminar si
Función final
%>