求阿拉伯数字转换汉字数字的代码

渔洋河　发表于：2010-06-04 22:24:29 　

求阿拉伯数字转换汉字数字的代码,比如,输入123,显示:壹贰叁,

江羽发表于：2010-06-05 01:16:41

Public Function sNumToChar(intNum As String) As String
Dim CNum
Dim I As Integer

CNum = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
For I = 1 To Len(intNum)
sNumToChar = sNumToChar & CNum(Mid(intNum, I, 1))
Next I
End Function

Top

煮江品茶发表于：2010-06-05 08:30:33

function MYval(x as long) as string
myval=Replace(x,0,"零")
myval=Replace(Replace(Replace(myval,1,"壹"),2,"贰"),3,"叁")
myval=Replace(Replace(Replace(myval,4,"肆"),5,"伍"),6,"陆")
myval=Replace(Replace(Replace(myval,7,"柒"),8,"捌"),9,"玖")
end function

Top

jia 发表于：2010-06-05 08:58:04

给你传一个例子，会对你有所帮助。

点击下载此附件

Top

江羽发表于：2010-06-07 23:16:40

这前收到过一个问题不知是否是老兄所发,我已做好,现发上来,仅供参考.

Sub NumToCNum(strNum As String)

   Dim CNum As Variant   '定义一个数组变量
   Dim I As Integer      '定义循环变量
   Dim sNum As String    '获得小数点位置
   Dim LStr As String    '获得小数点左边数字字符
   Dim RStr As String    '获得小数点右边数字字符

   CNum = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")

   sNum = InStr(strNum, ".")

   '清空所有文本框内容
   For I = 1 To 9
      Me.Controls("text" & I) = ""
   Next I

'当无小数点时,直接将数字写入到整数位的文本框中
If sNum = 0 Then
     For I = 1 To Len(strNum)
         Me.Controls("text" & I + 7 - Len(strNum)) = CNum(Mid(strNum, I, 1))
     Next I
Else
     LStr = Left(strNum, sNum - 1)
     RStr = Right(strNum, Len(strNum) - sNum)

     '当存在小数点时,先将整数位数字写入的文本框中
     For I = 1 To sNum - 1
         Me.Controls("text" & I + 7 - Len(LStr)) = CNum(Mid(LStr, I, 1))
     Next I
    '再将小数位数字写入到文本框中
     For I = 1 To Len(strNum) - sNum
         Me.Controls("text" & I + 7) = CNum(Mid(RStr, I, 1))
     Next I
End If
End Sub

实例样本:点击下载此附件

Top

心态哥发表于：2012-08-09 15:05:15

学习了

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

求阿拉伯数字转换汉字数字的代码