VB实现数字到中文金额的转换函数

Private Function NMoneyToSMoney(NMoney As Variant) As String
    If IsNumeric(NMoney) = False Then
        NMoneyToSMoney = "不是数字类型"
        Exit Function
    End If
    Dim BasicDWString As String,BasicDW()       As String
    Dim MoneyDWString As String,MoneyDW()       As String
    Dim FormatD1String As String,FormatD1()       As String
    Dim FormatD2String As String,FormatD2()       As String
    Dim FormatD3String As String,FormatD3()       As String
    Dim MoneyStr As String,ReturnStr As String,TempStr As String
    Dim pcount    As Long
    BasicDWString = "分,角,圆,拾,佰,仟,万,拾万,佰万,仟万,亿,拾亿,佰亿,仟亿,万亿,兆,拾兆,佰兆,仟兆,万兆,亿兆"
    MoneyDWString = "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
    FormatD1String = "拾万,亿兆"
    FormatD2String = "拾,亿"
    FormatD3String = "万,兆"
    BasicDW = Split(BasicDWString,",")
    MoneyDW = Split(MoneyDWString,")
    FormatD1 = Split(FormatD1String,")
    FormatD2 = Split(FormatD2String,")
    FormatD3 = Split(FormatD3String,")
    MoneyStr = Format(NMoney,"0.00")
    MoneyStr = Replace(MoneyStr,".","")
    StrLen = Len(MoneyStr)
    ReturnStr = ""
    For X = 0 To StrLen - 1
        TempStr = Mid(MoneyStr,StrLen - X,1)
        ReturnStr = MoneyDW(TempStr) & BasicDW(X) & ReturnStr
    Next X
    ReturnStr = Replace(ReturnStr,"零分","")
    ReturnStr = Replace(ReturnStr,"零角","零拾","零")
    ReturnStr = Replace(ReturnStr,"零佰","零仟","零万","零亿","零兆","零")
    Do
        ReturnStr = Replace(ReturnStr,"零零","零")
    Loop While InStr(ReturnStr,"零零") <> 0
    ReturnStr = Replace(ReturnStr,"零圆","圆")
    If Right(ReturnStr,1) <> "圆" Then
        ReturnStr = Replace(ReturnStr,"圆","零")
        ReturnStr = ReturnStr & "圆"
    End If
    ReturnStr = ReturnStr & "整"
    For X = 0 To UBound(FormatD1)
        pcount = InStr(1,ReturnStr,FormatD1(X),vbTextCompare)
        If pcount > 0 Then
            If InStr(pcount + 2,FormatD3(X),vbTextCompare) > 0 Then
                ReturnStr = Replace(ReturnStr,FormatD2(X))
            End If
        End If
    Next X
    pcount = InStr(1,"万兆",vbTextCompare)

    NMoneyToSMoney = ReturnStr
End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!