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

汇总技巧

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

 
 
 

日志

 
 

精华区中的“货币大写转换函数”用起来不是很方便,修改如下:  

2011-06-06 17:27:31|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

%
Function ChangeNumToDx(SourceNum)
Dim String1'如下定义
Dim String2'如下定义
Dim String3'从原SourceNum值中取出的值
Dim I'循环变量
Dim J'SourceNum的值乘以100的字符串长度
Dim Ch1'数字的汉语读法
Dim Ch2'数字位的汉字读法
Dim nZero'用来计算连续的零值是几个
String1 = "零壹贰叁肆伍陆柒捌玖"
String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero = 0
ChangeNumToDx=""
If Not IsNumeric(SourceNum) Then
SourceNum="0"
End I
If InStr(1, CStr(SourceNum * 100), ".")  0 Then
err.Raise 5000, , "此函数( AtoC() )只能转换小数点后有两位以内的数!"
End I
J = Len(CStr(SourceNum * 100))
String2 = Right(String2, J)'取出对应位数的STRING2的值
For I = 1 To J
String3 = Mid(SourceNum * 100, I, 1)'取出需转换的某一位的值
If I  (J - 3) + 1 And I  (J - 7) + 1 And I  (J - 11) + 1 And I (J - 15) + 1 Then
If String3 = 0 Then
Ch1 = ""
Ch2 = ""
nZero = nZero + 1
ElseIf String3  0 And nZero  0 Then
Ch1 = "零"  Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
Else
Ch1 = Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
End I
Else'该位是万亿,亿,万,元位等关键位
If String3  0 And nZero  0 Then
Ch1 = "零"  Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
ElseIf String3  0 And nZero = 0 Then
Ch1 = Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
ElseIf String3 = 0 And nZero = 3 Then
Ch1 = ""
Ch2 = ""
nZero = nZero + 1
Else
Ch1 = ""
Ch2 = Mid(String2, I, 1)
nZero = nZero + 1
End I
If I = (J - 11) + 1 Or I = (J - 3) + 1 Then'如果该位是亿位或元位,则必须写上
Ch2 = Mid(String2, I, 1)
End I
End I
AtoC = AtoC  Ch1  C2
If I = J And String3 = 0 Then'最后一位(分)为0时,加上“整”
ChangeNumToDx = AtoC  "整"
End I
Next
If SourceNum=0 Then
ChangeNumToDx="零元整"
End I
End Function
'以下为例子
Response.Write ChangeNumToDx(100000)
'结果为:壹拾万元整
%

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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