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

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://www.ltesting.net