把金额由数字变成大写的小程序.doc

文档介绍：把金额由数字变成大写的小程序原作者或上传者:admin  出处:程序精品室  环境:VF  点击数:621    1、编写如下函数。该函数的返回值能够舍去数字之间的零,比较准确,符合会计准则,比较适合打印银行存单等。PARARMBSETTALKOFFXX=LTRIM(STR(RMB,11,2))RMBLEN=LEN(XX)DX='零'C1='零壹贰叁肆伍陆柒捌玖'C2='分角元拾佰仟万拾佰仟'*----------------DOWHILERMB>DB=SUBS(XX,LEN(XX)-RMBLEN+1,1)IFDB#'.'DX1=SUBS(C1,VAL(DB)*2+1,2)DX2=TRIM(SUBS(C2,(RMBLEN-1)*2+1,2))IFDX1='零'HZ=SUBS(DX,LEN(DX)-1,2)IFHZ='零'IFDX2='万'.='元'DX=SUBS(DX,1,LEN(DX)-2)+DX2ENDIELSEIFDX2='万'.='元'DX=SUBS(DX,1,LEN(DX))+DX2ELSEDX=DX+DX1ENDIFENDIFELSEDX=DX+DX1+DX2ENDIENDIFRMBLEN=RMBLEN-1ENDDOIFSUBS(DX,1,2)='元'DX=SUBS(DX,3,LEN(DX)-2)ENDIIFSUBS(DX,1,2)='零'DX=+SUBS(DX,3,LEN(DX)-2)ENDIIFSUBS(DX,LEN(DX)-1,2)='零'DX=SUBS(DX,1,LEN(DX)-2)+'整'ENDISETTALKONRETUDX2、编写如下函数。该函数的返回值比较适合于一些单据的填空式打印,如增值税发票等。pararmbnDzs=strt(allt(str(rmb,15,2)),".","")&&把小数点去掉hzdx="零壹贰叁肆伍陆柒捌玖"nDW="分角元拾佰仟万拾佰仟亿拾佰仟"rmbdx=""nCd=len(nDzs)fori=1tolen(nDzs)NumS=substrc(hzdx,int(val(subs(nDzs,i,1))+1),1)&&数字转换nDWs=substrc(nDW,nCd,1)&&----------要单位,如果不要单位可将此句改为:nD