前端之家收集整理的这篇文章主要介绍了
VB实现数字到中文金额的转换函数，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "不是数字类型"
Exit Function
End If
Dim BasicDWString As String,BasicDW ( ) As String
Dim MoneyDWString As String,MoneyDW ( ) As String
Dim MoneyStr As String,ReturnStr As String,TempStr As String
BasicDWString = "分,角,圆,拾,佰,仟,万,亿,万亿,兆,亿"
MoneyDWString = "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
BasicDW = Split ( BasicDWString,"," )
MoneyDW = Split ( MoneyDWString," )
MoneyStr = Format ( NMoney,"0.00" )
MoneyStr = Replace ( MoneyStr,".","" )
StrLen = Len ( MoneyStr )
ReturnStr = ""
For X = 0 To StrLen - 1
TempStr = Mid ( MoneyStr,StrLen - X,1 )
ReturnStr = MoneyDW ( TempStr ) & BasicDW ( X ) & ReturnStr
Next X
ReturnStr = Replace ( ReturnStr,"零分","" )
ReturnStr = Replace ( ReturnStr,"零角","零拾","零" )
ReturnStr = Replace ( ReturnStr,"零佰","零仟","零万","零" )
Do
ReturnStr = Replace ( ReturnStr,"零零","零" )
Loop While InStr ( ReturnStr,"零零" ) <> 0
ReturnStr = Replace ( ReturnStr,"零圆","圆" )
If Right ( ReturnStr,1 ) <> "圆" Then
ReturnStr = Replace ( ReturnStr,"圆","零" )
ReturnStr = ReturnStr & "圆"
End If
ReturnStr = ReturnStr & "整"
NMoneyToSMoney = ReturnStr
End Function
原文链接：/vb/262007.html
