数字金额转汉字金额

早上公交上总想这个问题，终于写出来了，不知道有错误没

$chinese = array("零","一","二","三","四","五","六","七","八","九");
        $str = 140032002005;
        $arr = array();
        
        $num = floor(strlen($str)/4);
        $ss = substr($str, 0, strlen($str)-$num*4);
        $i = 0;
        while($num>0){
            $arr[] = substr($str, -4-$i*4,4);
            $num--;
            $i++;
        }
        if($ss != "") $arr[] = $ss;
        $strr = array();
        foreach ($arr as $k => $v) {
            $strrr = "";
            for ($j=strlen($v);$j>0;$j--) {
                switch ($j) {
                    case 4:
                        $strrr .= $v[strlen($v)-$j] != 0 ? $chinese[$v[strlen($v)-$j]]."千" : $chinese[0];
                        break;
                    case 3:
                        $strrr .= $v[strlen($v)-$j] != 0 ? $chinese[$v[strlen($v)-$j]]."百" : ($v[strlen($v)-$j+1]==0 ? "" : $chinese[0]);
                        break;
                    case 2:
                        $strrr .= $v[strlen($v)-$j] != 0 ? $chinese[$v[strlen($v)-$j]]."十" : ($v[strlen($v)-$j+1]==0 ? "" : $chinese[0]);
                        break;
                    case 1:
                        $strrr .= $v[strlen($v)-$j] != 0 ? $chinese[$v[strlen($v)-$j]] : "";
                        break;
                }
            }
            if($k%2 == 1) $strrr = $strrr."万";
            if($k%2 == 0 && $k!=0) $strrr = $strrr."亿";
            $strr[] = $strrr;
        }    
        header("Content-type: text/html; charset=utf-8");//浏览器改不了编码了
        krsort($strr);
        var_dump(implode("", $strr));exit;