资源描述：
《pb实现打印中人民币大写.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、pb实现打印中人民币大写据我国的财务票据的当前特点，仍需要财务票据中人民币有大写一项。现在本人用PB编写了一个人民币大写的函数。您只要将您数据窗口中的人民币小写项数据值取出，利用我的这个函数将其转换成大写方式，然后再赋到数据窗口的某项中即可。 stringjet,dxs,xxs,jew1,jew2,jew,jeq,jeb,jes,jeg,jej,jef longls,lss stringjedx jet=string(yjk) ls=len(jet) lss=10-ls jet=space(lss)+jet dxs=
2、'零壹贰叁肆伍陆柒捌玖／' 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
3、)+"拾" 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)+"分" jed
4、x=jew1+jew+jeq+jeb+jes+jeg+jej+jef returnjedx
