PHP数字转人民币大写

PHP数字转人民币大写


```php
public static function convert_number_to_rmb($number)
{
    $rmb_num = ['零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖'];
    $big_unit = ['', '万', '亿', '兆'];
    $middle_unit = ['', '拾', '佰', '仟'];
    $small_unit = ['角', '分', '毫', '厘'];
    if (!preg_match('/[\d^\.]+/', $number)) return '输入格式有误';
    if ($number >= 1e15) return '超出最大处理数字';
    if ($number == 0) return $rmb_num[0] . '圆整';
    if (is_int($number)) {
        $int = $number;
        $float = '';
    } else {
        $nums = explode('.', number_format($number, '4', '.', ''));
        $int = $nums[0];
        $float = $nums[1];
    }
    $count = 0;
    $rmb = '';
    if ($int > 0) {
        $int_len = strlen($int);
        for ($i = 0; $i < $int_len; $i++) {
            $p = $int_len - $i - 1;
            $h = $p / 4;
            $f = $p % 4;
            if (($num = substr($int, $i, 1)) == '0') {
                $count++;
            } else {
                $count > 0 && ($rmb .= $rmb_num[0]);
                $count = 0;
                $rmb .= $rmb_num[$num] . $middle_unit[$f];
            }
            0 == $f && $count < 4 && ($rmb .= $big_unit[$h]);
        }
        $rmb .= '圆';
    }
    if ($float != '') {
        $float_len = strlen($float);
        for ($i = 0; $i < $float_len; $i++) {
            $num = substr($float, $i, 1);
            if ($num != '0') {
                $rmb .= $rmb_num[$num] . $small_unit[$i];
            }
        }
    }
    if ($rmb == '') {
        $rmb .= $rmb_num[0] . '圆整';
    }
    $rmb == '' ? $rmb .= $rmb_num[0] . '圆整' : $float == '' && ($rmb .= '整');
    return $rmb;
}

  • 3
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
好的,我可以为您解答这个问题。 Oracle中可以使用PL/SQL代码将数字换为人民币大写。以下是一个示例代码: ``` CREATE OR REPLACE FUNCTION f_num2rmb(p_num IN NUMBER) RETURN VARCHAR2 IS l_num NUMBER := TRUNC(p_num); l_dec NUMBER(2,0) := TRUNC(MOD(p_num, 1) * 100); l_rmb VARCHAR2(200); l_unit CONSTANT VARCHAR2(10) := '元'; l_decimal CONSTANT VARCHAR2(10) := '角分'; l_numstr CONSTANT VARCHAR2(50) := '零壹贰叁肆伍陆柒捌玖'; l_unitstr CONSTANT VARCHAR2(50) := '仟佰拾'; l_decimalstr CONSTANT VARCHAR2(50) := '分角'; BEGIN IF l_num = 0 AND l_dec = 0 THEN RETURN '零元整'; END IF; l_rmb := TO_CHAR(l_dec, 'FM00') || l_decimal; FOR i IN 1..4 LOOP l_unitstr := SUBSTR(l_unitstr, 2); IF l_num = 0 THEN EXIT; END IF; l_rmb := SUBSTR(l_numstr, MOD(TRUNC(l_num / POWER(10, (4 - i) * 4)), 10) + 1, 1) || l_unitstr || l_rmb; l_num := TRUNC(l_num / 10); END LOOP; l_rmb := REPLACE(l_rmb, '零仟', '零'); l_rmb := REPLACE(l_rmb, '零佰', '零'); l_rmb := REPLACE(l_rmb, '零拾', '零'); l_rmb := REPLACE(l_rmb, '零零零', '零'); l_rmb := REPLACE(l_rmb, '零零', '零'); l_rmb := REPLACE(l_rmb, '零角零分', '整'); IF SUBSTR(l_rmb, 1, 1) = '零' THEN l_rmb := SUBSTR(l_rmb, 2); END IF; RETURN l_rmb || l_unit || '整'; END; / ``` 使用该函数,可以将数字换为人民币大写。例如: ``` SELECT f_num2rmb(12345.67) FROM DUAL; ``` 输出结果为: ``` 壹万贰仟叁佰肆拾伍元陆角柒分整 ``` 这个函数的代码实现比较复杂,但是可以通过调用该函数来轻松地将数字换为人民币大写

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值