订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp金额数字转换为大小写汉字

深山工作室 2012/3/10 15:49:19 深山行者 字体: 浏览 13315

<form name="form1" method="post" action="demo.asp">
<input type="text" name="page1num" id="page1num" value="<%=request("page1num")%>">
<input type="submit" name="button" id="button" value="提交">
</form>


<%
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

%>

相关阅读
在网页标题栏上或收藏夹前面显示网站ico小图标的方法
签证系统
关于字体在CSS中处理效果的思考
深山行者留言系统V3.1
深山行者留言系统V1.0 (简称深山留言V1.0)
Javascript JS 限制复选框的选择个数(2)
更变态的页面右击失效代码,选择,全选,全部失效
javascript根据内容转换为拼音
共有0条关于《asp金额数字转换为大小写汉字》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
windows7环境下安装配置jdk
python对微信操作要用到这两个库wxpy与itchat
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
DW设置之后更好用 DreamweaverCS编辑GB2312与UTF-8文件在代码视图中点击鼠标错位问题的解决办法
解决国内 github.com 打不开的准确方法
更多>>随机抽取信息
非常漂亮的当前页面内容搜索代码
详解HTML标记里面的em和strong的区别
根据页面模板动态生成html页面
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
短信邮件
关于字体在CSS中处理效果的思考