海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
下面是具体实现的函数，调用方法就是 rmb(这里放的是你要转换的金额数字)
Function rmb(num) 


num = FormatNumber(num, 2) 


Dim numList,rmbList,numLen,numChar,numstr,n,n1,n2,hz 

numList = "零壹贰叁肆伍陆柒捌玖" 

rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万" 

If num > 9999999999999.99 Then 

rmb = "超出范围的人民币值" 

Exit Function 

End If 

numstr = CStr(num * 100) 

numLen = Len(numstr) 

n = 1 

Do While n <= numLen 

numChar = CInt(Mid(numstr, n, 1)) 

n1 = Mid(numList, numChar + 1, 1) 

n2 = Mid(rmbList, numLen - n + 1, 1) 

If Not n1 = "零" Then 

hz = hz + CStr(n1) + CStr(n2) 

Else 

If n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then 

Do While Right(hz, 1) = "零" 

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

Loop 

End If 

If (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿") Or n2 = "元") Then 

hz = hz + CStr(n2) 

Else 

If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then 

hz = hz + n1 

End If 

End If 

End If 

n = n + 1 

Loop 

Do While Right(hz, 1) = "零" 

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

Loop 

If Right(hz, 1) = "元" Then 

hz = hz + "整" 

End If 

rmb = hz 

End Function 

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!