文本框输入小写数字，如何在另一个文本框中显示大写数字

luoyeeillen

文本框输入小写数字，如何在另一个文本框中显示大写数字，代码是怎么样的？

一点通

请用"大写"关键字搜索一下旧贴

luoyeeillen

谢谢，解决了，代码好长啊

eyewitnes

那给你个短的
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

学习一下。。。。。。。。

szgyyqtwq

学习,学习,.........