微信号:jk12689    姓名学及数字能量学交流群:322612093    IT维修销售交流群:43407133  点此处进入二维码扫描
 
 
服务热线:0816-2841263 13990148575 18011146067
QQ:479247963
设为首页  加入收藏  繁體中文
 
今天是:2018-12-11 星期二
 

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

11 本站公告: 买软件送软件活动开始啦!详情QQ咨询:479247963   欢迎免费下载精科系列软件   精科网站建设  
22 产品检索 关键字: 33
推荐软件: 精科姓名博士-专业版 | 精科姓名博士-标准版 | 精科维修管理系统 | 精科维修销售系统 | 精科姓名博士-精装版 | 精科装机配置系统 | 精科洗车管理系统
精科软件->新闻中心->技术文章->asp数值到大写金额转换源代码
模块导航
 
产品搜索
 
产品列表
产品搜索
 
当前位置:网站首页 > 新闻中心 > 技术文章
asp数值到大写金额转换源代码
发布者:admin 发布时间:2013-4-17 阅读:5418次 【字体:

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

<%
'//调用过程
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:479247963@qq.com QQ:479247963
Copyright © 2000-2019 绵阳精科软件开发有限公司   蜀ICP备11007537号
  后台管理入口