repl all 年份列 with chrt（年份列，'0123456789','零一二三四五六七八九'）

同理，如果一个字段里有中文和数字，或者英文，想把数字删掉，可以用：
repl all 某列 with chrt（某列，'0123456789'，'')   即可， 替换所有英文字母同理。


注意前者是一一对照关系，顺序可以变，但是前后的顺序要一致，后者把一些内容都替换成空，那么被替换的内容可以不按顺序。替换成空，两个''之间没有东西就是替换成空，加一个空格就是把他们替换成一个空格。

数字转大写金额的好像要难点，要判读金额大小。。。

谢谢！学习了

FUNCTION   Dx1
    PARAMETERS nAmount
    PRIVATE ALL LIKE L_*
    L_S1='零壹贰叁肆伍陆柒捌玖'
    L_S2='亿仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分'
    nAmount=LTRIM(STR(nAmount*100,LEN(L_S2)/2))
    L_LEN=LEN(nAmount)
    L_SS2=RIGH(L_S2,2*L_LEN)
    L_DX=''
    L_0JS=0  &&连续零的个数
    L_N=0
    DO WHILE L_N<L_LEN
        L_N=L_N+1
        L_SZ=SUBSTR(nAmount,L_N,1)
        L_SZ=SUBSTR(L_S1,2*VAL(L_SZ)+1,2)
        L_DW=SUBSTR(L_SS2,2*L_N-1,2)
        IF L_SZ='零'
            L_SZ=''
            DO CASE
                CASE L_DW$'亿元'
                CASE L_DW='万'
                    IF RIGH(L_DX,2)='亿'
                        L_DW=''
                    ENDIF
                OTHERWISE
                    L_DW=''
            ENDCASE
            L_0JS=L_0JS+1
        ELSE
            IF L_0JS>0.AND.!(RIGH(L_DX,2)+L_DW)$L_SS2
                L_SZ='零'+L_SZ
            ENDIF
            L_0JS=0
        ENDIF
        L_DX=L_DX+L_SZ+L_DW
    ENDDO
    L_DX=L_DX+IIF(RIGH(nAmount,1)='0','整','')
    RETURN  L_DX

SET PROCEDURE TO Dx1.PRG
dx1(金额)

木瓜大师的myfll有现成的函数，NToC(nNum)

FUNCTION   Dx2
    PARAMETERS nAmount,IsDW
    nDZS=STRTRAN(ALLTRIM(STR(nAmount,18,2)),".","")   &&把小数点去掉
    cHZDX="零壹贰叁肆伍陆柒捌玖"
    cDW="分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿"
    cRMBDX=""
    nCd=LEN(nDZS)
    FOR IsDW=1 TO LEN(nDZS)
        cNumbers=SUBSTRC(cHZDX,INT(VAL(SUBSTR(nDZS,IsDW,1))+1),1)  && 数字转换
        IF IsDW=1     &&如果要单位
            cDWs=SUBSTRC(cDW,nCd,1)
        ELSE
            cDWs=SPACE(2)
        ENDIF
        cRMBDX=cRMBDX+cNumbers+cDWs
        nCd=nCd-1
    ENDFOR
    RETURN  cRMBDX

这个函数结果只显示数字，不显示单位，可以套打票据。