日期转大写的代码
来源:互联网 发布:ubuntu 16 安装samba 编辑:程序博客网 时间:2024/05/17 02:59
'2004-6-11 => 二零零四年六月十一日
Function D(x)
if int(split(x,"-")(2)/10)=0 then D=D & F(split(x,"-")(2)) else _
if split(x,"-")(2) mod 10 =0 then D=D & F(int(split(x,"-")(2)/10)) & "十" else _
D=D & F(int(split(x,"-")(2)/10)) & "十" & F(split(x,"-")(2) mod 10)
D=F(split(x,"-")(0)) & "年" & MonthName(split(x,"-")(1),True) & replace(D,"一十","十") & "日"
end Function
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
msgbox D(Date)
- 日期转大写的代码
- 日期转大写的代码
- 日期转大写函数
- 阿拉伯数字转中文大写,以及票据日期的写法
- 日期大写
- 金额转大写及日期转大写(java)
- 金额及日期大写的正确写法
- 大写日期转换成阿拉伯数字的算法
- 将大写日期转成阿拉伯数字类型的
- 将大写日期转成阿拉伯数字类型的
- 一个php下的人民币小写转大写的代码
- 水晶报表自定义函数进行代码重用 -日期大写
- java将小写的日期转换为大写的日期
- 货币 和 日期 转 中文大写
- java实现日期转中文大写形式
- 人民币小写转大写代码
- C#数字转大写代码
- 30行,金额转人民币大写的代码
- Asp Object 对象
- MIME Formats in IIS5.0
- 限制某段IP地址
- 法国反微软的檄文:《虚拟空间的陷阱》
- 汉字读音表GB2312版 (共7809个汉字)
- 日期转大写的代码
- 数据库导出xml、htm、csv、sql
- 超人气贴!利用失重现象宇航员也许就不会死。。。
- 万里长城
- 开篇明志:李开复写给中国学生的一封信
- 可不可以不勇敢
- 十二星座最怕失去的东西
- 字母的爱情含义
- log my tech notes