function monthtoch(themonth)
dim mm
mm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",")
if isnumeric(themonth) then
monthtoch = mm(themonth-1) & "月份"
else
monthtoch = " 月份"
end if
end function
月份转换到长英文
function monthtolongen(themonth)
dim mm
mm=split("january,february,march,april,may,june,july,august,september,october,november,december",",")
if isnumeric(themonth) then
monthtolongen = mm(themonth-1)
else
monthtolongen = " "
end if
end function
月份转换到短英文
function monthtoshorten(themonth)
dim mm
mm=split("jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec",",")
if isnumeric(themonth) then
monthtoshorten = mm(themonth-1)
else
monthtoshorten = " "
end if
end function
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
