金额转为汉字大写

最新推荐文章于 2022-01-20 10:58:05 发布

匆匆过客121

最新推荐文章于 2022-01-20 10:58:05 发布

阅读量663

点赞数

分类专栏： .Net 文章标签： string integer function

本文链接：https://blog.csdn.net/kuui_chiu/article/details/5223540

版权

.Net 专栏收录该内容

114 篇文章 0 订阅

订阅专栏

网上找了个例子，修改了下，只要修改strUnitList的长度就可以控制能转的数字范围了

    Public Shared Function getMoney(ByVal num As Decimal) As String
        Dim strNumList As String = "零壹贰叁肆伍陆柒捌玖"       '0-9所对应的汉字
        Dim strUnitList As String = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分"        '数字位所对应的汉字
        Dim strSplitPara As String = ""     '从原num值中取出的值
        Dim strPara As String = ""      '数字的字符串形式
        Dim strResult As String = ""        '人民币大写金额形式
        Dim i As Integer        '循环变量
        Dim intLen As Integer         'num的值乘以100的字符串长度
        Dim strNum As String = ""      '数字的汉语读法
        Dim strUnit As String = ""      '数字位的汉字读法
        Dim nzero As Integer = 0        '用来计算连续的零值是几个
        Dim temp As Integer      '从原num值中取出的值
        num = Math.Round(Math.Abs(num), 2)      '将num取绝对值并四舍五入取2位小数
        strPara = CLng((num * 100)).ToString()     '将num乘100并转换成字符串形式
        intLen = strPara.Length     '找出最高位
        If intLen > strUnitList.Length Then
            Return "溢出"
        End If
        strUnitList = Right(strUnitList, intLen)     '取出对应位数的strUnitList的值。如：200.55,intLen为5所以strUnitList=佰拾元角分
        '循环取出每一位需要转换的值 
        For i = 0 To intLen - 1
            strSplitPara = strPara.Substring(i, 1)      '取出需转换的某一位的值 
            temp = Convert.ToInt32(strSplitPara)        '转换为数字
            If i <> (intLen - 3) AndAlso i <> (intLen - 7) AndAlso i <> (intLen - 11) AndAlso i <> (intLen - 15) Then   '当所取位数不为元、万、亿、万亿上的数字时 
                If strSplitPara = "0" Then
                    strNum = ""
                    strUnit = ""
                    nzero = nzero + 1
                Else
                    If strSplitPara <> "0" AndAlso nzero <> 0 Then
                        strNum = "零" & strNumList.Substring(temp * 1, 1)
                        strUnit = strUnitList.Substring(i, 1)
                        nzero = 0
                    Else
                        strNum = strNumList.Substring(temp * 1, 1)
                        strUnit = strUnitList.Substring(i, 1)
                        nzero = 0
                    End If
                End If
            Else         '该位是万亿，亿，万，元位等关键位 
                If strSplitPara <> "0" AndAlso nzero <> 0 Then
                    strNum = "零" & strNumList.Substring(temp * 1, 1)
                    strUnit = strUnitList.Substring(i, 1)
                    nzero = 0
                Else
                    If strSplitPara <> "0" AndAlso nzero = 0 Then
                        strNum = strNumList.Substring(temp * 1, 1)
                        strUnit = strUnitList.Substring(i, 1)
                        nzero = 0
                    Else
                        If strSplitPara = "0" AndAlso nzero >= 3 Then
                            strNum = ""
                            strUnit = ""
                            nzero = nzero + 1
                        Else
                            strNum = ""
                            strUnit = strUnitList.Substring(i, 1)
                            nzero = 0
                        End If
                    End If
                End If
            End If
            If i = (intLen - 11) OrElse i = (intLen - 3) Then    '如果该位是亿位或元位，则必须写上 
                strUnit = strUnitList.Substring(i, 1)
            End If
            strResult = strResult + strNum + strUnit
            If i = intLen - 1 AndAlso strSplitPara = "0" Then   '最后一位（分）为0时，加上“整” 
                strResult = strResult + "整"
            End If
        Next
        If num = 0 Then
            strResult = "零元整"
        End If
        Return strResult
    End Function
    Public Shared Function getMoney(ByVal numstr As String) As String
        Try
            Dim num As Decimal = Convert.ToDecimal(numstr)
            Return getMoney(num)
        Catch
            Return "非数字形式！"
        End Try
    End Function