Office中国论坛/Access中国论坛

标题: 请高手指点迷津，谢谢 [打印本页]

作者: xjqbf-kl 时间: 2002-12-23 03:15
标题: 请高手指点迷津，谢谢
ACCESS的高手们，能否将数字转换为人民币大写？请举一实例说明，谢谢！

作者: sunguochang 时间: 2002-12-23 05:03
可以以前有过这样的贴子可以看看

作者: zhengjialon 时间: 2002-12-23 16:08
好像是这个：http://www.office-cn.net/software/sf_info.asp?tableid=sbook_v&id=50

作者: sunguochang 时间: 2002-12-23 18:49
Function Unumber(Lnumber As Double)
Dim NumberStr$
Dim NumberLen%
Dim DotLoc1%
Dim DotLoc2%
Dim NumberStr1$
Dim NumberStr2$

If Lnumber = 0 Then
Unumber = "零元整"
Exit Function
End If
NumberStr = Application.WorksheetFunction.Text(Lnumber, "[DBnum2]")
NumberLen = Len(NumberStr)
DotLoc1 = InStr(1, NumberStr, ".", vbTextCompare)
DotLoc2 = NumberLen - DotLoc1
If DotLoc1 = 0 Then
NumberStr = NumberStr & "元整"
Else
NumberStr = Replace(NumberStr, ".", "元")
If DotLoc2 = 2 Then
NumberStr = NumberStr & "分"
If Mid(NumberStr, DotLoc1 + 1, 1) <> "零" Then
NumberStr1 = Mid(NumberStr, 1, DotLoc1 + 1) & "角"
NumberStr2 = Right(NumberStr, 2)
NumberStr = NumberStr1 & NumberStr2
End If
Else
NumberStr = NumberStr & "角整"
End If
End If
On Error Resume Next
Unumber = Replace(NumberStr, "零元", "")
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)