pb實現列印中人民幣大寫 (轉)

pb實現列印中人民幣大寫 (轉)[@more@]

根據我國的財務票據的當前特點，仍需要財務票據中人民幣有大寫一項。現在本人用PB編寫了一個人民幣大寫的。您只要將您資料視窗中的人民幣小寫項資料值取出，利用我的這個函式將其轉換成大寫方式，然後再賦到資料視窗的某項中即可。

 string jet,dxs,xxs,jew1,jew2,jew,jeq,jeb,jes,jeg,jej,jef
   long ls,lss
 string jedx

 jet=string(yjk)
   ls=len(jet)
   lss=10 - ls
   jet=space(lss)+jet

   dxs='零壹貳叄肆伍陸柒捌玖／'
   xxs='0123456789 '
   jew2=mid(jet,1,1)
   jew1=mid(jet,2,1)
   jew=mid(jet,3,1)
   jeq=mid(jet,4,1)
   jeb=mid(jet,5,1)
   jes=mid(jet,6,1)
   jeg=mid(jet,7,1)
   jej=mid(jet,9,1)
   jef=mid(jet,10,1)
   jew2=mid(dxs,pos(xxs,jew2)*2 - 1,2)+"佰"
   jew1=mid(dxs,pos(xxs,jew1)*2 - 1,2)+"拾"
   jew=mid(dxs,pos(xxs,jew)*2 - 1,2)+"萬"
   jeq=mid(dxs,pos(xxs,jeq)*2 - 1,2)+"仟"
   jeb=mid(dxs,pos(xxs,jeb)*2 - 1,2)+"佰"
   jes=mid(dxs,pos(xxs,jes)*2 - 1,2)+"拾"
   jeg=mid(dxs,pos(xxs,jeg)*2 - 1,2)+"元"
   jej=mid(dxs,pos(xxs,jej)*2 - 1,2)+"角"
   jef=mid(dxs,pos(xxs,jef)*2 - 1,2)+"分"

   jedx=jew1+jew+jeq+jeb+jes+jeg+jej+jef
 return jedx