国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

功能最全、最短的人民幣大寫自定義函數(shù)

功能介紹：1.無金額限制，EXCEL認(rèn)多大的數(shù)，它就認(rèn)多大。 2.分以下四舍五入，數(shù)字< 0.005 (半分錢)，做0處理，不顯示 3.數(shù)字為負(fù)數(shù) 大寫前+負(fù) 4.錯誤率低，目前還沒發(fā)現(xiàn)說明：程序中有一處是+0.00001的地方，不是多于，如果去掉，有時會產(chǎn)生1分或1 角的誤差，這是EXCEL的問題去掉后 試試 這個數(shù) 338600.525 不是四舍五入了 是五舍六入了 不符合財會制度。
Function ldy888(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]") & "分")
ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "負(fù)" & A & b & c, A & b & c))
End Function
Public Function gly1126(n)
dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")
dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "負(fù)")
End Function