在PB中實現數字的英文大寫和中文大寫[3]

    else 
        JE = trim(JE)+H
    end if
    A = A+
    E = mid(XA)
    loop
    A = A+
    E = mid(XA)
    H = mid(XA+)
    if E= and H= then
        JE = JE+整
    else 
        if E= then
            JE = JE+零+mid(HZinteger(H)*+)+分
        else 
            if H= then
                JE = JE+mid(HZinteger(E)*+)+角整
            else 
                JE = JE+mid(HZinteger(E)*+)
                +角+mid(HZinteger(H)*+)+分
            end if 
        end if
    end if
    B = len(JE)
    A =
    do while A< B
    M = mid(JEA)
    if M=零元 or M=零萬 or M=零億 or M=零零 then
        JE = mid(JEA )+trim(mid(JEA+))
        A = A
        B = B
    end if
    A = A+
    loop
    return JE

[]  []  []  

From:http://tw.wingwit.com/Article/program/PB/201311/11117.html