Tekil Mesaj gösterimi
Alt 15 Ocak 2015, 06:39   #1
Çevrimdışı
hAte
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Sayıları Yazı İle Yazma




<?php
function uclu($uclu) {
$uclu=trim($uclu);
$yazi = array(
"0" => array("2" => "","1" => "","0" => ""),
"1" => array("2" => "bir","1" => "On","0" => "yüz"),
"2" => array("2" => "iki","1" => "yirmi","0" => "ikiyüz"),
"3" => array("2" => "üç","1" => "otuz","0" => "üçyüz"),
"4" => array("2" => "dört","1" => "kırk","0" => "dörtyüz"),
"5" => array("2" => "beş","1" => "elli","0" => "beşyüz"),
"6" => array("2" => "altı","1" => "altmış","0" => "altıyüz"),
"7" => array("2" => "yedi","1" => "yetmiş","0" => "yediyüz"),
"8" => array("2" => "sekiz","1" => "seksen","0" => "sekizyüz"),
"9" => array("2" => "dokuz","1" => "doksan","0" => "dokuzyüz") );

$ucluyazi="";
for ($i=0;$i<=2;$i++){
$ucluyazi.=$yazi[(substr($uclu,$i,1))][$i];
}
return($ucluyazi);
}

function yaziyacevir($sayi) {
$olay = array("0" =>" ","1" =>" ","2" =>"bin","3" =>"milyon","4" =>"milyar","5" =>"trilyon");
$sayi = trim($sayi);
$uzunluk = strlen($sayi);
if ($uzunluk > 15) exit("Girdiğiniz Sayı Çok Büyük...");
$kalan = $uzunluk-3*($tane=floor($uzunluk/3));
if ($kalan!=0) {
$tane++;
for ($i=0;$i<=$kalan;$i++) {
$sayi="0".$sayi;
$uzunluk++;
}
}
$yazi="";

for ($i=$tane;$i>=1;$i--){
if (!($i==2 and (substr($sayi,($uzunluk-($i*3)),3)=="001")))
$yazi.=uclu(substr($sayi,($uzunluk-($i*3)),3));
if ((substr($sayi,($uzunluk-($i*3)),3)!="000")) $yazi.=$olay[$i];
}
return ($yazi);
}
?>
<HTML>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<BODY>
<form name="form" method="post" action="<?=$PHP_SELF;?>">
<input type="text" name="sayi" maxlength="15">
<input type="submit" name="Okut" value="Okut">
</form>

<?php
$sayi = $_POST['sayi'];
if ($sayi) {
echo "<b>Girdiginiz Sayı :</b> $sayi<br>";
echo "<b>Yazı İle :</b> ".ucfirst(yaziyacevir($sayi))."";
}
?>
</BODY>
</HTML>

__________________
Bu kez pek bir afili yalnızlık, ağlatan bir kadın kadar düşman. Ağzı bozuk üstelik bırakmıyor acıtmadan.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet