php中数字转换成货币格式实现代码

function format_money( $STR )
{
        if ( $STR == "" )
        {
                return "";
        }
        if ( $STR == ".00" )
        {
                return "0.00";
        }
        $TOK = strtok( $STR, "." );
        if ( strcmp( $STR, $TOK ) == "0" )
        {
                $STR .= ".00";
        }
        else
        {
                $TOK = strtok( "." );
                $I = 1;
                for ( ;    $I <= 2 - strlen( $TOK );    ++$I    )
                {
                        $STR .= "0";
                }
        }
        if ( substr( $STR, 0, 1 ) == "." )
        {
                $STR = "0".$STR;
        }
        return $STR;
}

function compare_date_time( $DATE_TIME1, $DATE_TIME2 )
{
        if ( $DATE_TIME1 == NULL || strlen( $DATE_TIME1 ) == 0 || $DATE_TIME2 == NULL || strlen( $DATE_TIME2 ) == 0 )
        {
                return -1;
        }
        $DATE_TIME1_ARRY = explode( " ", $DATE_TIME1 );
        $DATE_TIME2_ARRY = explode( " ", $DATE_TIME2 );
        if ( compare_date( $DATE_TIME1_ARRY[0], $DATE_TIME2_ARRY[0] ) == 1 )
        {
                return 1;
        }
        if ( compare_date( $DATE_TIME1_ARRY[0], $DATE_TIME2_ARRY[0] ) == 0 )
        {
                if ( compare_time( $DATE_TIME1_ARRY[1], $DATE_TIME2_ARRY[1] ) == 1 )
                {
                        return 1;
                }
                if ( compare_time( $DATE_TIME1_ARRY[1], $DATE_TIME2_ARRY[1] ) == 0 )
                {
                        return 0;
                }
                return -1;
        }
        return -1;
}

// 函数名：CheckEmailAddr($C_mailaddr)

// 作 用：判断是否为有效邮件地址

// 参 数：$C_mailaddr（待检测的邮件地址）

// 返回值：布尔值

// 备 注：无

function CheckEmailAddr($C_mailaddr)

{

if (!eregi("^[_a-z0-9-]+(.[_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-]+)*$",

$C_mailaddr))

//(!ereg("^[_a-zA-Z0-9-]+(.[_a-zA-Z0-9-]+)*@[_a-zA-Z0-9-]+(.[_a-zA-Z0-9-]+)*$",

$c_mailaddr))

{

return false;

}

return true;

}

// 函数名：CheckWebAddr($C_weburl)

// 作 用：判断是否为有效网址

// 参 数：$C_weburl（待检测的网址）

// 返回值：布尔值

// 备 注：无

//-----------------------------------------------------------------------------------

function CheckWebAddr($C_weburl)

{

if (!ereg("^http://[_a-zA-Z0-9-]+(.[_a-zA-Z0-9-]+)*$", $C_weburl))

{

return false;

}

return true;

}

// 函数名：ExchangeMoney($N_money)

// 作 用：资金转换函数

// 参 数：$N_money（待转换的金额数字）

// 返回值：字符串

// 备 注：本函数示例：$char=ExchangeMoney(5645132.3155) ==> $char='￥5,645,132.31'

//-----------------------------------------------------------------------------------

function ExchangeMoney($N_money)

{

$A_tmp=explode(".",$N_money ); //将数字按小数点分成两部分，并存入数组$A_tmp

$I_len=strlen($A_tmp[0]); //测出小数点前面位数的宽度

if($I_len%3==0)

{

$I_step=$I_len/3; //如前面位数的宽度mod 3 = 0 ,可按，分成$I_step 部分

}else

{

$step=($len-$len%3)/3+1; //如前面位数的宽度mod 3 != 0 ,可按，分成$I_step 部分+1

}

$C_cur="";

//对小数点以前的金额数字进行转换

while($I_len<>0)

{

$I_step--;

if($I_step==0)

{

$C_cur .= substr($A_tmp[0],0,$I_len-($I_step)*3);

}else

{

$C_cur .= substr($A_tmp[0],0,$I_len-($I_step)*3).",";

}

$A_tmp[0]=substr($A_tmp[0],$I_len-($I_step)*3);

$I_len=strlen($A_tmp[0]);

}

//对小数点后面的金额的进行转换

if($A_tmp[1]=="")

{

$C_cur .= ".00";

}else

{

$I_len=strlen($A_tmp[1]);

if($I_len&lt;2)

{

$C_cur .= ".".$A_tmp[1]."0";

}else

{

$C_cur .= ".".substr($A_tmp[1],0,2);

}

}

//加上人民币符号并传出

$C_cur="￥".$C_cur;

return $C_cur;

}