繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 货币大写转换函数的更新
- ASP
- 如何善用Response.Buffer增进浏览速度？
- 利用 Meta Tag 来增加文件属性
- 要如何使用 ASP Error 组件？
- Server.Execute和#include相异之处
- ASP中文本文件与数据库文件的数据交换
- 如何用ASP建立图表
- 如何在ASP中通过ODBC调用Excel中的数据
- 不刷新页面改变下拉菜单内容
- 使用ASP重启服务器
- 用模板建立动态ASP页
- 如何用ASP将一大段文字中的HTML的标识去掉
- 让使用者可以看到你的ASP的原代码
- 用ASP实现在特定的时段或对特定访问者开放
- 在ASP中判断SQL语句是否执行成功
- 直接显示Monday等星期的ASP语句
- LINE 的计数器源程序（附源代码）
- 使用asp+中的若干问题及解决方案
- ASP实现多语言支持
- Session对象在各浏览器中的有效范围
- SQL Server如何解决加密问题？
ASP 中的 货币大写转换函数的更新
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 153 ::
收藏到网摘: n/a
dim a '要转换成大写的金额
dim atoc '转换之后的值
Dim String1 '如下定义
Dim String2 '如下定义
Dim String3 '从原A值中取出的值
Dim I '循环变量
Dim J 'A的值乘以100的字符串长度
Dim Ch1 '数字的汉语读法
Dim Ch2 '数字位的汉字读法
Dim nZero '用来计算连续的零值是几个
String1 = "零壹贰叁肆伍陆柒捌玖"
String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero = 0
If InStr(1, CStr(a * 100), ".") <> 0 Then
err.Raise 5000, , "此函数( AtoC() )只能转换小数点后有两位以内的数！"
End If
J = Len(CStr(a * 100))
String2 = Right(String2, J) '取出对应位数的STRING2的值
For I = 1 To J
String3 = Mid(a * 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 If
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 If
If I = (J - 11) + 1 Or I = (J - 3) + 1 Then '如果该位是亿位或元位，则必须写上
Ch2 = Mid(String2, I, 1)
End If
End If
AtoC = AtoC & Ch1 & Ch2
If I = J And String3 = 0 Then '最后一位（分）为0时，加上“整”
AtoC = AtoC & "整"
End If
Next
if a=0 then
atoc="零元整"
end if
%>
评论 (0) All
