" />
(资料图片仅供参考)
我有一个自定义函数,你看看合用不?Function 大写(m)大写 = IIf(m = "", "", IIf(m > -0.005, "", "负") & IIf(Abs(m) + 0.005 < 1, "", "计" & Application.Text(Int(Round(Abs(m), 2)), "[DBnum2]") & "元") & Application.Text(Right(100 * Round(m, 2), 2), "[dbnum2]0角0分"))大写 = Replace(Replace(大写, "零角", IIf(Abs(m) > 1 And Right(Round(100 * m, 0), 1), "零", "")), "零分", IIf(Round(m, 2), "整", ""))End Function 如果你不会用,给我留言
本文由用户上传,如有侵权请联系删除!Copyright @ 2015-2022 海外生活网版权所有 备案号: 沪ICP备2020036824号-21 联系邮箱:562 66 29@qq.com