人民币大写宏
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Function DX(M) '185个字符 DX = IIf(Abs(M) < 0.005, a, Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0")), Split(" [DBnum2] [DBnum2]圆0角;;圆零 [DBnum2]0分;;整 ")), a), "零圆零", a), "零圆", a), "零整", "整")) End Function
使用自带函数的方法
被转换的数值 12345.15
方法一
#NAME?
方法二
#NAME?
方法三
壹万贰仟叁百肆拾伍元壹角伍分
来自百度文库
宏代码 Function ldy(M) y = Int(Round(100 * Abs(M)) / 100) j = Round(100 * Abs(M) + 0.00001) - y * 100 f = Round((j / 10 - Int(j / 10)) * 10) a = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元") b = IIf(j > 9.4, Application.Text(Int(j / 10), "[DBNum2]") & " 角", IIf(y < 1, "", IIf(f > 0.4, "零", ""))) c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分") ldy = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & a & b & c, a & b & c)) End Function