数字字串（钱）转换为中文（大写）
时间： 2021-07-31 作者：daque
常有人问及钱或数字串要怎样变换为华文？因为转过来是一个比拟烦恼的工作。自己耐着本质把它搞定。现将自己尝试时的步调代码贴上，我是将它们变换为小写的华文，蓄意大师用时简单少许。固然这是比拟烦的了，不重要，渐渐看。呵呵......代码如次：<html><head><meta name="generator" content="microsoft visual studio 6.0"><script language=vbscript><!--dim aa,bbfunction do_change(typeid)dim wordarr(11), unitarr1(4), unitarr2(4), unitarr3(3)dim int1 ' 平头部份dim point1 ' 少量部份dim int1_str ' 平头部份dim point1_str ' 少量部份dim str1, len1, i,jdim idx1, idx2,idx3, unit_tagaa=testm.text1.valueif not isnumeric(aa) then ' check errormsgbox "input is no number"exit functionend ifif typeid = "money" thenstr1 = formatnumber(aa, 2, -1, 0)elsestr1 = formatnumber(aa, 20, -1, 0)end ifstr1 = replace(str1, ",", "")len1 = len(str1)wordarr(1) = "零"wordarr(2) = "壹"wordarr(3) = "贰"wordarr(4) = "参"wordarr(5) = "肆"wordarr(6) = "伍"wordarr(7) = "陆"wordarr(8) = "柒"wordarr(9) = "捌"wordarr(10) = "玖"unitarr1(1) = "拾"unitarr1(2) = "佰"unitarr1(3) = "仟"unitarr2(1) = "万"unitarr2(2) = "亿"unitarr2(3) = "兆"unitarr3(1) = "角"unitarr3(2) = "分"j = 0for i = 1 to len1if mid(str1,i,1) = "." then '将数字分红平头局部,及少量局部j = iexit forend ifnextif j <> 0 thenint1 = mid(str1, 1, j - 1)point1 = mid(str1, j + 1, len1)elseint1 = str1point1 = nullend iflen1 = len(int1)if len1 = 0 or int1 = "0" thenint1_str = "零"elsej = 0for i = len1 to 1 step -1j = j + 1idx1 = mid(int1,j,1)idx2 = (i - 1) / 4idx3 = (i - 1) mod 4if idx3 = 0 thenif idx1 <> 0 thenint1_str = rtrim(int1_str) & wordarr(idx1 + 1)unit_tag = "n"end ifif idx2 <> 0 thenif unit_tag <> "y" thenint1_str = rtrim(int1_str) & unitarr2(idx2)unit_tag = "y"end ifend ifelseif idx1 <> 0 thenint1_str = rtrim(int1_str) & wordarr(idx1 + 1) & unitarr1(idx3)unit_tag = "n"elseif int1(j + 1) <> 0 thenint1_str = rtrim(int1_str) & wordarr(1)unit_tag = "n"end ifend ifend ifnextend iflen1 = len(point1)if len1 = 0 or point1 = "00" thenpoint1_str = "零"elseif typeid = "money" thenif mid(point1,1,1) = "0" thenpoint1_str = "零"end iffor p_1 = 1 to len1idx1 = mid(point1,p_1,1)if idx1 <> 0 thenpoint1_str = rtrim(point1_str) & wordarr(idx1 + 1) & unitarr3(p_1)end ifnextelsefor p_1 = len1 to 1 step -1idx1 = mid(point1,p_1,1)if idx1 <> 0 thenpoint1_str = wordarr(idx1 + 1) & rtrim(point1_str)end ifnextend ifend ifif typeid = "money" thenif int1_str <> "零" or j = 0 thenbb = rtrim(int1_str) & "元"end ifif point1_str <> "零" thenbb = rtrim(bb) & rtrim(point1_str) & "整"elsebb = rtrim(bb) & "整"end ifelsebb = rtrim(int1_str)if point1_str <> "零" and trim(point1_str) <>"" thenbb = rtrim(bb) & "点" & rtrim(point1_str)end ifend iftestm.text2.value = bbend function --></script></head><body><form method="post" name="testm" id="testm" action="testm.asp"> <p><input id=text1 name=text1><br><input id=button1 name=button1 type=button value="money" onclick="do_change('money')"><input id=button2 name=button2 type=button value="normal" onclick="do_change('normal')"><br><input id=text2 name=text2 style="height: 22px; width: 447px"></p></form></body></html>固然， 那位若有更好更简单的本领， 可别忘了也报告我一下， 让我也超过超过。 fz_chenjl@163.net ok !?!?
相关推荐
推荐下载
热门阅览
最新排行
- 1 手机如何装windows系统，手机装windows系统教程
- 2 微信公众号重大调整 新公注册公众号将没有留言功能
- 3 烧杯app最剧烈的反应有哪些？ 烧杯app攻略
- 4 微信小程序怎么用 微信小程序使用教程
- 5 360快剪辑怎么使用？360快剪辑图文视频教程
- 6 八分音符外挂神器：绝望中的战斗机
- 7 2017热门微信小程序排行榜 微信小程序二维码大全
- 8 微信聊天记录导出到电脑 怎么在电脑上查看微信聊天记录
- 9 在U递上赚钱和省钱教程 教你在U递上怎么赚钱何省钱
- 10 u递邀请码申请教程 u递邀请码领取方法
- 11 如何解决爱奇艺账号登陆验证 跳过爱奇艺账号手机登录验证方法分享 亲测好用
- 12 手机申请无限制申请QQ靓号 手机怎样无限申请Q号