快捷導(dǎo)航

數(shù)字轉(zhuǎn)英文

更新時間：2006年12月06日 00:00:00 作者：

<?php //___{xf_num2en}________________________________________
//*** 說明: 數(shù)值轉(zhuǎn)英文表示法
//=== 回傳: <string>
//--- NN)數(shù)值  FF)小數(shù)位
//============================================================
    function xf_num2en($NN, $FF=0) {
        //===[前置]========================================
          if (!is_numeric($NN)) return '';
          ($FF>2) and $FF=2;
          $xn='';       $xf='';

          global $enws;
          $enws=array(
                0=>"zero",1=>"one",2=>"two",3=>"three",4=>"four",
                5=>"five",6=>"six",7=>"seven",8=>"eight",9=>"nine",
                10=>"ten",11=>"eleven",12=>"twelve",
                13=>"thirteen",14=>"fourteen", 15=>"fifteen",
                16=>"sixteen",17=>"seventeen",18=>"eighteen",19=>"nineteen",
                20=>"twenty",30=>"thirty",40=>"forty",50=>"fifty",
                60=>"sixty",70=>"seventy",80=>"eighty",90=>"ninety");
        //===[整數(shù)]========================================
          $nk=floor($NN);
          $cnt=0;
          while ($nk) {
                $n=$nk % 1000;
                if ($n) {
                    $x=xf_enNum4($n);
                    if ($cnt==1)        $xn=$x. 'thousand '. $xn;
                    elseif ($cnt==2)    $xn=$x. 'million '. $xn;
                    elseif ($cnt==3)    $xn=$x. 'billion '. $xn;
                    elseif ($cnt==4)    $xn=$x. 'trillion '. $xn;
                    else                $xn=$x;
                }
                $cnt+=1;
                $nk=floor($nk/1000);
          }     //--while
        //===[小數(shù)]========================================
          if ($FF>0) {
              $n=floor($NN*100) % 100;
              ($n) and $xf=xf_enNum4($n). 'cent';
          }

          return $xn.$xf;
    }   //--xf_num2en

    function xf_enNum4($NN) {
        global $enws;
        $ans='';
        $n=floor($NN/100);
        ($n) and $ans=$enws[$n]. ' hundred ';
        $n=$NN % 100;
        if ($n) {
            if ($n<20)  $ans.=$enws[$n]. ' ';
            else {
                $m=floor($n/10) * 10;
                $ans.=$enws[$m]. ' ';
                $n=$n % 10;
                ($n) and $ans.=$enws[$n]. ' ';
            }
        }
        return $ans;
    }   //--xf_enNum4 ?>