英文数字大写Word格式.docx
- 文档编号:17362950
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:7
- 大小:15.11KB
英文数字大写Word格式.docx
《英文数字大写Word格式.docx》由会员分享,可在线阅读,更多相关《英文数字大写Word格式.docx(7页珍藏版)》请在冰豆网上搜索。
sz=INT(sz*100+0.5)/100'
小数超过两位四舍五入
xs=((sz-int(sz))*100)MOD100'
取小数点后两位有效数字
IFxs>
0then
cha="
AND"
&
conv3(xs)&
"
CENTS"
转换小数
AND"
xs&
ELSE
sz1=INT((szMOD1000))'
sz1为百、十、个3位数字
sz=INT(sz/1000)'
sz为千位以上数字(含千位)
cha=conv3(sz1)&
cha'
转换(sz1)
IFsz>
sz2=(szMOD1000)'
sz2为十万、万、千3位数字
sz为百万位以上数字(含百万位)
IFsz2=0then
IFsz1=0then'
(sz2)如果为'
0'
,判断在百位之前是否加'
AND'
cha=cha
cha
cha=conv3(sz2)&
THOUSAND"
如果不为'
转换(sz2)
sz3=(szMOD1000)'
sz3为亿、千万、百万3位数字
cha=conv3(sz3)&
MILLION"
转换(sz3)
DOLLAR"
在转换的结果之前加'
DOLLAR'
RETURNcha
convertsz=cha
endFUNCTION
FUNCTIONconv3(je)
PARAMETERSje
PRIVATEjews,je1,je2,je3,tmp
IFje<
=0then
je1=(jeMOD10)
je=INT(je/10)
IFje=0then'
判断数字位数(1-3)并把3位数字分别存放在je1、je2、je3中
jews=1
je2=(jeMOD10)
IFje=0then
jews=2
je3=(jeMOD10)
jews=3
IFjews=1then
tmp=conv1(je1)'
如果位数为1,直接转换
conv3=tmp
RETURNtmp
IFje1+10*je2<
20then'
转换20以下数字
tmp=conv1(je1+10*je2)
ELSE'
转换20-99数字
IFje1=0then
tmp=conv2(je2)
tmp=conv2(je2)&
-"
conv1(je1)
IFjews=3then'
转换百位数字
IFje1+10*je2=0then
tmp=conv1(je3)&
HUNDRED"
20then
HUNDREDAND"
tmp
FUNCTIONconv2(SUM)
PARAMETERSSUM
aaa="
selectCASESUM
CASE2
TWENTY"
CASE3
THIRTY"
CASE4
FORTY"
CASE5
FIFTY"
CASE6
SIXTY"
CASE7
SEVENTY"
CASE8
EIGHTY"
CASE9
NINETY"
ENDselect
conv2=aaa
FUNCTIONconv1(SUM)
CASE1
ONE"
TWO"
THREE"
FOUR"
FIVE"
SIX"
SEVEN"
EIGHT"
NINE"
CASE10
TEN"
CASE11
ELEVEN"
CASE12
TWELVE"
CASE13
THIRTEEN"
CASESUM=14
FOURTEEN"
CASE15
FIFTEEN"
CASE16
SIXTEEN"
CASE17
SEVENTEEN"
CASE18
EIGHTEEN"
CASESUM=19
NINETEEN"
conv1=aaa
fff=123456789.45
response.writefff&
br>
xx=convertsz(fff)
response.writexx
%>
北京检查性病哪家好
北京性病专科医院哪里好
北京哪家医院治疗性病
rtfvvr128669
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 英文 数字 大写
![提示](https://static.bdocx.com/images/bang_tan.gif)