熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> PB編程 >> 正文

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

2013-11-12 23:34:15  來源: PB編程 
    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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.