通过VBA的自定义函数实现“数字转大写金额”的方法（票据打印-2）

票据打印有一个关键的技术，那就是“数字转大写金额”。当然，解决的办法很多，这里我转载一个自定义函数，处理起来非常简单。

Function dxje(Q)

ybb = Round(Q * 100)

y = Int(ybb / 100)

j = Int(ybb / 10) - y * 10

f = ybb - y * 100 - j * 10

zy = Application.WorksheetFunction.Text(y, "[dbnum2]")

zj = Application.WorksheetFunction.Text(j, "[dbnum2]")

zf = Application.WorksheetFunction.Text(f, "[dbnum2]")

dxje = zy & "元" & "整"

d1 = zy & "元"

If f <> 0 And j <> 0 Then

dxje = d1 & zj & "角" & zf & "分"

If y = 0 Then

dxje = zj & "角" & zf & "分"

End If

End If

If f = 0 And j <> 0 Then

dxje = d1 & zj & "角" & "整"

If y = 0 Then

dxje = zj & "角" & "整"

End If

End If

If f <> 0 And j = 0 Then

dxje = d1 & zj & zf & "分"

If y = 0 Then

dxje = zf & "分"

End If

End If

If Q = "" Then

dxje = 0

End If

End Function

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24345566/viewspace-1050438/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24345566/viewspace-1050438/