• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 网站程序 >> asp程序 >> Asp将小写数字转为大写数字

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

• 作者：创新互联 文章来源：网站程序部 点击数： 更新时间：2012-01-09
• 　　由于项目需求，设计师们在制作网站的时候必须将小写数字转大写数字，那么我们有没有什么快捷的办法呢？请看下面创新互联小编的转换方法，希望各位可以借鉴。
  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
  　　如果你在网站制作上遇到什么难题，欢迎咨询成都创新互联网站建设，我们专业从事网站建设，网页制作，域名注册，虚拟主机，企业邮局，网站备案和服务器租用等项目，欢迎您的咨询了解。您也可以登录我们的论坛（http://bbs.cdxwcx.com）来和更多的网站爱好者进行交流！
• ASP的语法和变量 :上一篇
  ASP日期格式数据加减计算方法 :下一篇