|
|
本帖最后由 dzytt 于 2012-11-28 14:16 编辑
“人民币大写”是一个早已实现的问题，网上此类编码很多，但很多编码有bug。之所以现在还在讨论它，是为了研究、学习先行者的方法和技巧。
感谢楼主和代码编写者，使后来者得以借鉴、学习，少走弯路。
编写“人民币大写”公式和函数的最终目的还是要实用，bug尽可能少。
公式1和函数9是这里面bug最少的。我比较喜欢公式1，因为它的代码较少。不足之处是还有些小的bug，并且没有相对应的函数代码，不能在VBA中使用。
公式1，值得商讨的地方：
IF(-RMB(A3,2)似乎可以省略？因为TEXT(A3,";负")也起同样的作用。
数字0，显示为“整”。把TEXT(A3,";负")改为TEXT(A3,";负;零元")就可以显示“零元整”。
如果A3是空格，公式1也显示“零元整”，不合乎习惯。在原公式前面添加if(A3="","",原公式代码)似乎更好些。
借鉴公式1 ，我改编成了函数N2B。在VBA中使用类似于IF(AND(MOD(ABS(A3%),1000)<100,MOD(ABS(A3%),1000)>=10)的等价的语句时，能通过、执行。但是，在输入大数字时，在数据类型长整型Long规定的上限附近，Mod函数会发生溢出。我改用了字符串作为条件语句，输入数字可以变得很大，请看附件。“人民币大写”可以分成三个部分实现：判定负数和零部分，整数部分和小数部分。N2B就是按这三部分编写的，在执行各部分代码前，增加了执行的条件判定，期望能少做点冗余的事情。
编写函数Daxie的目的，是为了自己阅读和理解“人民币大写”的规则，当然也可实际使用。其特点是只用了一次Application.Text()，用Replace将“大写”字符串分割成整数和小数两部分再分别处理。
经过上述工作，我认为的bug已经被补好。但愿能较以前的公式1有所改进。我用来测试的数字（有一组权威的标准的测试数字就好了），没有发现什么问题。这三个公式和函数有可能是在目前在实际使用中出现bug最少的。希望老师指教，指出不足之处。
函数9编写得很规范，bug也不多。为便于集中查找、使用，我把它原样复制过来，编在一处，没有做任何改动。
附件中还有一个打开该工作表就自动测试公式/函数耗用时间的表格。但是在同一台机器，同样条件下，测试的结果数值每次都不一样。耗用时间的排名次序也不一样。按理说，每次测试应该得到相同的结果。为什么会这样？百思不得其解，只能是我编写的子程序有bug。敬请老师指教。
上述代码是在Excel2000中实现的，在Excel2007中也已通过。我至今仍然用Excel2000，原因是在我经常使用的某个工作表中，word复制—excel粘贴，在word2003和word2007中都发生格式bug，而word2000没有这个bug。所以在通常情况下，我只使用Excel2000，其它版本作调试程序的参考。
写了这么多，愿能对同道有参考价值。谢谢。
人民币大写(采用).rar
(30.67 KB, 下载次数: 68)
|
|
楼主: ugyun
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2012-6-18 09:10
