<?php 
// eski lirayi kuruslari olmadan ytl'ye cevirir 
function tl2ytl ($tl) { 
    return floor($tl / 1000000); 
} 

// eski liranin kuruslarini yuvarlayarak bulur, en kucuk kurus birimi girilebilir 
function tl2yk ($tl , $enKucukKurus=1) { 
    return (round ($tl/10000/$enKucukKurus) * $enKucukKurus) % 100; 
} 

// eski lirayi yeni liraya cevirir 
function ytl ($tl, $enKucukKurus=1) { 
    $yk = tl2yk($tl, $enKucukKurus); 
    while (strlen($yk)<2) 
        $yk = "0" . $yk; 
    return tl2ytl($tl) . "," . $yk . " YTL"; 
} 
?>