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

    PowerBuilder是當前得到廣泛應用的C/S數據庫前端開發工具 在使用PB的過程中經常遇到要將數字進行英文或中文的大寫轉換尤其是在處理金額的時候本文整理了我在實踐中用到的轉換方法提供給大家參考

    一 英文大寫轉換

    以下是進行英文大寫轉換的函數內容函數名為dtoe 
    //****** 阿拉伯數 >英文數 ******
    string aabbTTTBWCCa
    decimal a=c=a
    INTEGER VM

    aa=ONE TWO THREE FOUR
    FIVE SIX SEVEN +&
    EIGHT NINE TEN ELEVEN TWELVE
    THIRTEEN FOURTEEN FIFTEEN +&
    SIXTEEN SEVENTEENEIGHTEEN NINETEEN
    bb=TWENTY THIRTY FORTY FIFTY SIXTY SEVENTYEIGHTY NINETY

    //**** 進入時 > t
    T=round(t)
    T=STRING(T)
    DO WHILE POS(T)< >
    V=POS(T)
    T=MID(TV )+MID(TV+)
    LOOP
    T=
    T=T
    IF POS(T)< > THEN
        V=POS(T)
        T=MID(TV )
        T=MID(TV+)
    END IF
    T=SPACE( LEN(T))+T
    CC=T
    B=
    W=
    M=
    //*** 整數處理 ***
    do while m >
    if MID(ccm+)= then
        exit
    end if
    if INTEGER(MID(ccm ))< > then
        if m= then
            W= THOUSAND +w 
        else
            if m= then
                W= MILLION +w
            end if
        end if
        A=INTEGER(MID(ccm)) 
        //*** 小於 的數 ***
        if a< > then

[]  []  []  

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