 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--#include file=common.asp--> <% dim tmpnum \\\'从第一张页面传过来的小写金额 tmpnum=request("page1num") \\\'调用并显示大写金额 response.write rmb(cdbl(tmpnum)) response.end %> common.asp <% Function rmb(num) num = FormatNumber(num, 2) Dim numList Dim rmbList Dim numLen Dim numChar Dim numstr Dim n Dim n1, n2 Dim 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 %> 这个版本解决了小数位不能到分的问题,处理方法符合会计方法! 返回类别: 教程 上一教程: WEB表格导出为EXCEL文档的方式 下一教程: 基于WEB系统的多语言支持--ASP国际化多语言具体方案 您可以阅读与"金额大小写转变的ASP完全无错版本"相关的教程: · 如何实现大小写完全匹配的查询 · 到亿位的金额小写转大写JS代码 · 如何使replace方式不区分大小写？ · ASP取得图片大小代码 · 升级MD5.ASP，打造完全动态不重复的安全加密代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
