Access数字转中文结构化显示：一个函数搞定千变万化的需求

摘要：今天给大家分享一个非常实用且灵活的数字转中文函数。这个函数不同于传统的大写金额转换，它能把数字转换成更直观的中文结构形式，比如把12345显示成"1万2千3百4十5"。

hi，大家好！

今天给大家分享一个非常实用且灵活的数字转中文函数。这个函数不同于传统的大写金额转换，它能把数字转换成更直观的中文结构形式，比如把12345显示成"1万2千3百4十5"。

更重要的是，它提供了灵活的参数控制，能满足各种不同的显示需求。让我们来看看这段代码怎么写。

开始前，先给大家say个sorry，因为最近事情比较多，框架最近在开发的，争取这个月给大家更新一版出来，后期，我们慢慢迭代！大家持续关注我！谢谢大家了！

我们先来看看效果！

Debug.Print NumChineseStruct(12345) ' 输出：1万2千3百4十5Debug.Print NumChineseStruct(10203) ' 输出：1万0千2百0十3Debug.Print NumChineseStruct(10203, False) ' 输出：1万02百03

首先，我们先创建一个窗体，在窗体上放两个文本框，如图：

PublicFunction NumChineseStruct(ByVal num As Variant, _OptionalByVal keepZero AsBoolean = True, _OptionalByVal trimTail0 AsBoolean = True) AsStringIf IsNull(num) Or num = ""Then NumChineseStruct = ""ExitFunctionEndIfIfNot IsNumeric(num) Then NumChineseStruct = CStr(num)Dim n AsDouble n = CDbl(num)If n NumChineseStruct = "-" & NumChineseStruct(Abs(n), keepZero, trimTail0)If n = 0Then NumChineseStruct = "0"Dim sDigits AsString sDigits = CStr(Fix(n))Dim units AsString' 个十百千万十百千亿 ... 最多到 12 位可按需再扩展 units = Split("个,十,百,千,万,十,百,千,亿,十,百,千", ",")Dim i AsLong, pos AsLong, ch AsString, sb AsStringDim zeroBuf AsBooleanFor i = 1To Len(sDigits) ch = Mid$(sDigits, i, 1) pos = Len(sDigits) - i ' 0 = 个If ch = "0"Then zeroBuf = TrueIf keepZero Then' 保留占位：显示 0+单位 (跳过“个”)If pos > 0Then sb = sb & "0" & units(pos)Else sb = sb & "0"EndIfElse' 压缩模式：只记一个零，等下一位非零再输出' 不立即输出，占位延迟EndIfElse' 若之前有零被压缩，先补一个 0If zeroBuf AndNot keepZero Then sb = sb & "0"EndIf zeroBuf = False' 添加当前数字 + 单位(个位不加“个”)If pos > 0Then sb = sb & ch & units(pos)Else sb = sb & chEndIfEndIfNext i' 处理末尾零（仅在 keepZero=True 且 trimTail0=True 场景下才需要）If trimTail0 Then' 去掉末尾的 “0十”“0百”“0千”... 或单独的 0DoWhile Right$(sb, 1) = "0" sb = Left$(sb, Len(sb) - 1)Loop' 再去掉可能结尾残留的单位(如果最后是“十/百/千/万/亿”且前面最后一个是数字)' 但在这种结构下不会出现单独单位结尾(因为有数字)——可忽略EndIf NumChineseStruct = sbEndFunctionMe.Text3 = NumChineseStruct(Me.Text0, False, True)