英文数字大写

英文数字大写

<%

FUNCTION convertsz(sz)

'PARAMETERS sz

'PRIV

ATE xs,sz1,sz2,sz3

IF sz > 1000000000 then '

超过处理范围提示

convertsz=

数字大于

10

亿，超过处理范围！

exit FUNCTION

END IF

sz=INT(sz*100+0.5)/100 '

小数超过两位四舍五入

xs=((sz-int(sz))*100) MOD 100 '

取小数点后两位有效数字

IF xs>0 then

'cha=

转换小数

cha=

ELSE

cha=

END IF

sz1=INT((sz MOD 1000)) ' sz1

为百、十、个

3

位数字

sz=INT(sz/1000) ' sz

为千位以上数字（含千位）

cha=conv3(sz1)&cha '

转换（

sz1

）

IF sz>0 then

sz2=(sz MOD 1000) ' sz2

为十万、万 、千

3

位数字

sz=INT(sz/1000) ' sz

为百万位以上数字（含百万位）

IF sz2=0 then

IF sz1=0 then '

（

sz2

）如果为

'0'

，判断在百位之前是否加

'AND'

cha=cha

ELSE

cha=

END IF

ELSE

cha=conv3(sz2)&

如果不为

'0'

sz2

）

END IF

IF sz>0 then

sz3=(sz MOD 1000) ' sz3

为亿、千万 、百万

3

位数字

cha=conv3(sz3)&

转 换（

sz3

）

END IF

END IF

'cha=

在转换的结果之前加

'DOLLAR'

'RETURN cha

convertsz=cha

end FUNCTION

FUNCTION conv3(je)

'PARAMETERS je

'PRIV

ATE jews,je1,je2,je3,tmp

IF je<=0 then

convertsz=

exit FUNCTION

END IF

je1=(je MOD 10)

je=INT(je/10)

IF je=0 then '

判断数字位数（

1-3

）并把

3

位数字分别存放在

je1

、

je2

、

je3

中

jews=1

ELSE

je2=(je MOD 10)

je=INT(je/10)

IF je=0 then

jews=2

ELSE

je3=(je MOD 10)

jews=3

END IF

END IF

IF jews=1 then

tmp=conv1(je1) '

如果位数为

1

，直接转换

conv3=tmp

'exit FUNCTION

'RETURN tmp

ELSE

IF je1+10*je2<20 then '

转换

20

以下数字

tmp=conv1(je1+10*je2)

ELSE '

转换

20-99

数字

IF je1=0 then

tmp=conv2(je2)

ELSE

'tmp=conv2(je2)&

tmp=conv2(je2)&conv1(j e1)

END IF

END IF

IF jews=3 then '

转换百位数字

IF je1+10*je2=0 then

tmp=conv1(je3)&

ELSE

IF je1+10*je2<20 then

tmp=conv1(je3)&

ELSE

tmp=conv1(je3)&

END IF

END IF

END IF

conv3=tmp

END IF

end FUNCTION

FUNCTION conv2(SUM)

'PARAMETERS SUM

aaa=

select CASE SUM

CASE 2

aaa=

CASE 3

aaa=

CASE 4

aaa=

CASE 5

aaa=

CASE 6

aaa=

CASE 7

aaa=

CASE 8

aaa=

CASE 9

aaa=

END select

conv2=aaa

end FUNCTION

FUNCTION conv1(SUM)

'PARAMETERS SUM

aaa=

select CASE SUM

CASE 1

aaa=

CASE 2

aaa=

CASE 3

aaa=

CASE 4

aaa=

CASE 5

aaa=

CASE 6

aaa=

CASE 7

aaa=

CASE 8

aaa=

CASE 9

aaa=

CASE 10

aaa=

CASE 11

aaa=

CASE 12

aaa=

CASE 13

aaa=

CASE SUM=14

aaa=

CASE 15

aaa=

CASE 16

aaa=

CASE 17

aaa=

CASE 18

aaa=

CASE SUM=19

aaa=

END select

conv1=aaa

end FUNCTION

fff=123456789.45

fff&

xx=convertsz(fff)

xx

%>