数字小写到英文大写的转换

《数字小写到英文大写的转换》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、数字小写到英文大写的转换>>教育资源库<%FUNCTIONconvertsz(sz)’PARAMETERSsz’PRIVATExs,sz1,sz2,sz3IFsz>1000000000then’超过处理范围提示convertsz="Numberistoobig"’数字大于10亿，超过处理范围！exitFUNCTIONENDIFsz=INT(sz*100+0.5)/100’小数超过两位四舍五入xs=((sz-int(sz))*100)MOD100’取小数点后两位有效数字IFxs>0then’cha="AND"conv3(xs)"CENTS"’转换小数cha="AND"x

2、s"CENTS"ELSEcha=""ENDIFsz1=INT((szMOD1000))’sz1为百、十、个3位数字sz=INT(sz/1000)’sz为千位以上数字（含千位）cha=conv3(sz1)cha’转换（sz1）IFsz>0thensz2=(szMOD1000)’sz2为十万、万、千3位数字sz=INT(sz/1000)’sz为百万位以上数字（含百万位）IFsz2=0thenIFsz1=0then’（sz2）如果为’0’，判断在百位之前是否加’AND’cha=cha123456下一页>>>>这篇文章来自..，。ELSEcha="AND"chaENDIFELSEcha=

3、conv3(sz2)"THOUSAND"cha’如果不为’0’转换（sz2）ENDIFIFsz>0thensz3=(szMOD1000)’sz3为亿、千万、百万3位数字cha=conv3(sz3)"MILLION"cha’转换（sz3） 上一页123456下一页>>>>这篇文章来自..，。;ENDIFENDIF’cha="DOLLAR"cha’在转换的结果之前加’DOLLAR’’RETURNchaconvertsz=chaendFUNCTIONFUNCTIONconv3(je)’PARAMETERSje’PRIVATEjepIFje<=0thenconvertsz=

4、""exitFUNCTIONENDIFje1=(jeMOD10)je=INT(je/10)IFje=0then’判断数字位数（1-3）并把3位数字分别存放在je1、je2、je3中jeOD10)je=INT(je/10)IFje=0thenjews=2ELSE 上一页123456下一页>>>>这篇文章来自..，。;je3=(jeMOD10)jep=conv1(je1)’如果位数为1，直接转换conv3=tmp’exitFUNCTION’RETURNtmpELSEIFje1+10*je2<20then’转换20以下数字tmp=conv1(je1+10*je2)ELSE’转换

5、20-99数字IFje1=0thentmp=conv2(je2)ELSE’tmp=conv2(je2)"-"conv1(je1)tmp=conv2(je2)conv1(je1)ENDIFENDIFIFjep=conv1(je3)"HUNDRED"ELSEIFje1+10*je2<20thentmp=conv1(je3)"HUNDREDAND"tmp&上一页123456下一页>>>>这篇文章来自..，。nbsp;ELSEtmp=conv1(je3)"HUNDRED"tmpENDIFENDIFENDIFconv3=tmpENDIFendFUNCTIONFUNCTIONconv2(SU

6、M)’PARAMETERSSUMaaa=""selectCASESUMCASE2aaa="T)’PARAMETERSSUMaaa=""selectCASESUMCASE1aaa="ONE"CASE2aaa="TWO"CASE3aaa="THREE"CASE4aaa="FOUR"CASE5aaa="FIVE"CASE6aaa="SIX"CASE7aaa="SEVEN"CASE8aaa="EIGHT"CASE9aaa="NINE"CASE10aaa="TEN"CASE11aaa="ELEVEN"上一页123456下一页>>>>这篇文章来自..，。CASE12aaa="T=14aaa="FO

7、URTEEN"CASE15aaa="FIFTEEN"CASE16aaa="SIXTEEN"CASE17aaa="SEVENTEEN"CASE18aaa="EIGHTEEN"CASESUM=19aaa="NIEEN"ENDselectconv1=aaaendFUNCTIONfff=123456789.45response.p;"<br>"xx=convertsz(fff)response.writexx%>上一页123456>>