• 技术文章 >php教程 >PHP源码

    php 阿拉伯数字转中文大写金额

    PHP中文网PHP中文网2016-05-23 16:38:47原创459
    php代码

    // 阿拉伯数字转中文大写金额
    function NumToCNMoney($num,$mode = true,$sim = true){
    	if(!is_numeric($num)) return '含有非数字非小数点字符!';
    	$char    = $sim ? array('零','一','二','三','四','五','六','七','八','九')
    	: array('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');
    	$unit    = $sim ? array('','十','百','千','','万','亿','兆')
    	: array('','拾','佰','仟','','萬','億','兆');
    	$retval  = $mode ? '元':'点';
    	//小数部分
    	if(strpos($num, '.')){
    		list($num,$dec) = explode('.', $num);
    		$dec = strval(round($dec,2));
    		if($mode){
    			$retval .= "{$char[$dec['0']]}角{$char[$dec['1']]}分";
    		}else{
    			for($i = 0,$c = strlen($dec);$i < $c;$i++) {
    				$retval .= $char[$dec[$i]];
    			}
    		}
    	}
    	//整数部分
    	$str = $mode ? strrev(intval($num)) : strrev($num);
    	for($i = 0,$c = strlen($str);$i < $c;$i++) {
    		$out[$i] = $char[$str[$i]];
    		if($mode){
    			$out[$i] .= $str[$i] != '0'? $unit[$i%4] : '';
    				if($i>1 and $str[$i]+$str[$i-1] == 0){
    				$out[$i] = '';
    			}
    				if($i%4 == 0){
    				$out[$i] .= $unit[4+floor($i/4)];
    			}
    		}
    	}
    	$retval = join('',array_reverse($out)) . $retval;
    	return $retval;
    }
    
    
    echo (NumToCNMoney(2.55)."
    ");
    echo (NumToCNMoney(2.55,1,0)."
    ");
    echo (NumToCNMoney(7965)."
    ");
    echo (NumToCNMoney(7965,1,0)."
    ");
    echo (NumToCNMoney(155555555.68)."
    ");
    echo (NumToCNMoney(155555555.68,1,0)."
    ");
    echo (NumToCNMoney(0.8888888)."
    ");
    echo (NumToCNMoney(0.8888888,1,0)."
    ");
    echo (NumToCNMoney(99999999999)."
    ");
    echo (NumToCNMoney(99999999999,1,0)."
    ");
    声明:本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn核实处理。
    上一篇:ShopNC 文章链接限制修改 下一篇:封装的Sqlite3简易操作类
    Web大前端开发直播班

    相关文章推荐

    • PHP总结我的简单静态页生成 过程,• 整理php操作memcache缓存基础方法• php截取中文字符串不乱码的方法_php实例• php中autoload的用法总结_php技巧• php 广告点击统计代码

    全部评论我要评论

  • 取消发布评论发送
  • 1/1

    PHP中文网