1. 云栖社区>
  2. 技术文集>
  3. 列表>
  4. 正文

将数字转换成大写的金额换算函数

作者:用户 来源:互联网 时间:2016-02-05 14:04:14

函数数字金额大写范围换算

将数字转换成大写的金额换算函数 - 摘要: 本文讲的是将数字转换成大写的金额换算函数, 大写|函数|换算|金额|转换 <%Function rmb(num)num = FormatNumber(num, 2)Dim numList Dim

大写|函数|换算|金额|转换 <%
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

%>




以上是云栖社区小编为您精心准备的的内容,在云栖社区的博客、问答、公众号、人物、课程等栏目也有 的相关内容,欢迎继续使用右上角搜索按钮进行搜索函数 , 数字 , 金额 , 大写 , 范围 换算 金额大写数字转换器、数字转换英文大写金额、数字转换成大写金额、大写数字金额转换、数字金额大小写转换,以便于您获取更多的相关知识。

link中如何将数字金额转换成中文的金额?又如何转换为大写?

问题描述 link中如何将数字金额转换成中文的金额?又如何转换为大写? link中如何将数字金额转换成中文的金额?又如何转换为大写? 解决方案 http://www.cnblogs.com...

将数字转换成大写的人民币表达式的js函数_javascript技巧

将数字转换成大写的人民币,方法有很多,本例介绍的是使用js来完成的,看看下面的实现代码 function changeNumMoneyToChinese(money) { var cnNums = new Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"); //汉字的数字 var cnIntRadic...

把数字金额转换成中文大写数字的函数

把数字金额转换成中文大写数字的函数//把数字金额转换成中文大写数字的函数function num2rmb ($num){$c1="零壹贰叁肆伍陆柒捌玖";$c2="分角元拾佰仟万拾佰仟亿";$num=round($num,2);$num=$num*100;$NewNum = ceil($num);if(strlen($NewNum)>10){return"金额太...

MySQL UUID函数的详解

...识值,它是空间上唯一的。若后者不可用,则用一个随机数字替换。假如主机没有网卡,或者我们不知道如何在某系统下获得机器地址,则空间唯一性就不能得到保证,即使这杨,出现重复值的机率还是非常小的。 ****************...

将数字转换成大写的人民币表达式的js函数

将数字转换成大写的人民币,方法有很多,本例介绍的是使用js来完成的,看看下面的实现代码 function changeNumMoneyToChinese(money) { var cnNums = new Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"); //汉字的数字 var cnIntRadice = ...

前三篇
后三篇
弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率

40+云计算产品,6个月免费体验

稳定可靠、可弹性伸缩的在线数据库服务,全球最受欢迎的开源数据库之一

云服务器9.9元/月,大学必备