当前位置：首页 > 资讯 > 技术文档

如何实现人民币的大写转换？

时间：2021-05-13 13:19 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何实现人民币的大写转换？

第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：

Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String

' 如下定义. Dim String2 As String

' 如下定义. Dim String3 As String

' 从原A值中取出的值. Dim I As Integer

' 循环变量.

Dim J As Integer

' A的值乘以100的字符串长度. Dim Ch1 As String

' 数字的汉语读法. Dim Ch2 As String

' 数字位的汉字读法. Dim nZero As Integer

' 用来计算连续的非零数是几个. String1 = "零壹贰叁肆伍陆柒捌玖" String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分" 'MsgBox CStr(a * 100) If InStr(1, CStr(a * 100), ".") <> 0 Then err.Raise 5000, , "该函数( AtoC() )只转换两位小数以内的数值!" End If J = Len(CStr(a * 100)) String2 = Right(String2, J)

' 取出对应位数的StrING2的值. For I = 1 To J String3 = Mid(a * 100, I, 1)

' 取出需转换的某一位的值. If String3 <> "0" Then Ch1 = Mid(String1, Val(String3) + 1, 1) Ch2 = Mid(String2, I, 1) nZero = nZero + 1

' 表示本位不为零. Else If nZero <> 0 Or I = J - 9 Or I = J - 5 Or I = J - 1 Then If Right(AtoC, 1) = "零" Then AtoC = Left(AtoC, Len(AtoC) - 1) Ch1 = "零" Else Ch1 = "" End If

If I = J - 10 Then

' 如果转换的数值需要扩大，则要改动以下表达式 I 的值. Ch2 = "亿" ElseIf I = J - 6 Then If nZero <> 0 Then Ch2 = "万" ' nZero = 0 End If ElseIf I = J - 2 Then Ch2 = "元" ElseIf I = J Then Ch2 = "整" Else Ch2 = "" End If nZero = 0 End If AtoC = AtoC & Ch1 & Ch2 Next I

AtoC = Replace(AtoC, "零元", "元") AtoC = Replace(AtoC, "零万", "万") AtoC = Replace(AtoC, "零亿", "亿") AtoC = Replace(AtoC, "零整", "整") ' 以上将多余的零去掉 End Function

第二个办法：照下面写就成了！

<% dim str(9) str(0)="零" str(1)="壹" str(2)="贰" str(3)="叁" str(4)="肆" str(5)="伍" str(6)="陆" str(7)="柒" str(8)="捌" str(9)="玖" aa=Request.form("source") hh=formatnumber(aa,2,-1) aa=replace(hh,".","") aa=replace(aa,",","") for i=1 to len(aa) s=mid(aa,i,1) mynum=str(s) select case(len(aa)+1-i) case 1: k= mynum&"分" case 2: k= mynum&"角" case 3: k= mynum&"元" case 4: k= mynum&"拾" case 5: k= mynum&"佰" case 6: k= mynum&"仟" case 7: k= mynum&"万" case 8: k= mynum&"拾" case 9: k= mynum&"佰" case 10: k= mynum&"仟" end select m=m&k next %> <html> <head> <title>精彩春风之数字大小写转换</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head>  <body> <form method="post" name="forma"> <input type="text" name="source" value="<%=hh%>"> = <input type="text" name="result" value="<%=m%>" size="40"> <input type="submit" name="Submit" value="开始转换" > </form> </body></html>

全部评论(0)

上一篇：JavaScript基础篇之变量作用域、传值、传址的简单介绍与实例
下一篇：PHP人民币金额数字转中文大写的函数代码

资讯排行榜
更多>>