金额大小写转换的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

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

 dim tmpnum从第一张页面传过来的小写金额tmpnum=request("page1num")调用并显示大写金额response.write rmb(cdbl(tmpnum))response...
  • prowriter
  • prowriter
  • 2006年11月29日 11:11
  • 954

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

金额大小写转换的asp完全无错版本dim tmpnum从第一张页面传过来的小写金额tmpnum=request("page1num")调用并显示大写金额response.write rmb(cdbl(...
  • okfei
  • okfei
  • 2009年01月07日 22:49
  • 715

asp金额大小写转换

dim tmpnum从第一张页面传过来的小写金额tmpnum=request("page1num")调用并显示大写金额response.write rmb(cdbl(tmpnum))response....
  • jujuchen
  • jujuchen
  • 2007年05月28日 13:08
  • 612

java-数字金额大写转换

/** * 数字金额大写转换,思想先写个完整的然后将如零拾替换成零 要用到正则表达式 */ public static String digitUppercase(double n) { Str...
  • Leolu007
  • Leolu007
  • 2016年10月13日 09:41
  • 3347

java版,实现人民币的大小写转换

前两天看了,一个技术牛人的访谈,讲的非常的精彩。我只记得当中他说,程序员要怎么学习。提了很重要的一点,就是要经常性的写博客,把自己学到的知识,分享出来,这样不仅可以提高自己的能力,还能够让别人看你程序...
  • lanxingfeifei
  • lanxingfeifei
  • 2016年02月01日 14:55
  • 2782

java实现的人民币大小写转换

public class RenMingBi { public static String hangeToBig(double value) { char[] hunit = { '拾', '...
  • afgasdg
  • afgasdg
  • 2012年07月03日 16:37
  • 7686

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

1.调用    ConvertIntToUppercaseAmount(String value)  即可           ////      /// 人民币大小写金额转换     //...
  • lwjnumber
  • lwjnumber
  • 2011年12月03日 11:27
  • 11339

金额大小写转换!

 /**    * 把数字转换成中文大写金额,分以下小数截位    * @param dblMoney double:数字    * @param blnFull boolean:    *     ...
  • li_jeck
  • li_jeck
  • 2008年08月26日 17:15
  • 690

将人民币的数字转化成大写表示 [asp]

 call Money(1605893.21)function Money(thenumber)dim Money,i,String1,String2,length,checkp定义变量dim one...
  • abandonship
  • abandonship
  • 2004年12月14日 14:18
  • 2039

金额大小写转换

1、去点加02、插入3、去零4、加整 
  • wuyesk
  • wuyesk
  • 2007年04月29日 19:01
  • 276
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:金额大小写转换的asp完全无错版本
举报原因:
原因补充:

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