<%
'Converter mês para chinês
Função MêsToCH(OMês)
Dim mm
mm=dividir("Um, dois, três, quatro, cinco, seis, sete, oito, nove, dez, onze, doze",",")
Se IsNumeric(TheMonth) então
MonthToCH = mm(TheMonth-1) & "mês"
Outro
MêsToCH = "mês"
Terminar se
Função final
'Converter mês para inglês longo
Função MonthToLongEN(TheMonth)
Dim mm
mm=split("Janeiro,fevereiro,março,abril,maio,junho,julho,agosto,setembro,outubro,novembro,dezembro",",")
Se IsNumeric(TheMonth) então
MonthToLongEN = mm(TheMonth-1)
Outro
MêsToLongEN = " "
Terminar se
Função final
'Converter mês para inglês curto
Função MonthToShortEN(TheMonth)
Dim mm
mm=split("janeiro,fevereiro,março,abril,maio,junho,julho,agosto,setembro,outubro,novembro,dezembro",",")
Se IsNumeric(TheMonth) então
MonthToShortEN = mm(TheMonth-1)
Outro
MonthToShortEN = " "
Terminar se
Função final
%>