VB.net-VSTO-13：整数数字转中文小写代码解析

哆哆Excel

发布于 2024-01-14 14:25:18

1420

文章被收录于专栏：哆哆Excel哆哆Excel

VB.net-VSTO-13整数数字转中文小写

整数数字转中文小写

例如：

4 四

12 一十二

25 二十五

361 三百六十一

1234 一千二百三十四

98765 九万八千七百六十五

整数数字转中文小写功能演示

完成后菜单这样子

现在在A列准备了这样子的数据，

有1位到8位的数据，也准备有带有小数的，一会我们看看怎么样子的

我们来演示一下

先选中数据区域--点击命令--选择要输出的起始单元格

确定，完成

我们可以看到带有小数的是进行自动取整再输出的

演示完毕

举例说明:

如输入数字24时

因为24>0,

第1次进入While到693行时diglt=4到698行chineseNumber= digits(4) & units(0) & chineseNumber="四"700行时digitCount+=1得0+1=1701行时：number= number \ 10=24\10=2
第2次进入While到693行时digit= number Mod 10=2到698行chineseNumber= digits(digit) & units(digitCount) & chineseNumber时此时digit=2，digitCount=1所以chineseNumber= digits(2) & units(1) & chineseNumber=二&十&四完成输出

明白了吗？

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-01-14，如有侵权请联系 cloudcommunity@tencent.com 删除