首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2020 - 9 48
  12345
6789101112
13141516171819
20212223242526
27282930


站点统计

最新评论

日志搜索

 标题   内容


cookie欺骗的实现 ASP防止挂马攻击和SQL参数注入攻击函数
未知 ASP将人民币小写转换成大写   [ 日期:2010-03-12 18:55:24 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速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条评论!
点这里显示QQ表情【隐藏是为了加快网页打开速度】
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com