php ile sayıyı metne çevirme

	function yaz($sayi) {
		$b = Array('','BİR','İKİ','ÜÇ','DÖRT','BEŞ','ALTI','YEDİ','SEKİZ','DOKUZ');
		$y = Array('','ON','YİRMİ','OTUZ','KIRK','ELLİ','ALTMIŞ','YETMİŞ','sevkEN','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<strlen($a); $ii++) {
			if(ord(substr($a,$ii,1))>ord(9) || ord(substr($a,$ii,1))<ord(0)) {
				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<strlen($a); $ii++) {
			if(ord(substr($a,$ii,1))>ord(9) || ord(substr($a,$ii,1))<ord(0)) {
				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 . " KURUŞ'tur.";}

		return $yaz;
	}