《2022年英文数字大写 .pdf》由会员分享，可在线阅读，更多相关《2022年英文数字大写 .pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、英文数字大写 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 xs0 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 为千位以上数字（
2、含千位）cha=conv3(sz1)&cha 转换（sz1）IF sz0 then sz2=(sz MOD 1000)sz2 为十万、万、千3 位数字sz=INT(sz/1000)sz 为百万位以上数字（含百万位）IF sz2=0 then 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 8 页 -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 sz0 then sz3=(sz
3、 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=名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 8 页 -exit FUNCTION END IF je1=(je MOD 10)
4、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*je220 then 转换 20 以下数字名师资料总结-精品资料欢迎下载-名师精心整理-第
5、3 页，共 8 页 -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*je220 then tmp=conv1(je3)&HUNDRED AND&tmp ELSE tmp=conv1(je3)&HUNDRED&tmp
6、 END IF END IF END IF conv3=tmp END IF 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 8 页 -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 名师资料总结-精品资料欢迎下载-
7、名师精心整理-第 5 页，共 8 页 -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 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 8 页 -CASE 9 aaa=NINE CASE 10 aaa=
8、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 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 8 页 -END select conv1=aaa end FUNCTION fff=123456789.45 response.write fff&xx=convertsz(fff)response.write xx%名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 8 页 -