注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

将数字转换成大写的金额换算函数  

2011-06-04 19:52:13|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

%
Function rmb(num)
num = FormatNumber(num, 2)
Dim numList
Dim rmbList
Dim numLen
Dim numChar
Dim numstr
Dim n
Dim n1, n2
Dim z
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"
If num  9999999999999.99 Then
 rmb = "超出范围的人民币值"
 Exit Function
End I
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 I
 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 I
 End I
 End I
 n = n + 1
Loop
Do While Right(hz, 1) = "零"
 hz = Left(hz, Len(hz) - 1)
Loop
If Right(hz, 1) = "元" Then
 hz = hz + "整"
End I
rmb = z
End Function
%

  评论这张
 
阅读(202)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017