数字小写到英文大写的转换
2006-02-02 11:37
429 查看
数字小写到英文大写的转换 | ||||||||||
日期:2004年8月13日 作者:gaojian 人气: < src="../Hits.asp?ArticleID=2922" type="text/javascript"> 7124 今日:6 [大 中 小] | ||||||||||
FUNCTION convertsz(sz) 'PARAMETERS sz 'PRIVATE xs,sz1,sz2,sz3 IF sz > 1000000000 then '超过处理范围提示 convertsz="Number is too big" '数字大于10亿,超过处理范围! exit FUNCTION END IF sz=INT(sz*100+0.5)/100 ' 小数超过两位四舍五入 xs=((sz-int(sz))*100) MOD 100 ' 取小数点后两位有效数字 IF xs>0 then 'cha=" AND"&conv3(xs)&" CENTS" ' 转换小数 cha=" AND "&xs&" CENTS" ELSE cha="" END IF sz1=INT((sz MOD 1000)) ' sz1为百、十、个3位数字 sz=INT(sz/1000) ' sz为千位以上数字(含千位) cha=conv3(sz1)&cha ' 转换(sz1) IF sz>0 then sz2=(sz MOD 1000) ' sz2为十万、万、千3位数字 sz=INT(sz/1000) ' sz为百万位以上数字(含百万位) IF sz2=0 then IF sz1=0 then ' (sz2)如果为'0',判断在百位之前是否加'AND' cha=cha ELSE cha=" AND"&cha END IF ELSE cha=conv3(sz2)&" THOUSAND"&cha ' 如果不为'0'转换(sz2) END IF IF sz>0 then sz3=(sz MOD 1000) ' sz3为亿、千万、百万3位数字 cha=conv3(sz3)&" MILLION"&cha ' 转换(sz3) END IF END IF 'cha="DOLLAR"&cha ' 在转换的结果之前加'DOLLAR' 'RETURN cha convertsz=cha end FUNCTION FUNCTION conv3(je) 'PARAMETERS je 'PRIVATE jews,je1,je2,je3,tmp IF je<=0 then convertsz="" exit FUNCTION END IF je1=(je MOD 10) je=INT(je/10) IF je=0 then ' 判断数字位数(1-3)并把3位数字分别存放在je1、je2、je3中 jews=1 ELSE je2=(je MOD 10) je=INT(je/10) IF je=0 then jews=2 ELSE je3=(je MOD 10) jews=3 END IF END IF IF jews=1 then tmp=conv1(je1) '如果位数为1,直接转换 conv3=tmp 'exit FUNCTION 'RETURN tmp ELSE IF je1+10*je2<20 then ' 转换20以下数字 tmp=conv1(je1+10*je2) ELSE ' 转换20-99数字 IF je1=0 then tmp=conv2(je2) ELSE 'tmp=conv2(je2)&" -"&conv1(je1) tmp=conv2(je2)&conv1(je1) END IF END IF IF jews=3 then '转换百位数字 IF je1+10*je2=0 then tmp=conv1(je3)&" HUNDRED" ELSE IF je1+10*je2<20 then tmp=conv1(je3)&" HUNDRED AND"&tmp ELSE tmp=conv1(je3)&" HUNDRED"&tmp END IF END IF END IF conv3=tmp END IF end FUNCTION FUNCTION conv2(SUM) 'PARAMETERS SUM aaa="" select CASE SUM CASE 2 aaa=" TWENTY" CASE 3 aaa=" THIRTY" CASE 4 aaa=" FORTY" CASE 5 aaa=" FIFTY" CASE 6 aaa=" SIXTY" CASE 7 aaa=" SEVENTY" CASE 8 aaa=" EIGHTY" CASE 9 aaa=" NINETY" END select conv2=aaa end FUNCTION FUNCTION conv1(SUM) 'PARAMETERS SUM aaa="" select CASE SUM CASE 1 aaa=" ONE" CASE 2 aaa=" TWO" CASE 3 aaa=" THREE" CASE 4 aaa=" FOUR" CASE 5 aaa=" FIVE" CASE 6 aaa=" SIX" CASE 7 aaa=" SEVEN" CASE 8 aaa=" EIGHT" CASE 9 aaa=" NINE" CASE 10 aaa=" TEN" CASE 11 aaa=" ELEVEN" CASE 12 aaa=" TWELVE" CASE 13 aaa=" THIRTEEN" CASE SUM=14 aaa=" FOURTEEN" CASE 15 aaa=" FIFTEEN" CASE 16 aaa=" SIXTEEN" CASE 17 aaa=" SEVENTEEN" CASE 18 aaa=" EIGHTEEN" CASE SUM=19 aaa=" NINETEEN" END select conv1=aaa end FUNCTION fff=123456789.45 response.write fff&"<br>" xx=convertsz(fff) response.write xx %> (出处:devclub) | ||||||||||
相关文章: | ||||||||||
| ||||||||||
相关软件: | ||||||||||
| ||||||||||
说明:本站部分内容收集于网络,如有侵犯您的权益请来信告知,我们会第一时间进行处理,谢谢 |
相关文章推荐
- 数字小写到英文大写的转换
- 把数字小写转换成大写,把数字转化成英文
- Word转换英文为大写小写的方法
- 写一个方法完成如下功能,判断从文本框textbox1输入的一个字符,如果是数字则求该数字的阶乘,如果是小写字条,则转换为大写,大写字符不变,结果在文本框textbox2中显示
- 小写数字金额,转换成大写中文,绝无错误
- JS数字小写转换大写
- 编程实现英文数字到中文大写数字的转换
- 将小写金额转换为英文大写的SQL函数
- js实现小写数字转换为大写的方法
- C/C++小写数字转换成大写数字
- 数字转换成英文大写的SQL函数
- C# 字符、字符串过滤,只能输入数字、中文、英文、大写、小写(转)
- js中如何将小写数字金额转换成大写中文数字
- 利用创建型工厂方法模式编写小写数字金额转换为人民币大写C#代码。
- 小写数字转换为中文大写的最完整C#方案
- sql server 关于表中只增标识问题 C# 实现自动化打开和关闭可执行文件(或 关闭停止与系统交互的可执行文件) ajaxfileupload插件上传图片功能,用MVC和aspx做后台各写了一个案例 将小写阿拉伯数字转换成大写的汉字, C# WinForm 中英文实现, 国际化实现的简单方法 ASP.NET Core 2 学习笔记(六)ASP.NET Core 2 学习笔记(三)
- 将小写金额转换为英文大写的SQL函数
- 大写金额转换小写数字金额(美图2017线下笔试题)
- C#小写数字金额转换成大写人民币金额的算法
- 小写数字转换为中文大写的最完整C#方案