数字を英語に変換

//*** 説明: 数値を英語表現に変換します
//=== 戻り値:
//--- NN )値 FF) 小数点以下の桁数
//======================================= === =====================
function xf_num2en($NN, $FF=0) {
//===[prefix] == ======================================
if (!is_numeric($NN )) return '';
($FF>2) および $FF=''; $enws= array(
0=>"zero",1=> "1",2=>"2",3=>"3",4=>"4",
5=>"5",6=>"6",7=> ;"7",8=>"8",9=>"9", " 16",17=>"17",18=>"8",19=>"19" 」 40",50=>"50",
60=>"60",70=>"70",80=>"80",90=>"90");
//===[整数]========================================= $ Nk = フロア ($ nn);
$ cNT = 0;
While ($ nk) {
$ n = $ nk%1000; 🎜 🎜 🎜 🎜 > $x=xf_enNum4($n); elseif ($cnt==2) $xn;
elseif ($cnt==3) $xn=$x 。 . $xn; elseif ($cnt==4) $xn= $x;
$cnt =1; nk=フロア($nk/1000);     //--while
//===[小數]================================== ======
if ($FF>0) {
$n=floor($NN*100) % 100;  
($n) および $xf=xf_enNum4($n)。 'セント';  
}

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

function xf_enNum4($NN) {
global $enws;  
$ans='';  
$n=フロア($NN/100);  
($n) および $ans=$enws[$n]。 「 百 」;  
$n=$NN % 100;  
if ($n) {
if ($n else {
$m=floor($n/10) * 10;  
$ans.=$enws[$m]。 「 」;  
$n=$n % 10;  
($n) および $ans.=$enws[$n]。 「 」;  
}
}
$ans を返す;  
} //--xf_enNum4 ?>