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

海狸先生 · 发表于 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编辑过]

chaojianan · 发表于 2009-10-25 21:05:23

收藏了。

changweiren · 发表于 2008-11-1 16:59:18

可惜不能显示负数

changweiren · 发表于 2008-11-1 16:42:40

顶佩服顶佩服

zhichaochen · 发表于 2007-6-7 00:33:00

复制了，我正好要做一个这样的函数，

现在可以偷懒了。

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

谢谢看看先

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

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

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

现在看不懂啊

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

我是初学者

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

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

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

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

主题相关群

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

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

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