六、人民币大小写转换: dx='' dx11='' dx2='' dx3='' jee='' *dx1=(' 仟佰拾元 角分') i=1 je=alltrim(str(thisform.pageframe1.page4.txt缴费金额.value,7,2)) cd=lenc(je) do case case cd=7 dx11=(' 仟佰拾元 角分') *一个半角空格 jee=str(thisform.pageframe1.page4.txt缴费金额.value,7,2) case cd=6 dx11=(' 佰拾元 角分') jee=str(thisform.pageframe1.page4.txt缴费金额.value,6,2) case cd=5 dx11=(' 拾元 角分') jee=str(thisform.pageframe1.page4.txt缴费金额.value,5,2) case cd=4 dx11=(' 元 角分') jee=str(thisform.pageframe1.page4.txt缴费金额.value,4,2) endcase dx1=dx11 je=jee do while i<=cd b1=substr(je,i,1) do case case b1='1' dx='壹' case b1='2' dx='贰' case b1='3' dx='叁' case b1='4' dx='肆' case b1='5' dx='伍' case b1='6' dx='陆' case b1='7' dx='柒' case b1='8' dx='捌' case b1='9' dx='玖' case b1='0' dx='零' otherwise dx='' endcase i=i+1 dx2=alltrim(substrc(dx1,i,1)) dx3=dx3+dx+dx2 enddo thisform.pageframe1.page4.txt金额大写.value=alltrim(dx3) |
|