Office中国论坛/Access中国论坛

标题: 请教一下,在ACCESS中怎么将人民币小写格式的转变为大写的格式,万分感谢! [打印本页]

作者: szgyyq 时间: 2006-2-13 20:51
标题: 请教一下,在ACCESS中怎么将人民币小写格式的转变为大写的格式,万分感谢!
请教一下,在ACCESS中怎么将人民币小写格式的转变为大写的格式,万分感谢!

作者: szgyyq 时间: 2006-2-13 20:55
比如将人民币120.36元转变为壹百贰拾元叁角陆分,高手指点一下,谢谢了!

作者: sojyang 时间: 2006-2-13 21:15
不明白，同问！

作者: hahaxiao 时间: 2006-2-15 22:24
自己写个函数就行了。

作者: hahaxiao 时间: 2006-2-15 22:36
Private Function CCh(N1) As String

Select Case N1

Case 0

CCh = "零"

Case 1

CCh = "壹"

Case 2

CCh = "贰"

Case 3

CCh = "叁"

Case 4

CCh = "肆"

Case 5

CCh = "伍"

Case 6

CCh = "陆"

Case 7

CCh = "柒"

Case 8

CCh = "捌"

Case 9

CCh = "玖"

End Select

End Function

'名称： ChMoney

'得到数字 N1 的汉字大写

'最大为千万位

'O 返回 ""

Public Function ChMoney(N1) As String

Dim tMoney As String

Dim lMoney As String

Dim tn '小数位置

Dim s1 As String '临时STRING 小数部分

Dim s2 As String '1000 以内

Dim s3 As String '10000

If N1 = 0 Then

ChMoney = " "

Exit Function

End If

If N1 < 0 Then

ChMoney = "负" + ChMoney(Abs(N1))

Exit Function

End If

tMoney = Trim(Str(N1))

tn = InStr(tMoney, ".") '小数位置

s1 = ""

If tn <> 0 Then

ST1 = Right(tMoney, Len(tMoney) - tn)

If ST1 <> "" Then

t1 = Left(ST1, 1)

ST1 = Right(ST1, Len(ST1) - 1)

If t1 <> "0" Then

s1 = s1 + CCh(Val(t1)) + "角"

End If

If ST1 <> "" Then

t1 = Left(ST1, 1)

s1 = s1 + CCh(Val(t1)) + "分"

End If

End If

ST1 = Left(tMoney, tn - 1)

Else

ST1 = tMoney

End If

s2 = ""

If ST1 <> "" Then

t1 = Right(ST1, 1)

ST1 = Left(ST1, Len(ST1) - 1)

s2 = CCh(Val(t1)) + s2

End If

If ST1 <> "" Then

t1 = Right(ST1, 1)

ST1 = Left(ST1, Len(ST1) - 1)

If t1 <> "0" Then

s2 = CCh(Val(t1)) + "拾" + s2

Else

If Left(s2, 1) <> "零" Then s2 = "零" + s2

End If

End If

If ST1 <> "" Then

t1 = Right(ST1, 1)

ST1 = Left(ST1, Len(ST1) - 1)

If t1 <> "0" Then

s2 = CCh(Val(t1)) + "佰" +

作者: dnl 时间: 2006-2-22 07:10
是自己写的吗？谢谢！

[此贴子已经被作者于2006-2-21 23:10:41编辑过]

作者: py327 时间: 2006-2-24 19:55
如何使用？

作者: nxjswt 时间: 2006-6-6 08:14
比如有个字段TEXT1是123，可以在字段处输入 =CCh(TEXT1) 即刻转换为大写

作者: pin111 时间: 2006-6-6 23:14
代码写在哪里啊？

作者: 6831860 时间: 2006-6-7 00:23
用这个也行

Function Etoc(thenumber)
Dim Money, i, String1, String2, length, checkp '定义变量
Dim one(), onestr() '定义数组

String1 = "零壹贰叁肆伍陆柒捌玖"
String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫"

checkp = InStr(thenumber, ".") '判断是否含有小数位
If checkp <> 0 Then
thenumber = Replace(thenumber, ".", "") '去除小数位
End If

length = Len(thenumber) '取得数据长度
ReDim one(length - 1) '重新定义数组大小
ReDim onestr(length - 1) '重新定义数组大小

For i = 0 To length - 1

one(i) = Mid(thenumber, i + 1, 1) '循环取得每一位的数字
one(i) = Mid(String1, one(i) + 1, 1) '循环取得数字对应的大写

            If checkp = 0 Then
                                                '不含有小数的数据其数字对应的单位
               onestr(i) = Mid(String2, 14 - length + i, 1)
            Else
                                             '含有小数的数据其数字对应的单位
            onestr(i) = Mid(String2, 15 - length + i + Len(thenumber) - checkp, 1)
            End If

one(i) = one(i) & onestr(i) '将数字与单位组合
Next

Money = Replace(Join(one), " ", "") '取得数组中所有的元素，并连接起来
Money = Replace(Money, "零元", "元")
Money = Replace(Money, "零万", "万")
Money = Replace(Money, "零亿", "亿")
Money = Replace(Money, "零仟", "零")
Money = Replace(Money, "零佰", "零")
Money = Replace(Money, "零拾", "零")

Do While Not InStr(Money, "零零") = 0
Money = Replace(Money, "零零", "零")
Loop
Etoc = Money
Debug.Print Money
End Function

作者: ab00ab 时间: 2006-6-7 02:29
[em01][em01][em01]

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