如何實現(xiàn)人民幣的大寫轉換？
當前位置：點晴教程→知識管理交流
→『 技術文檔交流 』
第一個辦法，這個程序可以進行萬億以下的貨幣金額轉換（夠用的了吧），其中漢字與數(shù)字均按一位計： Function AtoC(a As Currency) As String ' 定義兩個字符串，A的值最多是兩位小數(shù). Dim String1 As String ' 如下定義. Dim String2 As String ' 如下定義. Dim String3 As String ' 從原A值中取出的值. Dim I As Integer ' 循環(huán)變量. Dim J As Integer ' A的值乘以100的字符串長度. Dim Ch1 As String ' 數(shù)字的漢語讀法. Dim Ch2 As String ' 數(shù)字位的漢字讀法. Dim nZero As Integer ' 用來計算連續(xù)的非零數(shù)是幾個. String1 = "零壹貳叁肆伍陸柒捌玖" String2 = "萬仟佰拾億仟佰拾萬仟佰拾元角分" 'MsgBox CStr(a * 100) If InStr(1, CStr(a * 100), ".") <> 0 Then err.Raise 5000, , "該函數(shù)( AtoC() )只轉換兩位小數(shù)以內(nèi)的數(shù)值!" End If J = Len(CStr(a * 100)) String2 = Right(String2, J) ' 取出對應位數(shù)的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 ' 如果轉換的數(shù)值需要擴大，則要改動以下表達式 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>精彩春風之數(shù)字大小寫轉換</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
