VB实现数字到中文金额的转换函数

最新推荐文章于 2022-08-20 16:57:01 发布

leeyon4151

最新推荐文章于 2022-08-20 16:57:01 发布

阅读量1.4k

点赞数 1

分类专栏： VB 文章标签： vb string function

VB 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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, "零拾", "零" )  
      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