据我国的财务票据的当前特点,仍需要财务票据中人民币有大写一项。现在本人用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
正在阅读:
2017计算机等考三级数据库基础:pb实现打印中人民币大写01-09
[小学一年级上册科学课教案人教版]科学课一年级下册教案三篇09-28
高考英语作文49个黄金句子10-01
秋季趣味运动会作文300字09-28
2018年苏州中考英语试卷及答案-2018年江苏苏州中考英语答案05-06
难忘的第一次作文700字05-07
2016年黑龙江鹤岗小升初录取查询网址:www.lzk.hl.cn05-06
读书的乐趣作文500字05-15
母亲的爱作文600字07-28
元旦联欢会作文500字06-16