ASP将数字转中文数字(大写金额)的函数

下面跟大家分享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 if
length=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 function
Response.write Money(8200001)
%>

ASP阿拉伯数字转中文数字

<%
'################################
'函数名:阿拉伯数字转中文数字函数
'################################
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 function
Response.write chnumstr("84221213")
%>

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

(0)

相关推荐

  • ASP将数字转中文数字(大写金额)的函数

    下面跟大家分享2种不同函数的实现方式. ASP将数字转中文数字金额的函数一 <% function Money(thenumber) 'dim Money,i,String1,String2,length,checkp'定义变量 dim one(),onestr()'定义数组 String1 = "零壹贰叁肆伍陆柒捌玖" String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫" checkp=instr(thenumber,".")'判断

  • vue将数字转为中文大写金额方式

    目录 将数字转为中文大写金额 数字(金额)大小写实时转换 将数字转为中文大写金额 记得引入vue.js文件 <html lang="en"> <head> <meta charset="UTF-8"> <title>用vue将数字转为中文大写金额</title> <script src='vue.js'></script> </head> <body> <

  • Python使用cn2an实现中文数字与阿拉伯数字的相互转换

    工作中经常遇到阿拉伯数字转换称为中文数字或者大写金额,在网上搜了下,cn2an口碑较好,遂进行了一番学习. 安装 pip install cn2an 依赖库为setuptools.PyYAML 查看版本 In [1]: import cn2an In [2]: cn2an.__version__ Out[2]: '0.5.8' 查看模块定义的标识符 In [3]: dir(cn2an) Out[3]: ['An2Cn', 'Cn2An', 'Transform', '__all__', '__b

  • javascript中验证大写字母、数字和中文

    复制代码 代码如下: var reg = /^[u4E00-u9FA5]+$/; //验证中文 var cp=$("input[name='cpid']").val(); for(var i=0;i<cp.length;i++){ var cpp=cp.charAt(i); if(!reg.test(cpp)||cpp.match(/^([A-Z])+$/)||cpp.match(/^\d+$/)){ //验证大写字母,数字和中文 document.getElementById(

  • Java正则表达式过滤出字母、数字和中文

    1.Java中过滤出字母.数字和中文的正则表达式 (1)过滤出字母的正则表达式 [^(A-Za-z)] (2) 过滤出 数字 的正则表达式 [^(0-9)] (3) 过滤出 中文 的正则表达式 [^(\\u4e00-\\u9fa5)] (4) 过滤出字母.数字和中文的正则表达式 [^(a-zA-Z0-9\\u4e00-\\u9fa5)] 2.实例源码 ** * @Title:FilterStr.java * @Package:com.you.dao * @Description:Java中过滤数

  • C#基于纯数学方法递归实现货币数字转换中文功能详解

    本文实例讲述了C#基于纯数学方法递归实现货币数字转换中文功能.分享给大家供大家参考,具体如下: 最近由于项目的原因,需要写一个货币数字转换中文的算法,先在网了找了一下,结果发现无一列外都是用(Replace)替换的方式来实现的,所以想写个另外的算法:因为本人是学数学出身的,所以用纯数学的方法实现. 注意:本文中的算法支持小于1023 (也就是9999亿兆)货币数字转化. 货币中文说明: 在说明代码之前,首先让我们回顾一下货币的读法. 10020002.23  读为 壹仟零贰万零贰元贰角叁分 10

  • PHP人民币金额数字转中文大写的函数代码

    在网上看到一个非常有趣的PHP人民币金额数字转中文大写的函数,其实质就是数字转换成中文大写,测试了一下,非常有趣,随便输个数字,就可以将其大写打印出来,新手朋友们试一下吧,举一反三,还可以写好多有趣的PHP转换函数. 复制代码 代码如下: <?  function cny($ns) {     static $cnums=array("零","壹","贰","叁","肆","伍",

  • 一个阿拉伯数字转中文数字的函数

    最近因需要,写了个"阿拉伯数字转中文数字的函数".搜索了精华区只见到一个类似的.感觉到我的算法不错,所以贴出来共享一下如果要用于金额的转换,对小数部分的处理要做一下修改<?phpfunction ch_num($num,$mode=true) {  $char = array("零","壹","贰","叁","肆","伍","陆","

  • 基于JS实现数字+字母+中文的混合排序方法

    在上篇文章给大家介绍了JavaScript sort数组排序方法和自我实现排序方法小结,用自己的方法实现了数字数组的排序. 当然,实际运用中,我还是会使用sort方法更加方便.但是,我上一篇博文,仅仅是实现了数字排序,而srot方法默认可是能给字母实现排序的哦!而我的代码只能排序数字,看起来还是弱弱的. 所以,我得加上能排字母甚至中文的排序方法. 实现代码 $(function(){ var arr = ["Jack","Book","Fung"

  • JavaScript实现阿拉伯数字和中文数字互相转换

    阿拉伯数字转中文数字 中文数字的特点: 每个计数数字都跟着一个权位,权位有:十.百.千.万.亿. 以"万"为小节,对应一个节权位,万以下没有节权位. 每个小节内部以"十百千"为权位独立计数. "十百千"不能连续出现,而"万"和"亿"作为节权位时可以和其他权位连用,如:"二十亿". 中文数字对"零"的使用要满足以下三条规则: 以10000为小节,小节的结尾即使是0,也不

随机推荐