日期数字转中文的函数

 1<script language="JavaScript">   
 2function number(index1){   
 3var numberstring="一二三四五六七八九十";   
 4if(index1 ==0) {document.write("十")}   
 5if(index1 < 10){   
 6document.write(numberstring.substring(0+(index1-1),index1))}   
 7else if(index1 < 20 ){   
 8document.write("十"+numberstring.substring(0+(index1-11),(index1-10)))}   
 9else if(index1 < 30 ){   
10document.write("二十"+numberstring.substring(0+(index1-21),(index1-20)))}   
11else{   
12document.write("三十"+numberstring.substring(0+(index1-31),(index1-30)))}   
13}   
14function years(index1){   
15var numberstring="零一二三四五六七八九";   
16document.write("公元")   
17index1=new String(index1)   
18for(var i=0;i<4;i++){   
19document.write(numberstring.substr(index1.substr(i,1),1))   
20}   
21}   
22  
23var today1 = new Date()   
24var year=today1.getYear()   
25var month = today1.getMonth()+1   
26var date = today1.getDate()   
27var day = today1.getDay()   
28  
29years(year)   
30document.write("年")   
31number(month)   
32document.write("月")   
33number(date)   
34document.write("日")   
35</script>

 1   
 2Function sjcatCDate(sDate,DelimeterChar)   
 3Dim tmpArr   
 4Dim dArr(9)   
 5tmpArr = Split(sDate,DelimeterChar)   
 6If not IsArray(tmpArr) Then   
 7sjcatCDate = "非法日期"   
 8exit function   
 9End If   
10dArr(0) = "零"   
11dArr(1) = "一"   
12dArr(2) = "二"   
13dArr(3) = "三"   
14dArr(4) = "四"   
15dArr(5) = "五"   
16dArr(6) = "六"   
17dArr(7) = "七"   
18dArr(8) = "八"   
19dArr(9) = "九"   
20For i = 0 to 9   
21tmpArr(0) = Replace(tmpArr(0),CStr(i),dArr(i))   
22Next   
23tmpArr(0) = tmpArr(0) & "年"   
24tmpArr(1) = CInt(tmpArr(1))   
25If len(tmpArr(1)) = 1 Then   
26tmpArr(1) = dArr(tmpArr(1)) & "月"   
27Else   
28tmpArr(1) = "十" & dArr(CInt(Right(tmpArr(1),1))) & "月"   
29tmpArr(1) = Replace(tmpArr(1),"零","")   
30End If   
31If UBound(tmpArr) = 2 Then   
32tmpArr(2) = CInt(tmpArr(2))   
33If Len(tmpArr(2)) = 2 Then   
34tmpArr(2) = dArr(CInt(Left(tmpArr(2),1))) & "十" & dArr(CInt(Right(tmpArr(2),1))) & "日"   
35tmpArr(2) = Replace(tmpArr(2),"零","")   
36Else   
37tmpArr(2) = dArr(tmpArr(2)) & "日"   
38End If   
39End If   
40  
41sjcatCDate = Join(tmpArr,"")   
42End Function   

 1<script language="vbs">   
 2Dim A,B,C,D,E   
 3A="1982-10-31"   
 4B=split(A,"-")(0)   
 5C=split(A,"-")(1)   
 6D=split(A,"-")(2)   
 7if int(D/10)=0 then E=E & F(D) else _   
 8if D mod 10 =0 then E=E & F(int(D/10)) & "十" else _   
 9E=E & F(int(D/10)) & "十" & F(D mod 10)   
10E=F(B) & "年" & MonthName(C,True) & replace(E,"一十","十") & "日"   
11msgbox E   
12Function F(x)   
13for i=1 to len(x)   
14F=F & left(MonthName(mid(x,i,1), True),1)   
15next   
16end Function   
17</script>