Office中国论坛/Access中国论坛

标题: 文本框输入小写数字，如何在另一个文本框中显示大写数字 [打印本页]

作者: luoyeeillen 时间: 2007-8-8 16:33
标题: 文本框输入小写数字，如何在另一个文本框中显示大写数字
文本框输入小写数字，如何在另一个文本框中显示大写数字，代码是怎么样的？

作者: 一点通 时间: 2007-8-8 16:46
请用"大写"关键字搜索一下旧贴

作者: luoyeeillen 时间: 2007-8-9 11:30
标题: 谢谢
谢谢，解决了，代码好长啊

作者: eyewitnes 时间: 2007-8-9 11:33
那给你个短的
Public Function URmb(ByVal Money As Currency) As String
'一个简单的小写金额转中文的函数

'作者: 海狸先生

Dim i As Integer, strMoney As String

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

If Len(strMoney) > 14 Then MsgBox "超出范围！": Exit Function

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

End Function

作者: goto2008 时间: 2007-8-9 13:54
学习一下。。。。。。。。

作者: szgyyqtwq 时间: 2008-2-25 18:16
学习,学习,.........

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