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
 &nb