金额大小写转换的asp完全无错版本

转载 2006年06月03日 10:18:00

<!--#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

C#人民币大小写金额转换(C#版本)

1.调用    ConvertIntToUppercaseAmount(String value)  即可           ////      /// 人民币大小写金额转换     //...

excel金额大小写转换.rar

  • 2013年06月14日 21:04
  • 28KB
  • 下载

财务金额转换大小写的软件

  • 2011年07月13日 16:05
  • 683KB
  • 下载

第2章 数据类型与表达式 【例题(无错运行版本)】

【例2.1】 将字符赋给整型变量 #include using namespace std; int main() { int i,j; i='A'; j='B'; cout...

金额大小写转换工具

  • 2015年07月30日 17:05
  • 200KB
  • 下载

微信 Jssdk 修改到无错的版本

刚下载下来的JSSDK发现好多错误,然后经过多次调式修改后,终于没有错误了,我用的是ThinkPHP,jssdk.php,jsapi_ticket.php,access_token.php都放在Thi...

vb数字、金额大小写转换源码

  • 2010年05月05日 11:52
  • 3KB
  • 下载

money 金额大小写转换

  • 2008年11月03日 10:43
  • 6KB
  • 下载

java---金额中文大小写实时转换小程序

本例演示一个String图形用户界面的完整应用程序,包括输入数据, 显示结果,响应事件以及异常处理。 输入一个实数表示金额,每次输入时显示该金额的中文大小写形式,运行窗口见最后。 在窗口中,“金...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:金额大小写转换的asp完全无错版本
举报原因:
原因补充:

(最多只允许输入30个字)