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

if a< then

B=RIGHTtrim(MID(aa(a )*+))

else

A=STRING(a)

A=INTEGER(MID(a))

b=RIGHTtrim(mid(bb(a )*+))

a=INTEGER(MID(a))

if a< > then

B=RIGHTtrim(b++MID(aa(a )*+))

end if

end if

W=b+w

end if

A=INTEGER(MID(ccm ))

//*** 的数 ***

if a< > then

b=RIGHTtrim(mid(aa(a )*+))+ HUNDRED

if w< > and m= then

b=b+AND

end if

w=b+w

end if

end if

m=m

LOOP

//*** 小数处理 ***

if w= then

w=ZERO

end if

if t< > AND T< > then

w=trim(w)+ & +t+/

end if

//*** 结果 > w

return w

二中文大写转换

以下是进行中文大写转换的函数内容函数名为dtormb

decimal y

string jexhzhzehfm

int ba

y=mje

X = trim(string(Y))

B = len(X)

A =

E = mid(XA)

HZ = 零壹贰三肆伍陆柒捌玖

HZ = 仟佰拾亿仟佰拾万仟佰拾元

JE =

do while E< >

H = mid(HZinteger(E)*+)

F = mid(HZ (B A)* )

if E< > or (E= and (F=亿 or F=万 or F=元)) then

JE = trim(JE)+H+F

[] [] []