文件名称：小写金额转换成大写金额
文件大小：22KB
文件格式：DOC
更新时间：2014-01-06 18:21:37
小写金额转换成大写金额
小写金额转换成int i,lendec,lenint string numstr,a,b,c,d,bbak numstr=string(aje,"#0.00") lenint=len(mid(numstr,1,pos(numstr,'.') - 1)) if right(numstr,2)='00' then lendec=0 else lendec=2 end if string dxint[13],dxdec[2],sz[13] string dxstr="万仟佰拾亿仟佰拾万仟佰拾元" string szstr="零壹贰叁肆伍陆柒捌玖" for i=1 to 13 dxint[i]=mid(dxstr,26 - i*2+1,2) if i<11 then sz[i]=mid(szstr,i*2 - 1,2) 大写金额