如何实现人民币的大写转换？
当前位置：知识管理交流
→『 技术文档交流 』
第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：
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> <!-- Elseif(s=".") then n=m i=i+2 for j=i to len(aa) s=mid(aa,i,1) mynum=str(s) select case(len(aa)+1-i) case 1: p= mynum&"分" case 2: p= mynum&"角" end select m=m&p next --> <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> 该文章在 2011/2/16 0:14:29 编辑过 |
关键字查询
相关文章
正在查询... 
|
400 186 1886
