note 108312 deleted from function.money-format by thiago
| From: | thiago@php.net | Date: | Mon, 16 Apr 2012 23:02:21 +0000 |
| Subject: | note 108312 deleted from function.money-format by thiago | ||
| References: | 1 | Groups: | php.notes |
| Request: | Send a blank email to php-notes+get-187190@lists.php.net to get a copy of this message | ||
Note Submitter: Erol Kansiz (kansiz at gmail dot com)
----
<?php
// istek üzerine parayı yazıya çevirmek
function Sayi_Cevir($ytl) {
$para = explode(".", $ytl);
if ($para[0]){
$yazi = sayioku($para[0])." TL ";
}
if ($para[1] != "00"){
$yazi .= sayioku($para[1])." KR";
}
return $yazi;
}
function sayioku($sayi) {
$bmmt=array(
"",
"BÄ°N",
"MÄ°LYON",
"MÄ°LYAR",
"TRÄ°LYON"
);
$_sayi="";
$_usayi="";
$i=(float)0;
$j=4;
$k=0;
$b=0;
while($j>=0) {
$i = pow(1000,$j);
$k = (int)((float)$sayi/(float)$i);
if($k>0){
$_usayi = ucluoku($k,$birler,$onlar,$yuz);
if (!($k==1&&$j==1)) {
$_sayi.=$_usayi;
}
$_sayi.=$bmmt[$j];
$b=1;
$sayi = $sayi%$i;
}
$j--;
}
return $_sayi;
}
function ucluoku($ucbasamaklisayi) {
$birler = array(
0 => "",
1 => "BÄ°R",
2 => "Ä°KÄ°",
3 => "ÃÃ",
4 => "DÃRT",
5 => "BEÅ",
6 => "ALTI",
7 => "YEDÄ°",
8 => "SEKÄ°Z",
9 => "DOKUZ"
);
$onlar = array(
"",
"ON",
"YÄ°RMÄ°",
"OTUZ",
"KIRK",
"ELLÄ°",
"ALTMIÅ",
"YETMÄ°Å",
"SEKSEN",
"DOKSAN"
);
$yuz = "YÃZ";
$sayi="";
$i=(float)0;
$b1=0;
$ucbasamaklisayi %=1000;
$i = (int)($ucbasamaklisayi/100);
if($i>0) {
if($i!=1) {
$sayi .= $birler[$i];
}
$sayi .= $yuz;
$b1=1;
}
$i = (int)(($ucbasamaklisayi%100)/10);
if($i>0) {
$sayi .= $onlar[$i];
$b1=1;
}
$i = (int)($ucbasamaklisayi%10);
if($i>0) {
$sayi .= $birler[$i];
}
return $sayi;
}
echo Sayi_Cevir("123.15");
?>