金額轉大寫

/**
 * 人民幣小寫轉大寫
 *
 * @param string $number 數值
 * @param string $int_unit 幣種單位，默認"元"，有的需求可能爲"圓"
 * @param bool $is_round 是否對小數進行四捨五入
 * @param bool $is_extra_zero 是否對整數部分以0結尾，小數存在的數字附加0,比如1960.30，
 *             有的系統要求輸出"壹仟玖佰陸拾元零叄角"，實際上"壹仟玖佰陸拾元叄角"也是對的
 * @return string
 */
function NumToCNMoney($number = 0, $int_unit = '圓', $is_round = TRUE, $is_extra_zero = FALSE)
{
    if(!is_numeric($number)) return '';
    // 將數字切分成兩段
    $parts = explode('.', $number, 2);
    $int = isset($parts[0]) ? strval($parts[0]) : '0';
    $dec = isset($parts[1]) ? strval($parts[1]) : '';

    // 如果小數點後多於2位，不四捨五入就直接截，否則就處理
    $dec_len = strlen($dec);
    if (isset($parts[1]) && $dec_len > 2)
    {
        $dec = $is_round
            ? substr(strrchr(strval(round(floatval("0.".$dec), 2)), '.'), 1)
            : substr($parts[1], 0, 2);
    }

    // 當number爲0.001時，小數點後的金額爲0元
    if(empty($int) && empty($dec))
    {
        return '零';
    }

    // 定義
    $chs = array('0','壹','貳','叄','肆','伍','陸','柒','捌','玖');
    $uni = array('','拾','佰','仟');
    $dec_uni = array('角', '分');
    $exp = array('', '萬');
    $res = '';

    // 整數部分從右向左找
    for($i = strlen($int) - 1, $k = 0; $i >= 0; $k++)
    {
        $str = '';
        // 按照中文讀寫習慣，每4個字爲一段進行轉化，i一直在減
        for($j = 0; $j < 4 && $i >= 0; $j++, $i--)
        {
            $u = $int{$i} > 0 ? $uni[$j] : ''; // 非0的數字後面添加單位
            $str = $chs[$int{$i}] . $u . $str;
        }
        //echo $str."|".($k - 2)."<br>";
        $str = rtrim($str, '0');// 去掉末尾的0
        $str = preg_replace("/0+/", "零", $str); // 替換多個連續的0
        if(!isset($exp[$k]))
        {
            $exp[$k] = $exp[$k - 2] . '億'; // 構建單位
        }
        $u2 = $str != '' ? $exp[$k] : '';
        $res = $str . $u2 . $res;
    }

    // 如果小數部分處理完之後是00，需要處理下
    $dec = rtrim($dec, '0');

    // 小數部分從左向右找
    if(!empty($dec))
    {
        $res .= $int_unit;

        // 是否要在整數部分以0結尾的數字後附加0，有的系統有這要求
        if ($is_extra_zero)
        {
            if (substr($int, -1) === '0')
            {
                $res.= '零';
            }
        }

        for($i = 0, $cnt = strlen($dec); $i < $cnt; $i++)
        {
            $u = $dec{$i} > 0 ? $dec_uni[$i] : ''; // 非0的數字後面添加單位
            $res .= $chs[$dec{$i}] . $u;
        }
        $res = rtrim($res, '0');// 去掉末尾的0
        $res = preg_replace("/0+/", "零", $res); // 替換多個連續的0
    }
    else
    {
        $res .= $int_unit . '整';
    }
    return $res;
}