asp金额大小写转换完全无错版
时间:2007-09-26 09:38:00
金额大小写转换的asp完全无错版本, 这个版本解决了小数位不能到分的问题,处理方式符合会计方式,值得推荐!
<!--#include file=common.asp-->
<%
dim tmpnum
’从第一张页面传过来的小写金额
tmpnum=request("page1num")
’调用并显示大写金额
response.write rmb(cdbl(tmpnum))
response.end
%>
common.asp
<%
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
%>
标签:大小写,转换,金额,asp
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
“语法错误 (逗号) 在查询表达式id=20, 21”,怎么处理这个逗号?
2009-09-18 14:52:00
用Mysql查询语句记录
2011-02-16 12:29:00
Web开发技术发展史话
2011-04-25 19:16:00
js滑动展开与折叠效果(收缩)
2007-10-09 13:17:00
网页设计进阶之一 (步骤和大局观)
2008-08-23 10:39:00
SQL Server 2008 到底需要使用哪些端口?
2012-11-30 20:29:41
![](https://img.aspxhome.com/file/UploadPic/201211/30/20121130203641116s.jpg)
如何让对方在线查看我的程序代码?
2010-05-13 16:34:00
DW MX 的快键一览表
2009-07-21 12:47:00
为JavaScript程序添加客户端不可见的注释
2008-05-31 08:02:00
设计规范有谱么?
2008-06-06 12:28:00
url传递中文的解决方案
2007-10-09 20:17:00
oracle执行cmd的实现方法
2009-04-24 12:10:00
SQL数据库操作类
2009-01-14 16:26:00
oracle数据库下统计专营店的男女数量的语句
2012-07-11 16:01:17
用CSS3将你的设计带入下个高度[译]
2009-06-22 13:03:00
![](https://img.aspxhome.com/file/UploadPic/20096/22/01-62s.jpg)
CSS阴影详解
2009-12-04 18:31:00
![](https://img.aspxhome.com/file/UploadPic/200912/4/textshadow1-78s.jpg)
Dreamweaver如何防止及消除垃圾代码的产生
2007-11-13 17:15:00
完全讲解 使用MSCS建立SQL Server集群
2009-01-19 14:10:00
用户体验 保守的使用下拉菜单
2008-01-15 20:00:00
详细讲解Access数据库远程连接的实用方法
2008-11-28 16:34:00