将阿拉伯数字转成中文字

原创 2001年09月10日 19:06:00
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

阿拉伯数字与中文数字的转换----------相互转化

今天继续看《算法的乐趣》,学习了阿拉伯数字与中文数字的转化。 汉字用零一二三四五六七八九作为基本计数,与阿拉伯数字靠数字偏移位置的权位不一样,中文数字是才有“数字+权位”的方式组成数字,比如百,千,...
  • jjfly999
  • jjfly999
  • 2016年04月03日 22:58
  • 19865

将字符串中的中文数字转换成阿拉伯数字

将字符串中的中文数字转换成阿拉伯数字
  • u014040795
  • u014040795
  • 2017年04月14日 21:38
  • 1392

JS将阿拉伯数字转为中文书写

JS将阿拉伯数字转为中文书写,菜鸟的处理过程和收获。
  • Pandaroid
  • Pandaroid
  • 2015年03月16日 11:49
  • 2991

将阿拉伯数字转成中文字的程式

  • 2011年03月31日 16:45
  • 2KB
  • 下载

阿拉伯数字转成中文字

  • 2009年01月03日 10:18
  • 5KB
  • 下载

精彩编程与编程技巧-将阿拉伯数字转成中文字的程式...

  • 2009年10月10日 23:38
  • 2KB
  • 下载

python 中文汉字钱转成阿拉伯数字钱

自己写的一个中文汉字钱转成阿拉伯数字钱的python demo. 例如:          二千万零二十三块              ==>     20000023        三百二十万五百两...
  • chenzhi1992
  • chenzhi1992
  • 2017年07月10日 09:03
  • 237

js(非金额)把阿拉伯数字转成中文大写

  • 2017年05月26日 16:10
  • 5KB
  • 下载

把中文表示的数字转成阿拉伯数字 - java

问题描述: 输入一个中文字符串,使用中文表示的数字形式。如一百,一千万,四千二百万零三十。 输出对应的数字,如100,1000000,42000030。思路: 遇到这个问...
  • Tuzi294
  • Tuzi294
  • 2017年04月16日 22:55
  • 491

[LeetCode-13] Roman to Integer(罗马数字转成阿拉伯数字)

不难发现,罗马数字是没有禁止,我建议大家可以先试着从I数到C,这样便对罗马数字有个了解,然后发现其为纯粹叠加而成的,所以用户输入一个数后,我们可以来遍历这个数,用sum来总计和,比较pre (s[i-...
  • xy010902100449
  • xy010902100449
  • 2015年09月10日 09:02
  • 504
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将阿拉伯数字转成中文字
举报原因:
原因补充:

(最多只允许输入30个字)