VB 阿拉伯数字转换为中文大写数值函数

最新推荐文章于 2024-05-02 10:06:43 发布

miaozk2006

最新推荐文章于 2024-05-02 10:06:43 发布

阅读量1.1k

点赞数

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82417018

版权

该博客提供了一个VB函数，用于将阿拉伯数字转换为中文大写形式。函数检查输入有效性，然后通过映射数字到中文字符并处理零的特殊规则来构建结果。此外，还推荐了多个VB相关文章，涵盖资源管理、控件使用、算法和系统交互等主题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

摘自：网络整理

★VB部分相关文章推荐：★