據(jù)我國(guó)的財(cái)務(wù)票據(jù)的當(dāng)前特點(diǎn)，仍需要財(cái)務(wù)票據(jù)中人民幣有大寫(xiě)一項(xiàng)?，F(xiàn)在本人用PB編寫(xiě)了一個(gè)人民幣大寫(xiě)的函數(shù)。您只要將您數(shù)據(jù)窗口中的人民幣小寫(xiě)項(xiàng)數(shù)據(jù)值取出，利用我的這個(gè)函數(shù)將其轉(zhuǎn)換成大寫(xiě)方式，然后再賦到數(shù)據(jù)窗口的某項(xiàng)中即可。
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)+"萬(wàn)"
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