简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 春 节 25
2021年 情人节 27
2021年 元宵节 39
2022年 元 旦 348
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
  • 您现在的位置:首页 >> ASP >> 内容

    ASP将数字转中文数字(大写金额)的函数

    内容摘要: ASP将数字转中文数字金额的函数一%function Money(thenumber)'dim Money,i,String1,String2,length,checkp'定义变量dim one(),onestr()'定义数组String1 = '零壹贰叁肆伍陆柒捌玖'String2 = '万仟佰拾亿仟佰拾万仟佰拾元角分厘毫'checkp=instr(the......

      ASP将数字转中文数字金额的函数一

    <%

    function Money(thenumber)

    'dim Money,i,String1,String2,length,checkp'定义变量

    dim one(),onestr()'定义数组


    String1 = "零壹贰叁肆伍陆柒捌玖"

    String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫"


    checkp=instr(thenumber,".")'判断是否含有小数位

    if checkp<>0 then

    thenumber=replace(thenumber,".","")'去除小数位

    end if

    length=len(thenumber) '取得数据长度

    redim one(length-1)'重新定义数组大小

    redim onestr(length-1)'重新定义数组大小

    for i=0 to length-1

    one(i)=mid(thenumber,i+1,1) '循环取得每一位的数字

    one(i)=mid(string1,one(i)+1,1)'循环取得数字对应的大写

    if checkp=0 then '不含有小数的数据其数字对应的单位

    onestr(i)=mid(string2,14-length+i,1)

    else '含有小数的数据其数字对应的单位

    onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1)

    end if

    one(i)=one(i)&onestr(i)'将数字与单位组合

    next

    Money=replace(join(one)," ","") '取得数组中所有的元素,并连接起来

    Money=replace(Money,"零元","元")

    Money=replace(Money,"零万","万")

    Money=replace(Money,"零亿","亿")

    Money=replace(Money,"零仟","零")

    Money=replace(Money,"零佰","零")

    Money=replace(Money,"零拾","零")


    do while not instr(Money,"零零")=0

    Money=replace(Money,"零零","零")

    loop


    ' response.write Money '显示结果

    end function

    Response.write Money(8200001)

    %>

    ASP阿拉伯数字转中文数字

    <%

    '################################

    '函数名:阿拉伯数字转中文数字函数

    '################################

    function chnumstr(num)

    num=int(abs(num))

    strlen=len(num)

    for i=1 to strlen

    select case mid(num,i,1)

    case 1:chnum="一":case 2:chnum="二":case 3:chnum="三"

    case 4:chnum="四":case 5:chnum="五"

    case 6:chnum="六":case 7:chnum="七":case 8:chnum="八"

    case 9:chnum="九":case 0:chnum="零"

    end select

    chnumstr=chnumstr&chnum

    if i=strlen-1 and mid(num,i,1)<>0 then chnumstr=chnumstr&"十"

    if i=strlen-2 and mid(num,i,1)<>0 then chnumstr=chnumstr&"百"

    if i=strlen-3 and mid(num,i,1)<>0 then chnumstr=chnumstr&"千"

    if i=strlen-4 and mid(num,i,1)<>0 then chnumstr=chnumstr&"万"

    if i=strlen-5 and mid(num,i,1)<>0 then chnumstr=chnumstr&"十"

    if i=strlen-6 and mid(num,i,1)<>0 then chnumstr=chnumstr&"百"

    if i=strlen-7 and mid(num,i,1)<>0 then chnumstr=chnumstr&"千"

    if i=strlen-8 and mid(num,i,1)<>0 then chnumstr=chnumstr&"万"

    next

    if left(chnumstr,1)="一" then chnumstr=right(chnumstr,len(chnumstr)-1)

    if right(chnumstr,1)="零" then chnumstr=left(chnumstr,len(chnumstr)-1)

    end function

    Response.write chnumstr("84221213")

    %>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2020/11/11 发布时间:16:13:00 点击:479 录入:齐天大圣
  • 上一篇:ASP删除img标签的style属性只保留src的正
  • 下一篇:asp限制域名访问实现代码
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V3.88 Build 20.12.22(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021