繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP基础 >> asp:要问人民币小写转换为大写的朋友请来这里看源代码。简洁!!!

asp:要问人民币小写转换为大写的朋友请来这里看源代码。简洁!!!

2006-04-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:数字转换 Elseif(s=".") then n=m i=i+2 for j=i to len(aa) s=mid(aa,i,1) mynum=str(s) select case(len(aa)+1-i) case 1: p= mynum&"分" case 2: p= mynum&"角" end select m=m&p next --> =

数字转换

Elseif(s=".") then

n=m

i=i+2

for j=i to len(aa)

s=mid(aa,i,1)

mynum=str(s)

select case(len(aa)+1-i)

case 1: p= mynum&"分"

case 2: p= mynum&"角"

end select

m=m&p

next

-->

=

责任编辑:admin
相关文章