pb实现打印中人民币大写

pb实现打印中人民币大写

根据我国的财务票据的当前特点，仍需要财务票据中人民币有大写一项。现在本人用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