完整功能的小写数字转中文大写代码

axz · 发表于 2002-7-8 19:35:00

财务工作中经常要将小写数字转换成中文大写打印。前面已经有高手写出了相关的代码，应该说代码写得相当

成功，可惜美玉有瑕，转换后的大写不太符合财务书写规范。如："208000"会写作"贰拾万捌仟元整"，应该为

："贰拾万零捌仟元整"，再如："800008000"会写作"捌亿捌仟元整"，应该为："捌亿零捌仟元整"。
这里我在前人代码的基础上加了几个小补丁（代码中有★号部份），修正了这几个不足。由于本人也是VBA的的

初学者，代码不免写得粗糙，望高手们批评修正。
中文大写转换是一个常见的问题，另一个角度来说也是ACCESS中的一个很大的不足之处。希望各位高手能写出

一个精简、准确的标准代码提供给大家，以方便国人。
另附我编写的在EXCEl中实现数字转中文大写代码。

axz · 发表于 2002-7-8 19:39:00

文件下载

ui · 发表于 2002-7-8 20:22:00

好代码，我现在正用得上，多谢多谢

yuab · 发表于 2002-7-8 21:27:00

我写的这方面代码有三种转方式呢？
12505.01=壹万式仟伍佰零伍元零壹分
12505.01=壹万式仟伍佰零伍元壹分
12505.01=壹式伍零伍零壹（空格任意调整）

axz · 发表于 2002-7-9 00:10:00

楼上的，将代码公布出来。好东东大家分享嘛。

HG · 发表于 2002-7-9 00:59:00

大家對英文的金額轉換有興趣嗎？我寫有有。

zhuyiwen · 发表于 2002-7-9 01:03:00

以下是引用axz在2002-7-8 16:09:31的发言：
楼上的，将代码公布出来。好东东大家分享嘛。

早就公布了源码，请到论坛上找。[em26]

www3www · 发表于 2003-2-12 19:53:00

好人一个

2000sh · 发表于 2003-3-8 07:33:00

大好

gxason · 发表于 2003-4-3 07:37:00

thank you !!继续努力！！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 完整功能的小写数字转中文大写代码

抱歉！刚才忘记上传附件了。

群介绍
主题无相 (随机显示版	同地区群块其他地区)