求教一个算法，关于人民币大小写转换的一个算法

Question

各位大侠小弟在这里求教一个人民币大小写转换的算法请指教。例如：101.50
转换为：壹佰零壹元五角  要求到千位就行了！谢谢

Answer 1

给你应该大小写转换的例子，一个commandbutton,一个textbox,一个labelPrivate Sub Command1_Click()
Label1.Caption = rmb(Val(Text1.Text))
End SubPrivate Function rmb(s As Currency) As String
Dim s2 As String
s1 = LTrim(Str(Abs(s)))
l = Len(s1)
Select Case l - InStrRev(s1, ".")
Case l
s2 = s1 + ".00"
Case 1
s2 = s1 + "0"
Case 2
s2 = s1
End Select
l = Len(s2)
dx = ""
c1 = "零壹贰叁肆伍陆柒捌玖“"
c2 = "分角 元拾佰仟万拾佰仟亿拾佰”"
Do While l >= 1
x = Mid(s2, Len(s2) - l + 1, 1)
dx = dx + IIf(x <> ".", Mid(c1, Val(x) + 1, 1) + Trim(Mid(c2, (l - 1) + 1, 1)), "")
l = l - 1
Loop
rmb = dx + "整"
End Function

Answer 2

以前的帖子
Public Function DaXie(txtJE As Double) As String
On Error GoTo err1
    Dim I As Long   '循环变量
    Dim K As Long   '记录整数位循环位置
    Dim NC As String '输入金额 '
    Dim chrNum As String  '保存从字串中取出的数字
    Dim c1 As String '中文大写单位
    Dim c2 As String '中文角分
    Dim c3 As String '中文大写数字
    Dim Zheng As String  '整数部分
    Dim Xiao As String   '小数部分
    
    NC = Trim(Format(txtJE, "##0.00"))
    c1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"
    c2 = "角分"
    c3 = "玖捌柒陆伍肆叁贰壹"
    If NC = 0 Then
        DaXie = "零元整"
        Exit Function
    End If
    
    DaXie = ""
    Zheng = Mid(NC, 1, (Len(NC) - 3))
    Xiao = Mid(NC, (Len(Zheng) + 2), 2)
    If Val(Xiao) <> 0 Then
        For I = Len(Xiao) To 1 Step -1
            chrNum = Mid(Xiao, I, 1)
            If chrNum <> 0 Then
                DaXie = Mid(c2, I, 1) & DaXie
                DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
            Else
                If I = 1 Then
                    DaXie = "零" & DaXie
                End If
            End If
        Next I
    End If
    
    K = 0
    If Val(Zheng) <> 0 Then
        DaXie = "元" & DaXie
        For I = Len(Zheng) To 1 Step -1
            If (Len(Zheng) - I) = 4 Then
                If Val(Mid(Zheng, Len(Zheng) - 4, 1)) = 0 And _
                   Mid(DaXie, 1, 1) <> "零" And _
                   Mid(DaXie, 1, 1) <> "元" Then
                    DaXie = "零" & DaXie
                End If
                
                If Len(Zheng) >= 9 Then
                    If Val(Mid(Zheng, Len(Zheng) - 7, 4)) = 0 Then
                        DaXie = DaXie
                    Else
                        DaXie = "万" & DaXie
                    End If
                Else
                    DaXie = "万" & DaXie
                End If
            ElseIf (Len(Zheng) - I) = 8 Then
                If Val(Mid(Zheng, Len(Zheng) - 8, 1)) = 0 And _
                   Mid(DaXie, 1, 1) <> "零" And _
                   Mid(DaXie, 1, 1) <> "元" Then
                    DaXie = "零" & DaXie
                End If
                
                DaXie = "亿" & DaXie
            ElseIf (Len(Zheng) - I) = 12 Then
                If Val(Mid(Zheng, Len(Zheng) - 12, 1)) = 0 And _
                   Mid(DaXie, 1, 1) <> "零" And _
                   Mid(DaXie, 1, 1) <> "元" Then
                    DaXie = "零" & DaXie
                End If
                
                DaXie = "万" & DaXie
            End If
            chrNum = Mid(Zheng, I, 1)
            If chrNum <> 0 Then
                If I = Len(Zheng) Then
                    DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
                Else
                    If (Len(Zheng) - I) <> 4 And _
                       (Len(Zheng) - I) <> 8 And _
                       (Len(Zheng) - I) <> 12 Then
                        DaXie = Mid(c1, (Len(c1) - K), 1) & DaXie
                    End If
                    DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
                End If
            Else
                If Mid(DaXie, 1, 1) <> "元" And _
                   Mid(DaXie, 1, 1) <> "万" And _
                   Mid(DaXie, 1, 1) <> "亿" Then
                    If Mid(DaXie, 1, 1) <> "零" Then
                        DaXie = "零" & DaXie
                    End If
                End If
           End If
            K = K + 1
        Next I
    End If
    If Right(Trim(DaXie), 1) <> "分" Then
        DaXie = DaXie & "整"
    End IfExit Function
err1:
MsgBox "你输入的数字太长或者格式错误.", , "提示:"
End Function

Answer 3

http://community.csdn.net/Expert/topic/3296/3296847.xml?temp=.6830561http://community.csdn.net/Expert/topic/3304/3304244.xml?temp=.6878168