<?
function showComment($comment, $title){
    echo "<table cellpadding=1 cellspacing=1 bgcolor=#cccccc width=100%>";
    echo "<tr bgcolor=#eeeeee><td>$title</td></tr>";
    echo "<tr bgcolor=#ffffff><td>$comment</td></tr>";
    echo "</table>";
}

//////////////////////////////////////////////////////////////////////////////////////////////////
function ymd2dmy($yyyymmdd){
// 2005-10-13  ==> 13/10/2548
    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 dmyE2ymdT($ddmmyyyy){
// 13/10/2005 ==> 2548-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 ymdT2dmyE($ddmmyyyy){
// 2548-10-13 ==> 13/10/2005
    if ($ddmmyyyy=="")
        $ymd=="";
    else{
        $ymd = substr($ddmmyyyy,0,10);
        $dmy = substr($ymd,-2) . "/" . substr($ymd,5,2) . "/" . (substr($ymd,0,4)-543);
    }
    return $dmy;
}
//////////////////////////////////////////////////////////////////////////////////////////////////
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;
}