Office中国论坛/Access中国论坛

标题: [分享]一个简单的小写金额转中文的函数 [打印本页]

作者: 海狸先生 时间: 2005-7-9 01:08
标题: [分享]一个简单的小写金额转中文的函数
如有雷同，不关我事，嘿嘿

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
贰仟零佰零拾元？？？？

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

作者: 海狸先生 时间: 2005-7-9 19:20
印刷模式是不是这样的？

作者: eyewitnes 时间: 2005-7-9 19:46
那倒也是，呵呵

作者: youchy652 时间: 2006-2-27 03:49
我在其他帖子里看过别人的类似函数，复杂多了！高手就是高手，不服不行！

作者: chang 时间: 2006-2-28 21:53
和我以前用过的相比真是简单了许多许多

作者: hgwhgw 时间: 2006-3-1 00:44
我是初学者

作者: YZQ2005 时间: 2006-4-16 05:45
现在看不懂啊

作者: YZQ2005 时间: 2006-4-16 05:57
代码,是我永远的痛啊,我没有多少英语的基础啊

作者: sc001 时间: 2007-4-15 21:41
谢谢看看先

作者: zhichaochen 时间: 2007-6-7 00:33
复制了，我正好要做一个这样的函数，

现在可以偷懒了。

作者: changweiren 时间: 2008-11-1 16:42
顶佩服顶佩服

作者: changweiren 时间: 2008-11-1 16:59
可惜不能显示负数

作者: chaojianan 时间: 2009-10-25 21:05
收藏了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)