如何在FOXPRO中實現人民幣大寫的轉換

类别:数据库 点击:0 评论:0 推荐:

FOXPRO中人民幣大寫轉換的實現

作者:   CCBZZP

       FOXPRO在實現報表的功能是很強大的, 特別在現實的應用中會經常用到人民幣

大小寫轉換的問題, 在此我簡單介紹一下, 希望和大家一起探討, 以便共同進步! 共同

發展!

假如 變量 MONEY 是我們要轉換的參數,我們在程序(*.PRG)中這樣寫:

 

PARA MONEY
IF MONEY>999999999.99
    RETURN ('<數值大于拾億! >')
ENDIF
IF ABS(MONEY)<1
 IF ABS(MONEY)=0
  RETURN('零圓')
 ELSE
  RETURN('<小于壹圓!>')
 ENDIF
ENDIF
negative=.F.
IF MONEY<0
 MONEY=-MONEY
 negative=.T.
ENDIF
STOR '' TO a9, a8, a7 ,a6 ,a5 ,a4 ,a3 ,a2 ,a1 ,b1 ,b2
MONEY=ROUND(MONEY,2)
ch1='零壹貳參肆伍陸柒捌玖'
ch2='億萬仟佰拾圓角分'
ch_MONEY=ALLTRIM(STR(MONEY,14,2))
IF !('.'$'ch_MONEY')
 dec=LEFT(ch_MONEY,AT('.',ch_MONEY)-1)
 rec=SUBST(ch_MONEY,AT('.',ch_MONEY)+1,LEN(ch_MONEY)-AT('.',ch_MONEY))
ELSE
 dec=ch_MONEY
 rec=''
ENDIF
FOR i=1 TO LEN(dec)
 j=STR(i,1)
 a&j=SUBST(dec,LEN(dec)-i+1,1)
ENDFOR
IF !EMPTY(rec)
 FOR i=1 TO LEN(rec)
  j=STR(i,1)
  b&j=SUBST(rec,i,1)
 ENDFOR
ENDIF
FOR i=1 TO LEN(dec)
 j=STR(i,1)
 IF !EMPTY(a&j)
  a&j=SUBST(ch1,2*VAL(a&j)+1,2)
 ENDIF
ENDFOR
FOR i=1 TO LEN(rec)
 j=STR(i,1)
 IF !EMPTY(b&j)
  b&j=SUBST(ch1,2*VAL(b&j)+1,2)
 ENDIF
ENDFOR
a9=a9+IIF(!EMPTY(a9),'億','')
a8=a8+IIF((!EMPTY(a8)).AND.(a8<>'零'),'仟','')
a7=a7+IIF((!EMPTY(a7)).AND.(a7<>'零'),'佰','')
a6=a6+IIF((!EMPTY(a6)).AND.(a6<>'零'),'拾','')
a5=a5+IIF((!EMPTY(a5)).AND.(a5<>'零' .OR. a6<>'零' .OR. a7<>'零' .OR. a8<>'零'),'萬','')
a4=a4+IIF((!EMPTY(a4)).AND.(a4<>'零'),'仟','')
a3=a3+IIF((!EMPTY(a3)).AND.(a3<>'零'),'佰','')
a2=a2+IIF((!EMPTY(a2)).AND.(a2<>'零'),'拾','')
a1=a1+'圓'
*a1=a1+IIF((!EMPTY(a1)).AND.(a1<>'零' .OR. a2<>'零' .OR. a3<>'零' .OR. a4<>'零'),'圓','')
b1=IIF(b1=='零' .AND. b2=='零' ,'整',b1)+IIF((!EMPTY(b1)).AND.(b1<>'零'),'角','')
b2=IIF(b2=='零','',b2)+IIF((!EMPTY(b2)).AND.(b2<>'零'),'分','')
chr_covent=a9+a8+a7+a6+a5+a4+a3+a2+a1+b1+b2
i=1
DO WHILE i<LEN(ALLTRIM(chr_covent))-2
 b_ch=SUBST(ALLTRIM(chr_covent),i,2)
 e_ch=SUBST(ALLTRIM(chr_covent),i+2,2)
 IF b_ch='零' .AND. (e_ch='零' .OR. e_ch='萬' .OR. e_ch='圓')
  chr_covent=LEFT(ALLTRIM(chr_covent),i-1)+SUBST(ALLTRIM(chr_covent),i+2,LEN(ALLTRIM(chr_covent))-i-1)
 ELSE
  i=i+2
 ENDIF
ENDDO
IF negative
 chr_covent='(負)'+chr_covent
ENDIF
RETURN chr_covent

    以上程序的原則是根据位置先抓取數字再加上它的級別.

 

本文地址:http://com.8s8s.com/it/it21181.htm