[url=http://www.programfan.com/club/post-254780.html]点击看原贴：我的答贴在 5楼 myww 先生的复贴在 7 楼。
该程序运行在 vfp 9 环境下，
4楼是运行在 vfp 6 环境下[/url]

[color=0000FF][size=3]敬请各位请网友运行下面代码：[/size][/color]
[color=FF0000]*cbl518老师的程序，如果我赋值“剩余数量=53.035”，显示的大写是零吨。若将剩余数量直接改为53.035，则大写显示“伍拾叁点零叁伍吨”，是我需要的字符。[/color]

剩余数量=53.035 [color=FF0000]&&放在这个位置不行[/color]
LOCAL c数,c名,大写,c1
c数="零壹贰叁肆伍陆柒捌玖"
c名="拾佰仟万"
大写=""
*剩余数量=53.035 [color=FF0000]&&放在这个位置还是不行[/color]
c1=LTRIM(STR(INT(剩余数量),6))[color=FF0000] &&将剩余数量改为53.035就行[/color]
IF VAL(c1)=0
    大写="零"
ELSE
    FOR i=1 TO LEN(c1)
        大写=IIF(INT(VAL(SUBSTRC(c1,i,1)))=0,大写,大写+SUBSTRC(c数,INT(VAL(SUBSTRC(c1,i,1)))+1,1)+SUBSTRC(c名,LEN(c1)-i,1))
    ENDFOR
ENDIF
c1=ALLTRIM(STR(剩余数量%1,4,3),1,"0") &&将剩余数量改为53.035就行

IF VAL(c1)>0
    大写=大写+CHRTRANC(c1,'.0123456789','点'+c数)
ENDIF
大写=大写+"吨"
*REPLACE DX WITH 大写
?大写