资料介绍：

//10行代码搞定金额大小写转换 //原创 渴死的鱼 hanlin2020@hotmail.com //改编 inRm inrm@263.net function NumToChar( n:Real): wideString; //可以到万亿,并可随便扩大 const cNum:WideString=‘零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分‘; cCha:array[0..1, 0..11]of string = (( ‘零仟‘,‘零佰‘,‘零拾‘,‘零零零‘,‘零零‘, ‘零亿‘,‘零万‘,‘零元‘,‘亿万‘,‘零角‘,‘零分‘,‘零整‘), ( ‘零‘,‘零‘,‘零‘,‘零‘,‘零‘,‘亿‘,‘万‘,‘元‘,‘亿‘,‘零‘,‘整‘,‘整‘)); var i :Integer; sNum :WideString; begin result := ‘‘; sNum := FormatFloat(‘0‘,n*100); for i := 1 to Length(sNum) do result := result + cNum[ord(sNum[i])-47] + cNum[26-Length(sNum)+i]; for i:= 0 to 11 do //去掉多余的零 result := StringReplace(result, cCha[0,i], cCha[1,i], [rfReplaceAll]); end; 

软件大小:
1KB

点击浏览（浏览前请阅读声明）：
点击查看-> 10行代码搞定金额大小写转换 rar

注意：
1、点击链接之后，将会出现一个下载页面链接或者直接下载，有本地资源下载，也有其它网站资源远程下载；
2、若您下载的rar压缩文件需要密码才能打开，则请输入：www.tomx.com#0909(红色部分)；

[推荐此页给朋友] [到会员俱乐部发表看法]