0 then 'cha=" AND"&conv3(xs)&" CENTS" ' 转换小数 cha=" AND "&x"/>

英文数字大写

2017-10-25 7页 doc 19KB 15阅读

用户头像

is_995397

暂无简介

举报
英文数字大写英文数字大写 英文数字大写 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&" CE...
英文数字大写
英文数字大写 英文数字大写 <% 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&"
" xx=convertsz(fff) response.write xx %>
/
本文档为【英文数字大写】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索