在金额转大写我是这样实现的(可以用的)也就是我说的ch.prg.
&& 人民币大写
PARA RMB
SET TALK OFF
XX=LTRI(STR(RMB,17,2))
L=LEN(XX)
DX=''
C1='×壹贰叁肆伍陆柒捌玖'
C2='分角 元拾佰仟万拾佰仟亿拾佰仟万拾'
DO WHILE L>=1
X=SUBS(XX,LEN(XX)-L+1,1)
DX=DX+IIF(X<>'.',SUBS(C1,VAL(X)*2+1,2),'')+TRIM(SUBS(C2,(L-1)*2+1,2))
L=L-1
ENDDO
SET TALK ON
RETU DX+'整'
rmb=0