rakamla yazılan para birimini yazıya nasıl çeviririm elimde bir fonksiyon var da bazı tutarlarda 3 değerini veriyor
function cevir($sayi) {
$b = Array('','BİR','İKİ','ÜÇ','DÖRT','BEŞ','ALTI','YEDİ','SEKİZ','DOKUZ');
$y = Array('','ON','YİRMİ','OTUZ','KIRK','ELLİ','ALTMIŞ','YETMİŞ','SEKSEN','DOKSAN');
$m = Array('TRİLYON','MİLYAR','MİLYON','BİN','');
if($sayi>=0) {
$pozitif = 1;
}else {
$pozitif = 0;
}
$a = floor($sayi);
for($ii=0; $ii if(ord(substr($a,$ii,1))>ord(9) || ord(substr($a,$ii,1)) return '1';
}
}
if(strlen($a)>15) {
return '2';
}
$a = str_pad($a, 15, "0", STR_PAD_LEFT);
for($ii=0; $ii<15; $ii++) {
$v[$ii+1] = substr($a,$ii,1);
}
$s = '';
for($ii=0; $ii<5; $ii++) {
$c[1] = $v[($ii*3)+1];
$c[2] = $v[($ii*3)+2];
$c[3] = $v[($ii*3)+3];
if($c[1] == '0') {
$e = '';
}elseif($c[1]=='1') {
$e = "YÜZ";
}else {
$e = $b[$c[1]]."YÜZ";
}
$e = $e.$y[$c[2]].$b[$c[3]];
if($e!='') {
$e = $e.$m[$ii];
}
if($ii==3 && $e=='BİRBİN') {
$e = 'BİN';
}
$s = $s.$e;
}
if($s=='') {
$s = 'SIFIR';
}
if($pozitif==0) {
$s = "Eksi ".$s;
}
$v = '';
$c = '';
$e = '';
$a = ($sayi*100 - floor($sayi)*100);
for($ii=0; $ii if(ord(substr($a,$ii,1))>ord(9) || ord(substr($a,$ii,1)) return '3';
}
}
if(strlen($a)>15) {
return '4';
}
$a = str_pad($a, 15, "0", STR_PAD_LEFT);
for($ii=0; $ii<15; $ii++) {
$v[$ii+1] = substr($a,$ii,1);
}
$kr = '';
for($ii=0; $ii<5; $ii++) {
$c[1] = $v[(($ii)*3)+1];
$c[2] = $v[(($ii)*3)+2];
$c[3] = $v[(($ii)*3)+3];
if($c[1] == '0') {
$e = '';
}elseif($c[1]=='1') {
$e = "YÜZ";
}else {
$e = $b[$c[1]]."YÜZ";
}
$e = $e.$y[$c[2]].$b[$c[3]];
if($e!='') {
$e = $e.$m[$ii];
}
if($ii==3 && $e=='BİRBİN') {
$e = 'BİN';
}
$kr = $kr.$e;
}
if($kr=='') {
$kr = 'SIFIR';
}
if($pozitif==0 && $kr!='SIFIR') {
$kr = "Eksi ".$kr;
}
if( $s == "SIFIR" && $kr != "SIFIR" ){ $yaz = $kr . " KURUŞ'tur.";}
if( $s != "SIFIR" And $kr == "SIFIR" ){ $yaz = $s . " TL'dir. ";}
if( $s == "SIFIR" And $kr == "SIFIR" ){ $yaz = "SIFIR TL'dir.";}
if( $s != "SIFIR" And $kr != "SIFIR" ){ $yaz = $s . " TL " . $kr . " KRŞ.";}
return $yaz;
}
?>