请给我一段将数字金额翻译成大写金额的代码

Question

收藏品:<script>
document.write(Chinese("1.01"));
document.write("<br/>"+Chinese("15700.4"));
document.write("<br/>"+Chinese("143260.3"));
document.write("<br/>"+Chinese("164372.4"));
document.write("<br/>"+Chinese("52508.6"));function Chinese(num){
var arr1=new Array("仟","佰","拾","亿","仟","佰","拾","万","仟","佰","拾","元","点","角","分")
var arr3=new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
var point=num.indexOf(".")
if(point<0)point=num.length
var len=arr1.length-point-3
var strRet="",lastChar="";
for(i=0;i<num.length;i++){
if(i!=point){
val=arr1[i+len]
if(num.charAt(i)!="0")
strRet+=arr3[num.charAt(i)]+val;
else{
lastChar=strRet.substr(strRet.length-1)
if(val=="亿"||val=="万"||val=="元"||val=="分"){
if(lastChar=="零")strRet=strRet.substr(0,strRet.length-1);
lastChar=strRet.substr(strRet.length-1)
if(!((val=="万"&&lastChar=="亿")||(val=="分"&&lastChar=="角")))strRet+=val
}else{
if(lastChar!="零")strRet+="零";
}
}
}
}
return strRet
}
</script>

Answer 1

我也有一个
function num2rmb ($num)
{
   $c1="零壹贰叁肆伍陆柒捌玖";
   $c2="分角元拾佰仟万拾佰仟亿";   $num=round($num,2);
   $num=$num*100;
   if(strlen($num)>10){
    return "oh,sorry,the number is too long!";
   }   $i=0;
   $c="";   while (1)
   {
       if($i==0)
       {
           $n=substr($num,strlen($num)-1,1);
       }else
       {
           $n=$num %10;
       }       $p1=substr($c1,2*$n,2);
       $p2=substr($c2,2*$i,2);
       if($n!='0' || ($n=='0' &&($p2=='亿' || $p2=='万' || $p2=='元' )))
       {
            $c=$p1.$p2.$c;
       }else
       {
            $c=$p1.$c;
       }       $i=$i+1;
       $num=$num/10;
       $num=(int)$num;       if($num==0)
       {
             break;
       }
   }
    $j = 0;
    $slen=strlen($c);
    while ($j< $slen) {
        $m = substr($c,$j,4);      if ($m=='零元' || $m=='零万' || $m=='零亿' || $m=='零零'){
                 $left=substr($c,0,$j);
          $right=substr($c,$j+2);
                 $c = $left.$right;
                 $j = $j-2;
                 $slen = $slen-2;
        }
        $j=$j+2;
     }     if(substr($c,strlen($c)-2,2)=='零'){
         $c=substr($c,0,strlen($c)-2);
     }            return $c."整";
}