这里记录了我青春的10多年时光,已在2012年开始停更了,有时间再迁移到新系统,部分内容改编成了歌曲,有兴趣可以收听下专辑《逝去的那些年》!!
----2024.09.10 凌封
我写的一个日期转为汉字vbscript函数
作者:风吟 日期:2006-11-24
'-------------------------下面的函数把日期格式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
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
评论: 0 | 引用: 0 | 查看次数: 1690
发表评论