-
英文数字大写
<%
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
%>
-
-
-
-
-
-
-
-
-
上一篇:模糊控制详细讲解实例
下一篇:Maple 常用计算命令