久久久久成人免费看a含羞草久色_91福利资源站_好色综合网_久久久久国产精品一区二区三区_一级片免费看_久久久久国产精品久久久久

订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp金额数字转换为大小写汉字

深山工作室 2012/3/10 15:49:19 深山行者 字体: 浏览 13733

<form name="form1" method="post" action="demo.asp">
<input type="text" name="page1num" id="page1num" value="<%=request("page1num")%>">
<input type="submit" name="button" id="button" value="提交">
</form>


<%
dim tmpnum
tmpnum=request("page1num")
response.write rmb(cdbl(tmpnum))
response.end

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

%>

相关阅读
canvas绘制的文字如何换行
Word图片导出方法
佳达国际货运代理有限公司
爱尚学生网
一个可以说是超级变态,超级强的DIV+CSS应用
各个苹果手表型号版本对比以及查看苹果手机Apple Watch型号
深山留言板教师节效果
利用Asp里的xmlhttp组件来获取页面内容
共有0条关于《asp金额数字转换为大小写汉字》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
绿色乡村留言板模板
旅行社网站模板11
标准版下拉菜单
微信公众号用户关注时自动推送回复小程序卡片(图文卡片)不需要第三方平台就可以做
另类营销,“我在床上很厉害的哦”引发的思考
几个经典的css技巧
主站蜘蛛池模板: 国产精品亚洲欧美大片在线看 | 播放中国女人毛片一级带 | 色欲精品国产一区二区三区av | 一区二区三区欧美视频 | 国产日韩欧美中文字幕 | 免费午夜影院 | 国产性自拍 | 日本孕妇潮喷高潮视频 | 热久久久久久 | 国产成人精品女人不卡在线 | 肉色网站 | 一级免费a | 国模福利视频在线播放 | 免看一级a毛片一片成人不卡 | 国精产品一二三区精华液 | 国产精品自在拍在线拍 | 一级片在线| 97精品伊人久久久大香线蕉 | 成人一区二区三区视频在线观看 | 久草在线网 | 免费播放欧美毛片欧美a | 欧美黑人xxxx高潮猛交 | 狠狠躁日日躁夜夜躁2022麻豆 | 青青青在线免费 | 成年女人毛片免费视频 | 一级特黄a免费大片 | 欧美一区二区三区在线可观看 | 国产一区在线播放 | 996pao强力打造高清在线 | 国产精品丝袜黑色高跟鞋 | 天堂中文在线免费观看 | 欧美成人免费观看国产 | 亚洲不卡一区二区三区 | 成人毛片免费视频播放 | 中国少妇内射xxxxⅹhd | 一级做a爱片特黄在线观看yy | 欧美不卡在线 | 久久青草18免费观看网站 | xf在线a精品一区二区视频网站 | 欧美日韩一区二区三区视视频 | 老鸭窝永久网址国产入口 |