<?
///////////////////////////////////////////////////////////////
// function section
///////////////////////////////////////////////////////////////
//=========================
function ymd2dmy($yyyymmdd){
// 2005-10-13  ==> 13/10/2548
    //echo $yyyymmdd;
    if ($yyyymmdd=="")
        $dmy="";
    else{
        $ymd = substr($yyyymmdd,0,10);
        $dmy = substr($ymd,-2) . "/" .  substr($ymd,5,2) . "/" .(543 + substr($ymd,0,4));
    }
    return $dmy;        
}

function dmy2ymd($ddmmyyyy){
// 13/10/2548 ==> 2005/10/13
    if ($yyyymmdd=="")
        $ymd="";
    else{
        $dmy = substr($ddmmyyyy,0,10);
        $ymd = (substr($dmy,-4)- 543) . "/" . substr($dmy,3,2) . "/" . substr($dmy,0,2);
    }
    return $ymd;
}
//=========================
function dmy2ymdO($ddmmyyyy){
// 13/10/2548 ==> 2005-10-13
    if ($ddmmyyyy=="")
        $ymd=="";
    else{
        $dmy = substr($ddmmyyyy,0,10);
        $ymd = (substr($dmy,-4)- 543) . "-" . substr($dmy,3,2) . "-" . substr($dmy,0,2);
    }
    return $ymd;
}
function dmyE2ymdO($ddmmyyyy){
// 13/10/2005 ==> 2005-10-13
    if ($ddmmyyyy=="")
        $ymd=="";
    else{
        $dmy = substr($ddmmyyyy,0,10);
        $ymd = (substr($dmy,-4)) . "-" . substr($dmy,3,2) . "-" . substr($dmy,0,2);
    }
    return $ymd;
}
//=========================
function toOraDate($dmy){
// 13/10/2548 ==> todate('2005-10-13', 'YYYY-MM-DD')
    if ($dmy=="")
        $s="''";
    else{
        $dt = dmy2ymdO($dmy);
        $s = "to_date('$dt','YYYY-MM-DD')";    
    }
    return $s;
}
function toOraDateE($dmyE){
// 13/10/2005 ==> todate('2005-10-13', 'YYYY-MM-DD')
    if ($dmyE=="")
        $s="''";
    else{
        $dt = dmyE2ymdO($dmyE);
        $s = "to_date('$dt','YYYY-MM-DD')";    
    }
    return $s;
}

?>