将阿拉伯数字转成中文字

• 
  Private Function CChinese(StrEng As String) As String
  If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then
  If Trim(StrEng) <> "" Then MsgBox "无效的数字"
  CChinese = "": Exit Function
  End If
  Dim intLen As Integer, intCounter As Integer
  Dim strCh As String, strTempCh As String
  Dim strSeqCh1 As String, strSeqCh2 As String
  Dim strEng2Ch As String
  strEng2Ch = "零壹贰叁肆伍陆柒捌玖"
  strSeqCh1 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"
  strSeqCh2 = " 万亿兆"
  StrEng = CStr(CDec(StrEng))
  intLen = Len(StrEng)
  For intCounter = 1 To intLen
  strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
  If strTempCh = "零" And intLen <> 1 Then
  If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then
  strTempCh = ""
  End If
  Else
  strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
  End If
  If (intLen - intCounter + 1) Mod 4 = 1 Then
  strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)
  If intCounter > 3 Then
  If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)
  End If
  End If
  strCh = strCh & Trim(strTempCh)
  Next
  CChinese = strCh
  End Function

  （出处：网侠）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 将阿拉伯数字转成中文字 相关文章：
• ·将阿拉伯数字转成中文字的程式
• ·将阿拉伯数字转成中文字
• 将阿拉伯数字转成中文字 相关软件

上一篇:进程死亡的自动复活

下一篇:用VB设计个“出题”老师

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐