可直接在vb6中封装的大写函数

excel1202

可直接在vb6中封装的大写函数:

Public Function dx(n)
    On Error Resume Next
    With xlapp
        dx = Replace(.WorksheetFunction.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, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
    End With
End Function