在PB中实现数字的英文大写和中文大写[3]

else

JE = trim(JE)+H

end if

A = A+

E = mid(XA)

loop

A = A+

E = mid(XA)

H = mid(XA+)

if E= and H= then

JE = JE+整

else

if E= then

JE = JE+零+mid(HZinteger(H)*+)+分

else

if H= then

JE = JE+mid(HZinteger(E)*+)+角整

else

JE = JE+mid(HZinteger(E)*+)

+角+mid(HZinteger(H)*+)+分

end if

end if

end if

B = len(JE)

A =

do while A< B

M = mid(JEA)

if M=零元 or M=零万 or M=零亿 or M=零零 then

JE = mid(JEA )+trim(mid(JEA+))

A = A

B = B

end if

A = A+

loop

return JE

[] [] []