拓文网络 → 网站编程 → ASP - 数字转中文大写程序


		《拓文asp.net网站内容管理系统》官方演示站。	设为首页
			收藏本站
			作者：黄振安
			ＱＱ：53854651

站内搜索：

您现在的位置：拓文网络 → 网站编程 → ASP → 数字转中文大写程序 - 3［正文］

热门文章

asp.net开发wap必备：更好的匹配手机设备

用ashx动态生成文件

windows 2003下asp.Net站点无法使用用户名＋密码的方

ASP.NET中17种正则表达式

提高ASP.Net应用程序性能的十大方法

一个通过web.Mail发送邮件的类

数字转中文大写程序 - 3

［作者：不详转贴自：不详点击数：更新时间：2006-3-14 9:18:37］

<SCRIPT LANGUAGE=vbs>
N=34334100000.0502'假设N不是负数,末尾不带0
Snz=split(cstr(N),".")(0)'整数部分转字串
A=array( "零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
B=array("元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万")
C=array("角","分","厘","毫")
WeiSz=len(cstr(int(Snz)))'整数位数
for i=1 to WeiSz
              JieG=JieG & A(cint(mid(Snz,i,1)))
              if cint(mid(Snz,i,1))<>0 or _
              (WeiSz-i)=0 or (WeiSz-i)=4 or _
              (WeiSz-i)=8 or (WeiSz-i)=12 then JieG=JieG & B(WeiSz-i)
JieG=replace(JieG,"零零","")
next
JieG=replace(JieG,"零","")
if N<>int(N) then
       JieG=JieG & "零"
       Snx=split(cstr(N),".")(1)'小数部分转字串
       WeiSx=len(cstr(int(Snx)))'小数位数
       for i=1 to WeiSx
              if cint(mid(Snx,i,1))=0 then i=i+1
              JieG=JieG & A(cint(mid(Snx,i,1))) & C(i-1)
       next
end if
msgbox JieG
</SCRIPT>

首页 | 1 | 尾页共 1 页

hch004

打印本页

关闭窗口

文章评论

	评论人	查看该文章的评论	发表时间
笔名* ： 0 50分 60分 70分 80分 90分 100分评论内容 *：（最多1000字。当前字数：0）
没有相关评论，欢迎您参与！