十多行代码转换成中文!
<SCRIPT LANGUAGE=vbs>
Dim A,B,C,D,E
A="1002-10-31"
B=split(A,"-")(0)
C=split(A,"-")(1)
D=split(A,"-")(2)
if int(D/10)=0 then E=E & F(D) else _
if D mod 10 =0 then E=E & F(int(D/10)) & "十" else _
E=E & F(int(D/10)) & "十" & F(D mod 10)
E=F(B) & "年" & MonthName(C,True) & replace(E,"一十","十") & "日"
msgbox E
Function F(x)
for i=1 to len(x)
if mid(x,i,1)="0" then F=F & "零" else F=F & left(MonthName(mid(x,i,1), True),1)
next
end Function
</SCRIPT>