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
以上程序的原則是根据位置先抓取數字再加上它的級別.
文章来源于领测软件测试网 https://www.ltesting.net/