(整)数值转换为人民币的四种方法
(整)数值转换为人民币的四种方法
‘**********************************‘方法1‘**********************************Public Function ToChineseMoney(ByVal dbMoney As Double) As String
Dim strChineseMoney As String
Dim intMoneyPos As Integer
Dim strMoney As String
Dim j As Integer
Dim k As Integer
Dim varN1 As Variant
Dim varN2 As Variant
Dim varN3 As Variant
varN1 = Array(”零”, “壹”, “贰”, “叁”, “肆”, “伍”, “陆”, “柒”, “捌”, “玖”)
varN2 = Array(””, “拾”, “佰”, “仟”)
varN3 = Array(”元”, “万”, “亿”)
strMoney = Format(CStr(Abs(dbMoney)), “0.00″)
intMoneyPos [...]

