我写的一个日期转为汉字vbscript函数

'-------------------------下面的函数把日期格式2006-12-12转成公元二零零六年十二月十二日-------------
Function dateToStr(dateStr)
Dim numStr(10),dateArray,returnStr,I
numStr(0)="零"
numStr(1)="一"
numStr(2)="二"
numStr(3)="三"
numStr(4)="四"
numStr(5)="五"
numStr(6)="六"
numStr(7)="七"
numStr(8)="八"
numStr(9)="九"
dateArray = Split(dateStr, "-", -1, 1)
'下面处理年份----------------------------------------------
returnStr="公元"
I=Cint(Mid(dateArray(0),1,1))
returnStr=returnStr+numStr(I)
I=Cint(Mid(dateArray(0),2,1))
returnStr=returnStr+numStr(I)
I=Cint(Mid(dateArray(0),3,1))
returnStr=returnStr+numStr(I)
I=Cint(Mid(dateArray(0),4,1))
returnStr=returnStr+numStr(I)
returnStr=returnStr+"年"
'下面处理月份----------------------------------------------
If Mid(dateArray(1),2,1)<>"" Then
returnStr=returnStr+"十"
I=Cint(Mid(dateArray(1),2,1))
If I<>0 Then
returnStr=returnStr+numStr(I)
End If
Else
I=Cint(Mid(dateArray(1),1,1))
returnStr=returnStr+numStr(I)
End If
returnStr=returnStr+"月"
'下面处理日份----------------------------------------------
If Mid(dateArray(2),2,1)<>"" Then
I=Cint(Mid(dateArray(2),1,1))
If I=1 Then
returnStr=returnStr+"十"
Else
returnStr=returnStr+numStr(I)+"十"
End If
I=Cint(Mid(dateArray(2),2,1))
If I<>0 Then
returnStr=returnStr+numStr(I)
End If
Else
I=Cint(Mid(dateArray(2),1,1))
returnStr=returnStr+numStr(I)
End If
returnStr=returnStr+"日"
dateToStr=returnStr
End function

[本日志由 风吟 于 2008-05-10 10:44 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 学习学习 程序程序
相关日志: