[挑战]功能最全、最短（7行）的人民币大写函数

huyongapple

提点意见：楼主为了追求代码行少，函数中未显式定义变量类型，这显然降低此函数的性能。

ldy888

谢谢楼上的.如果仅此一点.那它就是完美的.

因为huyongapple兄所担心的情况不会出现,相反还会快上一点点.

虽然我对定义变量类型所知不多,但我会瞎整,拿别人的有定义变量类型的程序,

去掉定义变量类型,再分别FOR它一千几百次,比较时间发现,长语句多循环的程序,定义变量类型是要快一些.

对于只有几行并没有循环的短程序,定义变量类型就多于了.

引用兰老师的话:

DIM 变量名称 AS 变量类型

是声名变量用的 就象是平时别人给你介绍客人：他是干什么的，只是介绍了我们才能针对性的谈话。变量也一样，我们给程序介绍：这个是整数型，你没必要把他当作其他类型对待，这样系统对你声明的变量作整数型对待了，如果不介绍系统还要花费一定的内存去判断新出现的变量是什么？结果是多占用内存影响运算速度.

我引申发挥一下:如果客人是来谈大生意的或是来谈婚论嫁的,那这个介绍是必须的,越详细越好.

但如果这个客人是来送盒饭的......边上跟个介绍人:这是我们饭店最好的送餐员,上8楼30秒不带喘气的...........不管你是觉得有趣还是觉得烦,我决不会多给钱,虽然早间不长,但影响了我吃饭的速度.

不知你们那送盒饭的是不是要介绍,反正我们这是一见面就说:5块.然后收钱走人.一个字:快!

ldy888

P7m6Iy71.rar (8.2 KB, 下载次数: 119)

2006-5-12 04:36 上传

点击文件名下载附件
[挑战]功能最全、最短（7行）的人民币大写函数

用兰老师教学版上的某学生编的有DIM的小程序做试验,发个文件上来, 加了个计时器,FOR了1000次,有定义的27秒,无定义的有时26有时27秒, 看来要5000次以上才能分出快慢来.次数在H2格直接修改. 谁有时间FOR它10000次看看.我敢打赌,不相上下. 机子不好的就少FOR点.

[此贴子已经被作者于2006-5-12 4:51:47编辑过]

Total_min

看了最后的关于定义变量类型的讨论,觉得 huyongapple 的提议是中肯的,我也持这个意见。

ldy888 的比喻很有趣，但是在他的实验中，也能看出有没有定义是不影响代码运行速度的。那么，我认为，尽量应该将定义写出来，而且最好是有注释。

当然，这是个人习惯。

onERR

ldy888兄,我佩服你啊.把定义不定义变量的速度都做了如此细致的比较.牛!!

以后我也难道定义了.多此一举!

sesell

定义变量是一个好的编程习惯。当然，几行代码的话定不定义都没所谓～

gly1126

受启发写了一个,欢迎指正!

Public Function dx(n)
dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")
dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

[此贴子已经被作者于2006-5-15 8:55:22编辑过]

韦小宝188

ldy888,银行的吧!行!

ldy888

[em04]

[此贴子已经被作者于2007-3-8 17:41:47编辑过]

ldy888

以下是引用[I]gly1126[/I]在2006-5-14 21:34:56的发言：[BR]

受启发写了一个,欢迎指正!

Public Function dx(n)
dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")
dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

抛了半年的砖,终于引出这块玉!!!谢谢兄弟! 回家慢慢研究.