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