挑战完美: 数字转中文大写程序.结果依据MS office2003.暂时没测出bug. code by 梅雪香.

梅花雪: 测试有错误,一个有错误的程序再精短也不能算好的程序.
  壹萬壹拾
  壹萬贰拾
  壹萬壹佰壹
  壹萬壹仟壹佰壹var arr = [ "100000100",
"1000000000000000000000000000000021",
"10010",
"100101"
]
for(var i=0;i<arr.length;i++)
document.write(Chinese(arr[i]) + "<br>");
这个测试就通不过.

excellent！
收藏…………学习…………

我的输出是和MS office 2003一样的.目前没发现不一样的.
壹拾萬壹佰壹就是不对的呀,要加零的

<SCRIPT LANGUAGE=vbs>
N=34334100000.0502'假设N不是负数,末尾不带0
Snz=split(cstr(N),".")(0)'整数部分转字串
A=array( "零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
B=array("元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万")
C=array("角","分","厘","毫")
WeiSz=len(cstr(int(Snz)))'整数位数
for i=1 to WeiSz
              JieG=JieG & A(cint(mid(Snz,i,1)))
              if cint(mid(Snz,i,1))<>0 or _
              (WeiSz-i)=0 or (WeiSz-i)=4 or _
              (WeiSz-i)=8 or (WeiSz-i)=12  then JieG=JieG & B(WeiSz-i)
JieG=replace(JieG,"零零","")
next
JieG=replace(JieG,"零","")
if N<>int(N) then
       JieG=JieG & "零"
       Snx=split(cstr(N),".")(1)'小数部分转字串
       WeiSx=len(cstr(int(Snx)))'小数位数
       for i=1 to WeiSx
              if cint(mid(Snx,i,1))=0 then i=i+1
              JieG=JieG & A(cint(mid(Snx,i,1))) & C(i-1)
       next
end if
msgbox JieG
</SCRIPT><SCRIPT LANGUAGE="JavaScript">
function Chinese(num)  //将阿拉伯数字翻译成中文的大写数字
{
    if(!num)
{alert("Number is wrong!"); return "Number is wrong!";}
    var AA = new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");
    var BB = new Array("","拾","佰","仟","萬","億","点","");

    var a = (""+ num).replace(/(^0*)/g, "").split("."), k = 0, re = "";
    for(var i=a[0].length-1; i>=0; i--)
    {
        switch(k)
        {
            case 0 : re = BB[7] + re; break;
            case 4 : if(!new RegExp("0{4}\{"+ (a[0].length-i-1) +"}$").test(a[0]))
                     re = BB[4] + re; break;
            case 8 : re = BB[5] + re; BB[7] = BB[5]; k = 0; break;
        }
        if(k%4 == 2 && a[0].charAt(i+2) != 0 && a[0].charAt(i+1) == 0) re = AA[0] + re;
        if(a[0].charAt(i) != 0) re = AA[a[0].charAt(i)] + BB[k%4] + re; k++;
    }
    if(a.length>1) //加上小数部分(如果有小数部分)
    {
        re += BB[6];
        for(var i=0; i<a[1].length; i++) re += AA[a[1].charAt(i)];
    }
    return re;
}
alert(Chinese("34334100000.0502"));
</script>

meizz(梅花雪)的代码我以前用过，有个bug(其实是跟我们的习惯写法有差异)如:
壹億壹佰 -- 我们写作:壹億零壹佰

说点个人的感觉问题：以前我也做过这类的函数，为公司的项目，用的Delphi把阿香的存为Htm试了一下，说说，我的看法其它都好吧，唯一有一点，可能是和我的个人习惯有点不习惯。
就是，当1数到10时，我们用中文，对10都叫“拾”吧。而不是叫“壹拾”。这点，我举一个大点数字，就看得出了：100001这个数，叫“拾万零一”顺些吧但在程序中，叫“一拾万零一”。我就觉得怪怪的。当然，如果是
200001就叫“二拾万零一”了不过，我个人习惯，当100001时，还是直接叫“拾万零一”

bzm(bai13.yeah.net 白乙川)
要实现你说的并不难不过我是按照MS office 2003来做的,并不是我想当然的,我这么读也不习惯,只是为了适应标准而已.

按照比较原始的思路写的
<SCRIPT LANGUAGE="JavaScript">
function Chinese(numStr)  //将阿拉伯数字翻译成中文的大写数字
{
    var AA = new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");
    var BB = new Array("","拾","佰","仟","萬","拾","佰","仟","億","拾","佰","仟");
    var numStrArry=numStr.split(".");
    var tempChineseStr="";
    for(var i=numStrArry[0].length-1; i>=0; i--)
    {
        tempChineseStr=AA[numStrArry[0].charAt(i)]+BB[numStrArry[0].length-1-i]+tempChineseStr;
    }
    tempChineseStr=tempChineseStr.replace(/(零拾)|(零佰)|(零仟)/ig,"零");
    tempChineseStr=tempChineseStr.replace(/零+/ig,"零");  //去连零
    tempChineseStr=tempChineseStr.replace(/零([億萬])/ig,"$1");
    tempChineseStr=tempChineseStr.replace(/億萬/ig,"億");
    tempChineseStr=tempChineseStr.replace(/零$/ig,"");
if(numStrArry.length>1)
{
tempChineseStr+="点";
for(var i=0;i<numStrArry[1].length;i++) tempChineseStr += AA[numStrArry[1].charAt(i)];

}
    return tempChineseStr;
}
alert(Chinese("3000011010.05020"));
</script>

为避免兆所引起的误会（http://jjhou.csdn.net/article03-21.htm），
以下代码采用万亿的读法。
<SCRIPT LANGUAGE="JavaScript">
function Chinese(numStr)  //将阿拉伯数字翻译成中文的大写数字
{
    var AA = new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");
    var BB = new Array("","拾","佰","仟","萬","拾","佰","仟","億","拾","佰","仟","萬","拾","佰","仟");
    var numStrArry=numStr.split(".");
    var tempChineseStr="";
    for(var i=numStrArry[0].length-1; i>=0; i--) //得到生硬读法
    {
        tempChineseStr=AA[numStrArry[0].charAt(i)]+BB[numStrArry[0].length-1-i]+tempChineseStr;
    }
    tempChineseStr=tempChineseStr.replace(/(零拾)|(零佰)|(零仟)/ig,"零");
    tempChineseStr=tempChineseStr.replace(/零+/ig,"零");  //去连零
    tempChineseStr=tempChineseStr.replace(/零([億萬])/ig,"$1");
    tempChineseStr=tempChineseStr.replace(/億萬/ig,"億");
    tempChineseStr=tempChineseStr.replace(/零$/ig,"");
if(numStrArry.length>1)
{
tempChineseStr+="点";
for(var i=0;i<numStrArry[1].length;i++) tempChineseStr += AA[numStrArry[1].charAt(i)];

}
    return tempChineseStr;
}
alert(Chinese("30500000000100.05020"));
</script>

另外，楼主的代码犯了个原则性的错误
这个数字的汉化，应该加给String，而不是加给Number。
javascript的数字是浮点的，浮点数经常会失真，就算是表示整数也会失真。测试一下看看：
var i1=9999999999999981;
var i2=9999999999999982;
var i3=9999999999999983;
var i4=9999999999999984;
var i5=9999999999999985;
var i6=9999999999999986;
var i7=9999999999999987;
document.write( i1.parseCN() + "<br/>");
document.write( i2.parseCN() + "<br/>");
document.write( i3.parseCN() + "<br/>");
document.write( i4.parseCN() + "<br/>");
document.write( i5.parseCN() + "<br/>");
document.write( i6.parseCN() + "<br/>");
document.write( i7.parseCN() + "<br/>");输出的结果是：
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾贰
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾肆
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾肆
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾肆
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾陆
玖仟玖佰玖拾玖兆玖仟玖佰玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰捌拾捌

调试易

挑战完美: 数字转中文大写程序.结果依据MS office2003.暂时没测出bug. code by 梅雪香.

解决方案 »