VBA金额转换中文大写（原创新解版）

最新推荐文章于 2023-11-30 15:24:05 发布

sdoak

最新推荐文章于 2023-11-30 15:24:05 发布

阅读量1.1k

点赞数 1

文章标签：青少年编程

本文链接：https://blog.csdn.net/weixin_64788492/article/details/125641475

版权

直接上代码，优化、需求等问题可以直接留言或私信沟通。

Function amountInWordsAbrr(amountInFigures As Variant)
Dim amountInWord As String
amountInFigures = Format(amountInFigures, "standard")
amountInWord = Application.WorksheetFunction.Text(amountInFigures, "[dbnum2]")
amountInWord = Replace(amountInWord, "-", "负")
If CInt(Right(amountInFigures, 2)) = 0 Then
    amountInWordsAbrr = amountInWord & "元整"
ElseIf CInt(Right(amountInFigures, 2)) > 0 Then
    amountInWord = Replace(amountInWord, ".", "元")
    If CInt(Right(amountInFigures, 1)) = 0 Then
        amountInWordsAbrr = amountInWord & "角"
    ElseIf CInt(Right(amountInFigures, 2)) < 10 Then
        amountInWordsAbrr = Left(amountInWord, Len(amountInWord) - 1) & Right(amountInWord, 1) & "分"
    ElseIf CInt(Right(amountInFigures, 2)) > 10 Then
        amountInWordsAbrr = Left(amountInWord, Len(amountInWord) - 1) & "角" & Right(amountInWord, 1) & "分"
    End If
End If
End Function