如何实现人民币的大写转换？
第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：
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&knext%><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>