这里记录了我青春的10多年时光,已在2012年开始停更了,有时间再迁移到新系统,部分内容改编成了歌曲,有兴趣可以收听下专辑《逝去的那些年》!! 
                    
                                          ----2024.09.10 凌封

我写的一个日期转为汉字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: 学习 程序
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1679
发表评论
昵 称: *
密 码: 游客不需要密码.
邮 箱: *
网 址:
验证码: 验证码
选 项:
内 容:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭