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

文档介绍：把金额由数字变成大写的小程序
原作者或上传者:admin  出处:程序精品室  环境:VF  点击数:621    
1、编写如下函数。该函数的返回值能够舍去数字之间的零,比较准确,符合会计准则,比较适合打印银行存单等。
PARA RMB
SET TALK OFF
XX=LTRIM(STR(RMB,11,2))
RMBLEN=LEN(XX)
DX='零'
C1='零壹贰叁肆伍陆柒捌玖'
C2='分角元拾佰仟万拾佰仟'
*----------------
DO WHILE RMB>>=1
DB=SUBS(XX,LEN(XX)-RMBLEN+1,1)
IF DB#'.'
DX1=SUBS(C1,VAL(DB)*2+1,2)
DX2=TRIM(SUBS(C2,(RMBLEN-1)*2+1,2))
IF DX1='零'
HZ=SUBS(DX,LEN(DX)-1,2)
IF HZ='零'
IF DX2='万'.='元'
DX=SUBS(DX,1,LEN(DX)-2)+DX2
ENDI
ELSE
IF DX2='万'.='元'
DX=SUBS(DX,1,LEN(DX))+DX2
ELSE
DX=DX+DX1
ENDIF
ENDIF
ELSE
DX=DX+DX1+DX2
ENDI
ENDIF
RMBLEN=RMBLEN-1
ENDDO
IF SUBS(DX,1,2)='元'
DX=SUBS(DX,3,LEN(DX)-2)
ENDI
IF SUBS(DX,1,2)='零'
DX=+SUBS(DX,3,LEN(DX)-2)
ENDI
IF SUBS(DX,LEN(DX)-1,2)='零'
DX=SUBS(DX,1,LEN(DX)-2)+'整'
ENDI
SET TALK
ON
RETU DX
 2、编写如下函数。