...如何把数字金额转换成大写金额:把Access数据库中读出的数值(totalpr...

发布网友 发布时间：45分钟前

我来回答

共4个回答

热心网友 时间：41分钟前

你要是想转换为中文数字大写，你还是自己写一个吧，简单的循环里写一个10个数字的转换，再拼接在一起。很简单的。

热心网友 时间：43分钟前

自己写一个函数转化吧，

热心网友 时间：42分钟前

function int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=array("零","壹","贰","参","肆","伍","陆","柒","捌","玖")
y=array("","十","佰","仟")
x=Array("","万","亿","万万亿")
strlen=len(n)
str1=n
for i= 1 to strlen
j=mid(str1,i,1)
retval=retval&z(j)
if j>0 then retval=retval&y((strlen-i) mod 4)'如果大于零，加入十进位字符
retval=replace(retval,z(0)&z(0),z(0))'出现两个零后只留一个
if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'每四位加入进阶
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'把最后的零去掉
next
int2chn=retval
end function

把读出来的数字用这个函数转一下～

热心网友 时间：42分钟前

Public Function BigNum(xiaoxie As Currency)
Dim fuhao As String
Dim sNum As String
Dim i As Integer
fuhao = ""
If xiaoxie < 0 Then
xiaoxie = -xiaoxie
fuhao = "负"
End If
If xiaoxie = 0 Then
BigNum = "零元整"
Else
Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"
Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"
BigNum = ""
sNum = Trim(Str(Int(Round(xiaoxie, 2) * 100)))
For i = 1 To Len(sNum)
BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)
Next i
For i = 0 To 11
BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))
Next i
BigNum = fuhao + BigNum
End If
'申明:以上部分也是偷的人家的.下面是自己加的,上面的不解释(不懂)下面的代码的意思是按元取整
Dim x
x = Len(BigNum)
If Mid(BigNum, x - 1) = "角整" Then
BigNum = Mid(BigNum, 1, x - 1)
Else
BigNum = BigNum
End If
End Function