转换为英语版

2010-1-31 07:53| 发布者: admin| 查看: 40| 评论: 0|原作者: 天仙子

function FormatEnTime(theTime)
dim myArray1,myArray2,years,months,days
FormatEnTime=""
myArray1=split(theTime," ")
theTime=myArray1(0)
myArray2=split(theTime,"-")
years=myArray2(0)
months=myArray2(1)
days=myArray2(2)
select case months
case "1"
months="January"
case "2"
months="February"
case "3"
months="March"
case "4"
months="April"
case "5"
months="May"
case "6"
months="June"
case "7"
months="July"
case "8"
months="August"
case "9"
months="September"
case "10"
months="October"
case "11"
months="November"
case else
months="December"
end select
theTime=months&" "&days&","&years
FormatEnTime=theTime '输出的结果
End Function
上面为程序代码，调用就用<%=FormatEnTime(rs("日期字段"))%>。

收藏分享邀请

		自动登录	找回密码
密码			注册

转换为英语版

最新评论

相关分类