VB实现人民币大小写金额转换

发布2021-01-31浏览1094次

详情内容

本节课程，利用VB知识来实现人民币金额小写自动转大写的工具设计。
效果如下图所示：

实现代码

Private Sub Text1_Change()
    Text2 = rmbChange(Text1)
End Sub

Function rmbChange(ByVal rmb As Double) As String
    On Error Resume Next
    Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As Integer, Ntyp As Integer, Icnt As Integer, i As Integer, Trmb As String
    rmb = Format(rmb, "###0.00")
    If rmb > 999999999999.99 Then
        rmbChange = "需转换的金额整数长度超过了12位！"
        Exit Function
    End If
    Rmbexp = "分角元拾佰仟万拾佰仟亿拾佰仟"
    Rmbda = "零壹贰叁肆伍陆柒捌玖"
    Ntyp = 0
    Trmb = Replace(CStr(Format(rmb, "0.00")), ".", "")
    If Left(Trmb, 1) =