//*** 説明: 数値を英語表記に変換します
//=== 戻り値: <文字列>
//--- NN) 数値 FF) 10 進数場所
//============================================= ==== =============
function xf_num2en($NN, $FF=0) {
//===[prefix]=========== === ========================
IF (! Is_numeric ($ nn))
($ ff & gt; 2) を返す$ ff =2; ゼロ",1=>"1",2=>2",3=>"3",4=>"4",
", 9 = & gt;" 9 "、
10 = & gt;" 11 "、12 = & gt;"、
13 = & gt;"、15 = >「フィフティーン」、 20 ",30=>"30",40=>"40",50=>"50", ,90=>"90"); //===[整数] ] ========================================== $n) if ($n) 「$xn 」。アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウト アウトアウトアウトアウトアウトアウト$ xn; //--while
//===[小數]==================================== ====
if ($FF>0) {
$n=floor($NN*100) % 100;
($n) および $xf=xf_enNum4($n)。 'セント';
}
return $xn.$xf;
} //--xf_num2en
関数 xf_enNum4($NN) {
グローバル $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 ?>