首页 > 编程 > ASP > 正文

Asp将小写数字转为大写数字

2024-05-04 11:07:23
字体:
来源:转载
供稿:网友

Asp将小写数字转为大写数字

由于项目需求,必须将小写数字转大写数字,下面是转换方法,希望各位可以借鉴。

function int2chn(n)

 

dim i,j,k,strlen,retval,x,y,z,str

 

z=array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖")

 

y=array("","拾","佰","仟")

 

x=Array("","万","亿","万万亿")

 

strlen=len(n)

 

str1=n

 

for i= 1 to strlen

 

j=mid(str1,i,1)

 

retval=retval&z(j)

 

if j>0 then retval=retval&y((strlen-i) mod 4)'如果大于零,加入十进位字符

 

retval=replace(retval,z(0)&z(0),z(0))'出现两个零只留一个

 

if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'每四位加入进阶

 

if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'把最后的零去掉

 

next

 

int2chn=retval

 

end function

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表