ASP将数字转中文数字(大写金额)的函数_应用技巧

来源:脚本之家  责任编辑:小易  

工具:2010版2113excel1、先打开excel,以下图为例,需要将A1单元格5261中的数字转化成中文大写金4102额格式并在B1单元格中显示结1653果;2、选中B1单元格并输入公式“=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[DBNum2][$-804]G/通用格式元"&IF(INT(A1)=A1,"整",""))&TEXT(MID(A1,FIND(".",A1&".0")+1,1),"[DBNum2][$-804]G/通用格式角")&TEXT(MID(A1,FIND(".",A1&".0")+2,1),"[DBNum2][$-804]G/通用格式分"),"零角","零"),"零分","")”;3、按下回车键后就可以在B1单元格中得出结果了,假设数据在A1,则在B1输入=IF(A1<0,"负","")&TEXT(INT(ABS(A1)),"[dbnum2]")&"圆"&TEXT(RIGHT(A1*100,2),"[dbnum2]0角0分")本回答被网友采纳,B1公式下拉:=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式圆2113;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零5261角",IF(A1^2<1,,"零")),"零分","整")我把文件传上来,请点击这4102回答右下角绿色的1653“点击下载”按钮,下载文件看看效果。本回答被网友采纳www.zgxue.com防采集请勿采集本网。

下面跟大家分享2种不同函数的实现方式。

人民币写法小写转大写,数字转成汉字书写。

ASP将数字转中文数字金额的函数一

你要写一个函数才可以

<% function Money(thenumber)'dim Money,i,String1,String2,length,checkp'定义变量dim one(),onestr()'定义数组 String1 = "零壹贰叁肆伍陆柒捌玖"String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫" checkp=instr(thenumber,".")'判断是否含有小数位if checkp<>0 then thenumber=replace(thenumber,".","")'去除小数位end iflength=len(thenumber) '取得数据长度redim one(length-1)'重新定义数组大小redim onestr(length-1)'重新定义数组大小for i=0 to length-1 one(i)=mid(thenumber,i+1,1) '循环取得每一位的数字 one(i)=mid(string1,one(i)+1,1)'循环取得数字对应的大写 if checkp=0 then '不含有小数的数据其数字对应的单位 onestr(i)=mid(string2,14-length+i,1) else '含有小数的数据其数字对应的单位 onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1) end if one(i)=one(i)&onestr(i)'将数字与单位组合 next Money=replace(join(one)," ","") '取得数组中所有的元素,并连接起来 Money=replace(Money,"零元","元") Money=replace(Money,"零万","万") Money=replace(Money,"零亿","亿") Money=replace(Money,"零仟","零") Money=replace(Money,"零佰","零") Money=replace(Money,"零拾","零") do while not instr(Money,"零零")=0 Money=replace(Money,"零零","零") loop ' response.write Money '显示结果 end functionResponse.write Money(8200001)%>

function chnumstr(n) dim i,j,k,strlen,retval,x,y,z,str z=array("零","一","二","三","四","五","六","七","把","九") y=

ASP阿拉伯数字转中文数字

如果将EXCEL中的数字用函数转换成中文金额大写?  我来答 分享 新浪微博 QQ空间 举报 1个回答 #热议# 在家过日子需要和亲人客套吗?王拔沃尔云 2019-06-

<% '################################ '函数名:阿拉伯数字转中文数字函数 '################################ function chnumstr(num) num=int(abs(num))strlen=len(num) for i=1 to strlen select case mid(num,i,1) case 1:chnum="一":case 2:chnum="二":case 3:chnum="三"case 4:chnum="四":case 5:chnum="五" case 6:chnum="六":case 7:chnum="七":case 8:chnum="八"case 9:chnum="九":case 0:chnum="零" end select chnumstr=chnumstr&chnum if i=strlen-1 and mid(num,i,1)<>0 then chnumstr=chnumstr&"十" if i=strlen-2 and mid(num,i,1)<>0 then chnumstr=chnumstr&"百" if i=strlen-3 and mid(num,i,1)<>0 then chnumstr=chnumstr&"千" if i=strlen-4 and mid(num,i,1)<>0 then chnumstr=chnumstr&"万" if i=strlen-5 and mid(num,i,1)<>0 then chnumstr=chnumstr&"十" if i=strlen-6 and mid(num,i,1)<>0 then chnumstr=chnumstr&"百" if i=strlen-7 and mid(num,i,1)<>0 then chnumstr=chnumstr&"千" if i=strlen-8 and mid(num,i,1)<>0 then chnumstr=chnumstr&"万" next if left(chnumstr,1)="一" then chnumstr=right(chnumstr,len(chnumstr)-1)if right(chnumstr,1)="零" then chnumstr=left(chnumstr,len(chnumstr)-1)end functionResponse.write chnumstr("84221213")%>

假设你的那个数字在A1单元格,那么你在目标单元格内输入以下代码: =IF((INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,"整","零"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格

到此这篇关于ASP将数字转中文数字(大写金额)的函数的文章就介绍到这了,更多相关ASP 数字转中文数字内容请搜索真格学网以前的文章或继续浏览下面的相关文章希望大家以后多多支持真格学网!

function int2chn(n) dim i,j,k,strlen,retval,x,y,z,str z=array("零","壹","贰","参","肆","伍","陆","柒","捌","玖") y=array("","十","佰2113","仟") x=Array("","万","亿","万万亿5261") strlen=len(n) str1=n for i= 1 to strlen j=mid(str1,i,1) retval=retval&z(j) if j>0 then retval=retval&y((strlen-i) mod 4)'如果大于零,加入十进4102位字符 retval=replace(retval,z(0)&z(0),z(0))'出现两个零后只留1653一个 if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'每四位加入进阶 if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'把最后的零去掉 next int2chn=retval end function把读出来的数字用这个函数转一下~追问你好能不能写出来,元角分,及整数后面加个整字。我的数据读取值是totalprice,你要是想转换为中文数字大写,你还是自己写一个吧,简单的循环里写一个10个数字的转换,再拼接在一起。很简单的,Public Function BigNum(xiaoxie As Currency) Dim fuhao As String Dim sNum As String Dim i As Integer fuhao = "" If xiaoxie < 0 Then xiaoxie = -xiaoxie fuhao = "负" End If If xiaoxie = 0 Then BigNum = "零元2113整" Else Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟5261佰拾亿仟佰拾万仟佰拾元角4102分" Const cCha = "零仟零佰零拾零零零零零亿零万零1653元亿万零角零分零整-零零零零零亿万元亿零整整" BigNum = "" sNum = Trim(Str(Int(Round(xiaoxie, 2) * 100))) For i = 1 To Len(sNum) BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1) Next i For i = 0 To 11 BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) Next i BigNum = fuhao + BigNum End If'申明:以上部分也是偷的人家的.下面是自己加的,上面的不解释(不懂)下面的代码的意思是按元取整 Dim x x = Len(BigNum)If Mid(BigNum, x - 1) = "角整" ThenBigNum = Mid(BigNum, 1, x - 1)ElseBigNum = BigNumEnd IfEnd Function,自己写一个函数转化吧,追问不会呀,菜鸟级的,从网上拷贝了几种都不行,我数据中是读这个值:totalprice,你帮我写下呗内容来自www.zgxue.com请勿采集。


  • 本文相关:
  • 用asp创建mdaemon用户的代码
  • 用asp实现的数据库中存取文件的代码
  • asp 正则实现清除html文本格式的函数代码
  • asp md5加密方式使用建议
  • c#入门教程之listbox控件使用方法
  • asp 取得用户真实ip,对代理地址仍然有效的函数
  • asp无限分级(递归调用)
  • 如何使用asp设置指定站点cpu最大使用程度
  • 转换中文为unicode 转换unicode到正常文本
  • 系统分配随机密码
  • Asp代码如何把数字金额转换成大写金额:把Access数...
  • EXCEL表中如何用函数把数字转化成中文大写金额格式...
  • 如何将数字转换成中文大写金额EXCEL
  • 如何将数字转换成中文大写金额(全)EXCEL
  • 大师指点,asp中怎样把数字转换为大写啊
  • asp 数字大写转换
  • 求ASP中阿拉伯数字转中文数字的代码
  • 如果将EXCEL中的数字用函数转换成中文金额大写?
  • EXCEL 如何使用函数 将含有两位小数的数字 自动转...
  • 在Asp.net中用js编程,将大写中文金额转换成为小写...
  • 网站首页网页制作脚本下载服务器操作系统网站运营平面设计媒体动画电脑基础硬件教程网络安全asp基础应用技巧数据库相关asp class类存储过程小偷/采集木马相关fso专题首页asp编程用asp创建mdaemon用户的代码用asp实现的数据库中存取文件的代码asp 正则实现清除html文本格式的函数代码asp md5加密方式使用建议c#入门教程之listbox控件使用方法asp 取得用户真实ip,对代理地址仍然有效的函数asp无限分级(递归调用)如何使用asp设置指定站点cpu最大使用程度转换中文为unicode 转换unicode到正常文本系统分配随机密码推荐4款傻瓜型的asp服务器软件(关于“未指定的错误”的问题 的比错误类型:provider (0x80004005c#入门教程之listbox控件使用方法utf-8 网页不显示+utf-8网页乱码asp 日期格式化问题microsoft jet database engine(asp中设置session过期时间方法总sql查询语句通配符与access模糊查asp获取url参数的几种方法分析总解决使用良精企业建站7.0未注册问题巧用filesystem组件实现web应用中的本地特asp中怎么实现sql数据库备份、恢复!asp dictionary对象的用法asp实现防止网站被采集代码asp连接mysql数据库详细实现代码检查access数据库中是否存在某个名字的表抽取10万条数据,想起getrows()asp 的中文分词[整理版]asp常用内置函数
    免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved