金额大写转换的函数

Public Function 大写转换(Amountin) '数值转汉字元角分
    Application.Volatile
    On Error Resume Next
    大写转换= Replace(Application.Text(Round(Amountin + 0.00000001, 2), "[DBnum2]"), ".", "元")
    大写转换= IIf(Left(Right(大写转换, 3), 1) = "元", Left(大写转换, Len(大写转换) - 1) & "角" & Right(大写转换, 1) & "分", IIf(Left(Right(大写转换, 2), 1) = "元", 大写转换 & "角整", IIf(大写转换= "零", "", 大写转换 & "元整")))
    大写转换= Replace(Replace(Replace(Replace(大写转换, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

——专注办公软件的二次开发及培训，你有问题，我有思路！
——微博、微信、CSDN同号：w_dexu。
——转载请注明出处！
扫码加微信