把阿拉伯数字转换为大写汉字[对应金额]

1. function ch_num($num,$mode=true) {
2.     $char = array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");
3.     $dw = array("","拾","佰","仟","","萬","億","兆");
4.     $dec = "點";
5.     $retval = "";
6.     if($mode)
7.         preg_match_all("/^0*(/d*)/.?(/d*)/",$num, $ar);
8.     else
9.         preg_match_all("/(/d*)/.?(/d*)/",$num, $ar);
10.     if($ar[2][0] != "")
11.         $retval = $dec . ch_num($ar[2][0],false);
12.     if($ar[1][0] != "") {
13.         $str = strrev($ar[1][0]);
14.         for($i=0;$i<strlen($str);$i++) {
15.             $out[$i] = $char[$str[$i]];
16.             if($mode) {
17.                 $out[$i] .= $str[$i] != "0"? $dw[$i％4] : "";
18.                 if($str[$i]+$str[$i-1] == 0)
19.                     $out[$i] = "";
20.                 if($i％4 == 0)
21.                     $out[$i] .= $dw[4+floor($i/4)];
22.             }
23.         }
24.         $retval = join("",array_reverse($out)) . $retval;
25.     }
26.     return $retval;
27. }