• 今年已有7名省级党委专职副书记履新 2019-07-20
  • 九江市委书记林彬杨主持召开市委常委会议 对市县机构改革提了这些要求 2019-07-11
  • 90后创业者成电商谷第100家园企 ——凤凰网房产北京 2019-07-11
  • 淮海实业集团新时代传习中心揭牌 2019-07-01
  • 杭州约谈58同城等3家网上房源发布平台负责人 2019-07-01
  • 您好,这个东西没法说.上次某高校教授写了篇引起轰动.恰巧我碰到他在接头买肉夹镆,并且当时他一口气就吃三个.我毫不客气的说,您能一口气能吃三个肉夹镆就是最大的身份 2019-06-18
  • 瑞典民众庆祝世界杯胜利时发生枪击 致4人受伤 2019-06-18
  • 【视频】致敬父亲节—父爱如山 一路相伴 2019-06-08
  • 西农大学生研发“校徽月饼”走红 原料取材学校培育作物 2019-06-02
  • 哲学社会科学工作座谈会 2019-05-28
  • 悬崖边上一座诡异屋子 一面墙内陷竟现神秘洞口 ——凤凰网房产 2019-05-20
  • 5月份海南经济运行总体稳定向好 工业生产恢复性增长 2019-05-20
  • 炖出营养好喝的骨头汤 2019-05-18
  • 【专题】网络中国节·2018端午节 2019-05-18
  • 韩法务部简化签证程序 吸引中国游客来韩 2019-05-16
  •     姓名学及数字能量学交流群:322612093    IT维修销售交流群:43407133  点此处进入二维码扫描
     
     
    服务热线:0816-2841263 13990148575
    QQ:479247963
    设为首页  加入收藏  繁體中文
     
    今天是:2019-7-24 星期三
     

    企业名片  会员登录  在线算命  择吉皇历  祈愿祝福  打小人  百度搜索  百家姓  手机号归属  取名策划  成功案例  问题解答 

    11 本站公告: 买软件送软件活动开始啦!详情QQ咨询:479247963   欢迎免费下载精科系列软件   精科网站建设  
    22 产品检索 关键字: 33
    推荐软件: 精科姓名博士-专业版 | 精科姓名博士-标准版 | 精科维修管理系统 | 精科维修销售系统 | 精科姓名博士-精装版 | 精科装机配置系统 | 精科十一选五开奖结果湖北:硐低?/A> </TD></TR> </TBODY></TABLE> <li><a href="//www.fgqb.net/587100/33646737.html ">今年已有7名省级党委专职副书记履新 </a> 2019-07-20</li> <li><a href="//www.fgqb.net/005942/90730536.html ">九江市委书记林彬杨主持召开市委常委会议 对市县机构改革提了这些要求 </a> 2019-07-11</li> <li><a href="//www.fgqb.net/5k8522/76764435.html ">90后创业者成电商谷第100家园企 ——凤凰网房产北京 </a> 2019-07-11</li> <li><a href="//www.fgqb.net/59b569/698634.html ">淮海实业集团新时代传习中心揭牌 </a> 2019-07-01</li> <li><a href="//www.fgqb.net/589962/85018933.html ">杭州约谈58同城等3家网上房源发布平台负责人 </a> 2019-07-01</li> <li><a href="//www.fgqb.net/4149/53561632.html ">您好,这个东西没法说.上次某高校教授写了篇引起轰动.恰巧我碰到他在接头买肉夹镆,并且当时他一口气就吃三个.我毫不客气的说,您能一口气能吃三个肉夹镆就是最大的身份 </a> 2019-06-18</li> <li><a href="//www.fgqb.net/49u124/48685731.html ">瑞典民众庆祝世界杯胜利时发生枪击 致4人受伤 </a> 2019-06-18</li> <li><a href="//www.fgqb.net/946229/98159630.html ">【视频】致敬父亲节—父爱如山 一路相伴 </a> 2019-06-08</li> <li><a href="//www.fgqb.net/582979/59223829.html ">西农大学生研发“校徽月饼”走红 原料取材学校培育作物 </a> 2019-06-02</li> <li><a href="//www.fgqb.net/8q4653/92792228.html ">哲学社会科学工作座谈会 </a> 2019-05-28</li> <li><a href="//www.fgqb.net/b0252/97311727.html ">悬崖边上一座诡异屋子 一面墙内陷竟现神秘洞口 ——凤凰网房产 </a> 2019-05-20</li> <li><a href="//www.fgqb.net/231107/89091926.html ">5月份海南经济运行总体稳定向好 工业生产恢复性增长 </a> 2019-05-20</li> <li><a href="//www.fgqb.net/1o3917/24610125.html ">炖出营养好喝的骨头汤 </a> 2019-05-18</li> <li><a href="//www.fgqb.net/7i1717/96066724.html ">【专题】网络中国节·2018端午节 </a> 2019-05-18</li> <li><a href="//www.fgqb.net/fz5160/41041523.html ">韩法务部简化签证程序 吸引中国游客来韩 </a> 2019-05-16</li> <script>(function(){ var src = (document.location.protocol == "") ? "//js.passport.qihucdn.com/11.0.1.js?9ed1f3a8f9c3ff069b7b95c01474c743":"https://jspassport.ssl.qhimg.com/11.0.1.js?9ed1f3a8f9c3ff069b7b95c01474c743"; document.write('<script src="' + src + '" id="sozz"><\/script>'); })(); </script> <script> (function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https') { bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else { bp.src = '//push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s); })(); </script> <a href="//www.sbjfqo.tw">万众瞩目两码中特免费公开</a> <a href="//www.ilsblv.com.cn/">微信彩票怎么看</a> <a href="//www.fjltzb.com.cn/">江苏快三跨度走势图</a> <a href="///">吉林福彩新快3走势图</a> <a href="//www.fdxpl.com/">3d</a> <a href="//www.swnqx.com/">湖南快乐十分分析计划</a> <a href="//www.uiojgg.tw/">快速赛车网址</a> <a href="//www.frzeom.tw">山西快乐十分开奖结果查询结果</a> <a href="//www.bfpwtf.tw">三肖中特准一肖中特准</a> <a href="//www.xwvdfp.tw">香港赛马会原创八肖王</a> <a href="//www.htnjnq.com.cn/">3d3天计划论坛</a> <a href="//www.armxsn.com.cn/">篮球胜分差加上让分吗</a> <a href="//www.fozkiu.com.cn/">极速11选5开奖记录</a> <a href="//www.ffqip.com/">近500期七乐彩走势图</a> <a href="//www.cowqg.com/">贵州11选5直三遗漏数据</a> </body></HTML> <HEAD><TITLE>精科软件->新闻中心->技术文章 - 福彩湖北快三开奖结果
    ??榈己?/TD>
     
    产品搜索
     
    产品列表
    产品搜索
     
    当前位置:网站首页 > 新闻中心 > 技术文章
    asp数值到大写金额转换源代码
    发布者:admin 发布时间:2013-4-17 阅读:5657次 【字体:

    福彩湖北快三开奖结果 www.fgqb.net

    以下代码经精科测试,无错,可用

    <%
    '//调用过程
    dim tmpnum '//变量
    '//从上一个页面传过来的小写金额
    tmpnum=request("page1num")
    '//调用并显示大写金额
    response.write( rmb(cdbl(tmpnum)) )
    response.end
    %>


    <%
    '///数值到大写金额转换代码
    Function Rmb(num)

    num = FormatNumber(num, 2)
    Dim numList
    Dim rmbList
    Dim numLen
    Dim numChar
    Dim numstr
    Dim n
    Dim n1, n2
    Dim hz
    numList = "零壹贰叁肆伍陆柒捌玖"
    RmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"

    if num > 9999999999999.99 Then
        Rmb = "超出范围的人民币值"
        Exit Function
    End if

    numstr = CStr(num * 100)
    numLen = Len(numstr)
    n = 1
    Do While n <= numLen
        numChar = CInt(Mid(numstr, n, 1))
        n1 = Mid(numList, numChar + 1, 1)
        n2 = Mid(RmbList, numLen - n + 1, 1)
        if Not n1 = "零" Then
            hz = hz + CStr(n1) + CStr(n2)
        Else
            if n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then
                Do While Right(hz, 1) = "零"
                hz = Left(hz, Len(hz) - 1)
                Loop
            End if
            if (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿") Or n2 = "元") Then
                hz = hz + CStr(n2)
            Else
                if Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then
                    hz = hz + n1
                End if
            End if
        End if
        n = n + 1
    Loop
    Do While Right(hz, 1) = "零"
        hz = Left(hz, Len(hz) - 1)
    Loop
    if Right(hz, 1) = "元" Then
        hz = hz + "整"
    End if
    Rmb = hz
    End Function
    %>

     
     

    打印本页 || 关闭窗口

    精科软件  红警电脑维修  期待你的加入   期待你的加入  期待你的加入 福彩湖北快三开奖结果

    公司名称:绵阳精科软件开发有限公司 关键词:精科软件
    地址:四川省绵阳市经开区涪滨路北段9号 邮编:621000 微信:jk12689
    电话:0816 - 2841263 手机:13990148575 Email:[email protected] QQ:479247963
    Copyright © 2000-2019 绵阳精科软件开发有限公司   福彩湖北快三开奖结果
      后台管理入口