VFP程序代码（五）<br>

六、人民币大小写转换：

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)