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

PowerBuilder是当前得到广泛应用的C/S数据库前端开发工具 在使用PB的过程中经常遇到要将数字进行英文或中文的大写转换尤其是在处理金额的时候本文整理了我在实践中用到的转换方法提供给大家参考

一 英文大写转换

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

//****** 阿拉伯数 >英文数 ******

string aabbTTTBWCCa

decimal a=c=a

INTEGER VM

aa=ONE TWO THREE FOUR

FIVE SIX SEVEN +&

EIGHT NINE TEN ELEVEN TWELVE

THIRTEEN FOURTEEN FIFTEEN +&

SIXTEEN SEVENTEENEIGHTEEN NINETEEN

bb=TWENTY THIRTY FORTY FIFTY SIXTY SEVENTYEIGHTY NINETY

//**** 进入时 > t

T=round(t)

T=STRING(T)

DO WHILE POS(T)< >

V=POS(T)

T=MID(TV )+MID(TV+)

LOOP

T=

T=T

IF POS(T)< > THEN

V=POS(T)

T=MID(TV )

T=MID(TV+)

END IF

T=SPACE( LEN(T))+T

CC=T

B=

W=

M=

//*** 整数处理 ***

do while m >

if MID(ccm+)= then

exit

end if

if INTEGER(MID(ccm ))< > then

if m= then

W= THOUSAND +w

else

if m= then

W= MILLION +w

end if

end if

A=INTEGER(MID(ccm))

//*** 小于 的数 ***

if a< > then

[] [] []