[分享]一个简单的小写金额转中文的函数

海狸先生 · 发表于 2005-7-9 01:08:00

如有雷同，不关我事，嘿嘿

Public Function URmb(ByVal Money As Double) As String

Dim Intlen As Integer, i As Integer, strMoney As String

strMoney = Format(Money, "#.##") * 100

Intlen = Len(strMoney)

If Intlen > 14 Then MsgBox "超出范围！": Exit Function

For i = 1 To Intlen

URmb = Mid("零壹贰叁肆伍陆柒捌玖", Mid(strMoney, Intlen + 1 - i, 1) + 1, 1) & Mid("分角元拾佰仟万拾佰仟亿拾佰仟", i, 1) & URmb

Next

End Function

[此贴子已经被作者于2005-7-8 17:09:34编辑过]

eyewitnes · 发表于 2005-7-9 16:33:00

贰仟零佰零拾元？？？？

[此贴子已经被作者于2005-7-9 8:33:44编辑过]

海狸先生 · 发表于 2005-7-9 19:20:00

印刷模式是不是这样的？

eyewitnes · 发表于 2005-7-9 19:46:00

那倒也是，呵呵

youchy652 · 发表于 2006-2-27 03:49:00

我在其他帖子里看过别人的类似函数，复杂多了！高手就是高手，不服不行！

chang · 发表于 2006-2-28 21:53:00

和我以前用过的相比真是简单了许多许多

hgwhgw · 发表于 2006-3-1 00:44:00

我是初学者

YZQ2005 · 发表于 2006-4-16 05:45:00

现在看不懂啊

YZQ2005 · 发表于 2006-4-16 05:57:00

代码,是我永远的痛啊,我没有多少英语的基础啊

sc001 · 发表于 2007-4-15 21:41:00

谢谢看看先

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

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

主题相关群

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

[模块/函数] [分享]一个简单的小写金额转中文的函数

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