adodb-time.inc.php

Go to the documentation of this file.

<?php
/* Initialization */

/*
    Version Number
*/
define('ADODB_DATE_VERSION',0.35);

$ADODB_DATETIME_CLASS = (PHP_VERSION >= 5.2);

/*
    This code was originally for windows. But apparently this problem happens
    also with Linux, RH 7.3 and later!

    glibc-2.2.5-34 and greater has been changed to return -1 for dates <
    1970.  This used to work.  The problem exists with RedHat 7.3 and 8.0
    echo (mktime(0, 0, 0, 1, 1, 1960));  // prints -1

    References:
     http://bugs.php.net/bug.php?id=20048&edit=2
     http://lists.debian.org/debian-glibc/2002/debian-glibc-200205/msg00010.html
*/

if (!defined('ADODB_ALLOW_NEGATIVE_TS')) define('ADODB_NO_NEGATIVE_TS',1);

function adodb_date_test_date($y1,$m,$d=13)
{
    $h = round(rand()% 24);
    $t = adodb_mktime($h,0,0,$m,$d,$y1);
    $rez = adodb_date('Y-n-j H:i:s',$t);
    if ($h == 0) $h = '00';
    else if ($h < 10) $h = '0'.$h;
    if ("$y1-$m-$d $h:00:00" != $rez) {
        print "<b>$y1 error, expected=$y1-$m-$d $h:00:00, adodb=$rez</b><br>";
        return false;
    }
    return true;
}

function adodb_date_test_strftime($fmt)
{
    $s1 = strftime($fmt);
    $s2 = adodb_strftime($fmt);

    if ($s1 == $s2) return true;

    echo "error for $fmt,  strftime=$s1, adodb=$s2<br>";
    return false;
}

function adodb_date_test()
{

    for ($m=-24; $m<=24; $m++)
        echo "$m :",adodb_date('d-m-Y',adodb_mktime(0,0,0,1+$m,20,2040)),"<br>";

    error_reporting(E_ALL);
    print "<h4>Testing adodb_date and adodb_mktime. version=".ADODB_DATE_VERSION.' PHP='.PHP_VERSION."</h4>";
    @set_time_limit(0);
    $fail = false;

    // This flag disables calling of PHP native functions, so we can properly test the code
    if (!defined('ADODB_TEST_DATES')) define('ADODB_TEST_DATES',1);

    $t = time();


    $fmt = 'Y-m-d H:i:s';
    echo '<pre>';
    echo 'adodb: ',adodb_date($fmt,$t),'<br>';
    echo 'php  : ',date($fmt,$t),'<br>';
    echo '</pre>';

    adodb_date_test_strftime('%Y %m %x %X');
    adodb_date_test_strftime("%A %d %B %Y");
    adodb_date_test_strftime("%H %M S");

    $t = adodb_mktime(0,0,0);
    if (!(adodb_date('Y-m-d') == date('Y-m-d'))) print 'Error in '.adodb_mktime(0,0,0).'<br>';

    $t = adodb_mktime(0,0,0,6,1,2102);
    if (!(adodb_date('Y-m-d',$t) == '2102-06-01')) print 'Error in '.adodb_date('Y-m-d',$t).'<br>';

    $t = adodb_mktime(0,0,0,2,1,2102);
    if (!(adodb_date('Y-m-d',$t) == '2102-02-01')) print 'Error in '.adodb_date('Y-m-d',$t).'<br>';


    print "<p>Testing gregorian <=> julian conversion<p>";
    $t = adodb_mktime(0,0,0,10,11,1492);
    //http://www.holidayorigins.com/html/columbus_day.html - Friday check
    if (!(adodb_date('D Y-m-d',$t) == 'Fri 1492-10-11')) print 'Error in Columbus landing<br>';

    $t = adodb_mktime(0,0,0,2,29,1500);
    if (!(adodb_date('Y-m-d',$t) == '1500-02-29')) print 'Error in julian leap years<br>';

    $t = adodb_mktime(0,0,0,2,29,1700);
    if (!(adodb_date('Y-m-d',$t) == '1700-03-01')) print 'Error in gregorian leap years<br>';

    print  adodb_mktime(0,0,0,10,4,1582).' ';
    print adodb_mktime(0,0,0,10,15,1582);
    $diff = (adodb_mktime(0,0,0,10,15,1582) - adodb_mktime(0,0,0,10,4,1582));
    if ($diff != 3600*24) print " <b>Error in gregorian correction = ".($diff/3600/24)." days </b><br>";

    print " 15 Oct 1582, Fri=".(adodb_dow(1582,10,15) == 5 ? 'Fri' : '<b>Error</b>')."<br>";
    print " 4 Oct 1582, Thu=".(adodb_dow(1582,10,4) == 4 ? 'Thu' : '<b>Error</b>')."<br>";

    print "<p>Testing overflow<p>";

    $t = adodb_mktime(0,0,0,3,33,1965);
    if (!(adodb_date('Y-m-d',$t) == '1965-04-02')) print 'Error in day overflow 1 <br>';
    $t = adodb_mktime(0,0,0,4,33,1971);
    if (!(adodb_date('Y-m-d',$t) == '1971-05-03')) print 'Error in day overflow 2 <br>';
    $t = adodb_mktime(0,0,0,1,60,1965);
    if (!(adodb_date('Y-m-d',$t) == '1965-03-01')) print 'Error in day overflow 3 '.adodb_date('Y-m-d',$t).' <br>';
    $t = adodb_mktime(0,0,0,12,32,1965);
    if (!(adodb_date('Y-m-d',$t) == '1966-01-01')) print 'Error in day overflow 4 '.adodb_date('Y-m-d',$t).' <br>';
    $t = adodb_mktime(0,0,0,12,63,1965);
    if (!(adodb_date('Y-m-d',$t) == '1966-02-01')) print 'Error in day overflow 5 '.adodb_date('Y-m-d',$t).' <br>';
    $t = adodb_mktime(0,0,0,13,3,1965);
    if (!(adodb_date('Y-m-d',$t) == '1966-01-03')) print 'Error in mth overflow 1 <br>';

    print "Testing 2-digit => 4-digit year conversion<p>";
    if (adodb_year_digit_check(00) != 2000) print "Err 2-digit 2000<br>";
    if (adodb_year_digit_check(10) != 2010) print "Err 2-digit 2010<br>";
    if (adodb_year_digit_check(20) != 2020) print "Err 2-digit 2020<br>";
    if (adodb_year_digit_check(30) != 2030) print "Err 2-digit 2030<br>";
    if (adodb_year_digit_check(40) != 1940) print "Err 2-digit 1940<br>";
    if (adodb_year_digit_check(50) != 1950) print "Err 2-digit 1950<br>";
    if (adodb_year_digit_check(90) != 1990) print "Err 2-digit 1990<br>";

    // Test string formating
    print "<p>Testing date formating</p>";

    $fmt = '\d\a\t\e T Y-m-d H:i:s a A d D F g G h H i j l L m M n O \R\F\C2822 r s t U w y Y z Z 2003';
    $s1 = date($fmt,0);
    $s2 = adodb_date($fmt,0);
    if ($s1 != $s2) {
        print " date() 0 failed<br>$s1<br>$s2<br>";
    }
    flush();
    for ($i=100; --$i > 0; ) {

        $ts = 3600.0*((rand()%60000)+(rand()%60000))+(rand()%60000);
        $s1 = date($fmt,$ts);
        $s2 = adodb_date($fmt,$ts);
        //print "$s1 <br>$s2 <p>";
        $pos = strcmp($s1,$s2);

        if (($s1) != ($s2)) {
            for ($j=0,$k=strlen($s1); $j < $k; $j++) {
                if ($s1[$j] != $s2[$j]) {
                    print substr($s1,$j).' ';
                    break;
                }
            }
            print "<b>Error date(): $ts<br><pre>
&nbsp; \"$s1\" (date len=".strlen($s1).")
&nbsp; \"$s2\" (adodb_date len=".strlen($s2).")</b></pre><br>";
            $fail = true;
        }

        $a1 = getdate($ts);
        $a2 = adodb_getdate($ts);
        $rez = array_diff($a1,$a2);
        if (sizeof($rez)>0) {
            print "<b>Error getdate() $ts</b><br>";
                print_r($a1);
            print "<br>";
                print_r($a2);
            print "<p>";
            $fail = true;
        }
    }

    // Test generation of dates outside 1901-2038
    print "<p>Testing random dates between 100 and 4000</p>";
    adodb_date_test_date(100,1);
    for ($i=100; --$i >= 0;) {
        $y1 = 100+rand(0,1970-100);
        $m = rand(1,12);
        adodb_date_test_date($y1,$m);

        $y1 = 3000-rand(0,3000-1970);
        adodb_date_test_date($y1,$m);
    }
    print '<p>';
    $start = 1960+rand(0,10);
    $yrs = 12;
    $i = 365.25*86400*($start-1970);
    $offset = 36000+rand(10000,60000);
    $max = 365*$yrs*86400;
    $lastyear = 0;

    // we generate a timestamp, convert it to a date, and convert it back to a timestamp
    // and check if the roundtrip broke the original timestamp value.
    print "Testing $start to ".($start+$yrs).", or $max seconds, offset=$offset: ";
    $cnt = 0;
    for ($max += $i; $i < $max; $i += $offset) {
        $ret = adodb_date('m,d,Y,H,i,s',$i);
        $arr = explode(',',$ret);
        if ($lastyear != $arr[2]) {
            $lastyear = $arr[2];
            print " $lastyear ";
            flush();
        }
        $newi = adodb_mktime($arr[3],$arr[4],$arr[5],$arr[0],$arr[1],$arr[2]);
        if ($i != $newi) {
            print "Error at $i, adodb_mktime returned $newi ($ret)";
            $fail = true;
            break;
        }
        $cnt += 1;
    }
    echo "Tested $cnt dates<br>";
    if (!$fail) print "<p>Passed !</p>";
    else print "<p><b>Failed</b> :-(</p>";
}

function adodb_time()
{
    $d = new DateTime();
    return $d->format('U');
}

function adodb_dow($year, $month, $day)
{
/*
Pope Gregory removed 10 days - October 5 to October 14 - from the year 1582 and
proclaimed that from that time onwards 3 days would be dropped from the calendar
every 400 years.

Thursday, October 4, 1582 (Julian) was followed immediately by Friday, October 15, 1582 (Gregorian).
*/
    if ($year <= 1582) {
        if ($year < 1582 ||
            ($year == 1582 && ($month < 10 || ($month == 10 && $day < 15)))) $greg_correction = 3;
         else
            $greg_correction = 0;
    } else
        $greg_correction = 0;

    if($month > 2)
        $month -= 2;
    else {
        $month += 10;
        $year--;
    }

    $day =  floor((13 * $month - 1) / 5) +
            $day + ($year % 100) +
            floor(($year % 100) / 4) +
            floor(($year / 100) / 4) - 2 *
            floor($year / 100) + 77 + $greg_correction;

    return $day - 7 * floor($day / 7);
}


function _adodb_is_leap_year($year)
{
    if ($year % 4 != 0) return false;

    if ($year % 400 == 0) {
        return true;
    // if gregorian calendar (>1582), century not-divisible by 400 is not leap
    } else if ($year > 1582 && $year % 100 == 0 ) {
        return false;
    }

    return true;
}


function adodb_is_leap_year($year)
{
    return  _adodb_is_leap_year(adodb_year_digit_check($year));
}

function adodb_year_digit_check($y)
{
    if ($y < 100) {

        $yr = (integer) date("Y");
        $century = (integer) ($yr /100);

        if ($yr%100 > 50) {
            $c1 = $century + 1;
            $c0 = $century;
        } else {
            $c1 = $century;
            $c0 = $century - 1;
        }
        $c1 *= 100;
        // if 2-digit year is less than 30 years in future, set it to this century
        // otherwise if more than 30 years in future, then we set 2-digit year to the prev century.
        if (($y + $c1) < $yr+30) $y = $y + $c1;
        else $y = $y + $c0*100;
    }
    return $y;
}

function adodb_get_gmt_diff_ts($ts)
{
    if (0 <= $ts && $ts <= 0x7FFFFFFF) { // check if number in 32-bit signed range) {
        $arr = getdate($ts);
        $y = $arr['year'];
        $m = $arr['mon'];
        $d = $arr['mday'];
        return adodb_get_gmt_diff($y,$m,$d);
    } else {
        return adodb_get_gmt_diff(false,false,false);
    }

}

function adodb_get_gmt_diff($y,$m,$d)
{
static $TZ,$tzo;
global $ADODB_DATETIME_CLASS;

    if (!defined('ADODB_TEST_DATES')) $y = false;
    else if ($y < 1970 || $y >= 2038) $y = false;

    if ($ADODB_DATETIME_CLASS && $y !== false) {
        $dt = new DateTime();
        $dt->setISODate($y,$m,$d);
        if (empty($tzo)) {
            $tzo = new DateTimeZone(date_default_timezone_get());
        #   $tzt = timezone_transitions_get( $tzo );
        }
        return -$tzo->getOffset($dt);
    } else {
        if (isset($TZ)) return $TZ;
        $y = date('Y');
        /*
        if (function_exists('date_default_timezone_get') && function_exists('timezone_offset_get')) {
            $tzonename = date_default_timezone_get();
            if ($tzonename) {
                $tobj = new DateTimeZone($tzonename);
                $TZ = -timezone_offset_get($tobj,new DateTime("now",$tzo));
            }
        }
        */
        if (empty($TZ)) $TZ = mktime(0,0,0,12,2,$y) - gmmktime(0,0,0,12,2,$y);
    }
    return $TZ;
}

function adodb_getdate($d=false,$fast=false)
{
    if ($d === false) return getdate();
    if (!defined('ADODB_TEST_DATES')) {
        if ((abs($d) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range
            if (!defined('ADODB_NO_NEGATIVE_TS') || $d >= 0) // if windows, must be +ve integer
                return @getdate($d);
        }
    }
    return _adodb_getdate($d);
}

/*
// generate $YRS table for _adodb_getdate()
function adodb_date_gentable($out=true)
{

    for ($i=1970; $i >= 1600; $i-=10) {
        $s = adodb_gmmktime(0,0,0,1,1,$i);
        echo "$i => $s,<br>";
    }
}
adodb_date_gentable();

for ($i=1970; $i > 1500; $i--) {

echo "<hr />$i ";
    adodb_date_test_date($i,1,1);
}

*/


$_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31);
$_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31);

function adodb_validdate($y,$m,$d)
{
global $_month_table_normal,$_month_table_leaf;

    if (_adodb_is_leap_year($y)) $marr = $_month_table_leaf;
    else $marr = $_month_table_normal;

    if ($m > 12 || $m < 1) return false;

    if ($d > 31 || $d < 1) return false;

    if ($marr[$m] < $d) return false;

    if ($y < 1000 && $y > 3000) return false;

    return true;
}

function _adodb_getdate($origd=false,$fast=false,$is_gmt=false)
{
static $YRS;
global $_month_table_normal,$_month_table_leaf;

    $d =  $origd - ($is_gmt ? 0 : adodb_get_gmt_diff_ts($origd));
    $_day_power = 86400;
    $_hour_power = 3600;
    $_min_power = 60;

    if ($d < -12219321600) $d -= 86400*10; // if 15 Oct 1582 or earlier, gregorian correction

    $_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31);
    $_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31);

    $d366 = $_day_power * 366;
    $d365 = $_day_power * 365;

    if ($d < 0) {

        if (empty($YRS)) $YRS = array(
            1970 => 0,
            1960 => -315619200,
            1950 => -631152000,
            1940 => -946771200,
            1930 => -1262304000,
            1920 => -1577923200,
            1910 => -1893456000,
            1900 => -2208988800,
            1890 => -2524521600,
            1880 => -2840140800,
            1870 => -3155673600,
            1860 => -3471292800,
            1850 => -3786825600,
            1840 => -4102444800,
            1830 => -4417977600,
            1820 => -4733596800,
            1810 => -5049129600,
            1800 => -5364662400,
            1790 => -5680195200,
            1780 => -5995814400,
            1770 => -6311347200,
            1760 => -6626966400,
            1750 => -6942499200,
            1740 => -7258118400,
            1730 => -7573651200,
            1720 => -7889270400,
            1710 => -8204803200,
            1700 => -8520336000,
            1690 => -8835868800,
            1680 => -9151488000,
            1670 => -9467020800,
            1660 => -9782640000,
            1650 => -10098172800,
            1640 => -10413792000,
            1630 => -10729324800,
            1620 => -11044944000,
            1610 => -11360476800,
            1600 => -11676096000);

        if ($is_gmt) $origd = $d;
        // The valid range of a 32bit signed timestamp is typically from
        // Fri, 13 Dec 1901 20:45:54 GMT to Tue, 19 Jan 2038 03:14:07 GMT
        //

        # old algorithm iterates through all years. new algorithm does it in
        # 10 year blocks

        /*
        # old algo
        for ($a = 1970 ; --$a >= 0;) {
            $lastd = $d;

            if ($leaf = _adodb_is_leap_year($a)) $d += $d366;
            else $d += $d365;

            if ($d >= 0) {
                $year = $a;
                break;
            }
        }
        */

        $lastsecs = 0;
        $lastyear = 1970;
        foreach($YRS as $year => $secs) {
            if ($d >= $secs) {
                $a = $lastyear;
                break;
            }
            $lastsecs = $secs;
            $lastyear = $year;
        }

        $d -= $lastsecs;
        if (!isset($a)) $a = $lastyear;

        //echo ' yr=',$a,' ', $d,'.';

        for (; --$a >= 0;) {
            $lastd = $d;

            if ($leaf = _adodb_is_leap_year($a)) $d += $d366;
            else $d += $d365;

            if ($d >= 0) {
                $year = $a;
                break;
            }
        }
        

        $secsInYear = 86400 * ($leaf ? 366 : 365) + $lastd;

        $d = $lastd;
        $mtab = ($leaf) ? $_month_table_leaf : $_month_table_normal;
        for ($a = 13 ; --$a > 0;) {
            $lastd = $d;
            $d += $mtab[$a] * $_day_power;
            if ($d >= 0) {
                $month = $a;
                $ndays = $mtab[$a];
                break;
            }
        }

        $d = $lastd;
        $day = $ndays + ceil(($d+1) / ($_day_power));

        $d += ($ndays - $day+1)* $_day_power;
        $hour = floor($d/$_hour_power);

    } else {
        for ($a = 1970 ;; $a++) {
            $lastd = $d;

            if ($leaf = _adodb_is_leap_year($a)) $d -= $d366;
            else $d -= $d365;
            if ($d < 0) {
                $year = $a;
                break;
            }
        }
        $secsInYear = $lastd;
        $d = $lastd;
        $mtab = ($leaf) ? $_month_table_leaf : $_month_table_normal;
        for ($a = 1 ; $a <= 12; $a++) {
            $lastd = $d;
            $d -= $mtab[$a] * $_day_power;
            if ($d < 0) {
                $month = $a;
                $ndays = $mtab[$a];
                break;
            }
        }
        $d = $lastd;
        $day = ceil(($d+1) / $_day_power);
        $d = $d - ($day-1) * $_day_power;
        $hour = floor($d /$_hour_power);
    }

    $d -= $hour * $_hour_power;
    $min = floor($d/$_min_power);
    $secs = $d - $min * $_min_power;
    if ($fast) {
        return array(
        'seconds' => $secs,
        'minutes' => $min,
        'hours' => $hour,
        'mday' => $day,
        'mon' => $month,
        'year' => $year,
        'yday' => floor($secsInYear/$_day_power),
        'leap' => $leaf,
        'ndays' => $ndays
        );
    }


    $dow = adodb_dow($year,$month,$day);

    return array(
        'seconds' => $secs,
        'minutes' => $min,
        'hours' => $hour,
        'mday' => $day,
        'wday' => $dow,
        'mon' => $month,
        'year' => $year,
        'yday' => floor($secsInYear/$_day_power),
        'weekday' => gmdate('l',$_day_power*(3+$dow)),
        'month' => gmdate('F',mktime(0,0,0,$month,2,1971)),
        0 => $origd
    );
}
/*
        if ($isphp5)
                $dates .= sprintf('%s%04d',($gmt<=0)?'+':'-',abs($gmt)/36);
            else
                $dates .= sprintf('%s%04d',($gmt<0)?'+':'-',abs($gmt)/36);
            break;*/
function adodb_tz_offset($gmt,$isphp5)
{
    $zhrs = abs($gmt)/3600;
    $hrs = floor($zhrs);
    if ($isphp5)
        return sprintf('%s%02d%02d',($gmt<=0)?'+':'-',floor($zhrs),($zhrs-$hrs)*60);
    else
        return sprintf('%s%02d%02d',($gmt<0)?'+':'-',floor($zhrs),($zhrs-$hrs)*60);
}


function adodb_gmdate($fmt,$d=false)
{
    return adodb_date($fmt,$d,true);
}

// accepts unix timestamp and iso date format in $d
function adodb_date2($fmt, $d=false, $is_gmt=false)
{
    if ($d !== false) {
        if (!preg_match(
            "|^([0-9]{4})[-/\.]?([0-9]{1,2})[-/\.]?([0-9]{1,2})[ -]?(([0-9]{1,2}):?([0-9]{1,2}):?([0-9\.]{1,4}))?|",
            ($d), $rr)) return adodb_date($fmt,false,$is_gmt);

        if ($rr[1] <= 100 && $rr[2]<= 1) return adodb_date($fmt,false,$is_gmt);

        // h-m-s-MM-DD-YY
        if (!isset($rr[5])) $d = adodb_mktime(0,0,0,$rr[2],$rr[3],$rr[1],false,$is_gmt);
        else $d = @adodb_mktime($rr[5],$rr[6],$rr[7],$rr[2],$rr[3],$rr[1],false,$is_gmt);
    }

    return adodb_date($fmt,$d,$is_gmt);
}


function adodb_date($fmt,$d=false,$is_gmt=false)
{
static $daylight;
global $ADODB_DATETIME_CLASS;
static $jan1_1971;


    if (!isset($daylight)) {
        $daylight = function_exists('adodb_daylight_sv');
        if (empty($jan1_1971)) $jan1_1971 = mktime(0,0,0,1,1,1971); // we only use date() when > 1970 as adodb_mktime() only uses mktime() when > 1970
    }

    if ($d === false) return ($is_gmt)? @gmdate($fmt): @date($fmt);
    if (!defined('ADODB_TEST_DATES')) {
        if ((abs($d) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range

            if (!defined('ADODB_NO_NEGATIVE_TS') || $d >= $jan1_1971) // if windows, must be +ve integer
                return ($is_gmt)? @gmdate($fmt,$d): @date($fmt,$d);

        }
    }
    $_day_power = 86400;

    $arr = _adodb_getdate($d,true,$is_gmt);

    if ($daylight) adodb_daylight_sv($arr, $is_gmt);

    $year = $arr['year'];
    $month = $arr['mon'];
    $day = $arr['mday'];
    $hour = $arr['hours'];
    $min = $arr['minutes'];
    $secs = $arr['seconds'];

    $max = strlen($fmt);
    $dates = '';

    $isphp5 = PHP_VERSION >= 5;

    /*
        at this point, we have the following integer vars to manipulate:
        $year, $month, $day, $hour, $min, $secs
    */
    for ($i=0; $i < $max; $i++) {
        switch($fmt[$i]) {
        case 'e':
            $dates .= date('e');
            break;
        case 'T':
            if ($ADODB_DATETIME_CLASS) {
                $dt = new DateTime();
                $dt->SetDate($year,$month,$day);
                $dates .= $dt->Format('T');
            } else
                $dates .= date('T');
            break;
        // YEAR
        case 'L': $dates .= $arr['leap'] ? '1' : '0'; break;
        case 'r': // Thu, 21 Dec 2000 16:01:07 +0200

            // 4.3.11 uses '04 Jun 2004'
            // 4.3.8 uses  ' 4 Jun 2004'
            $dates .= gmdate('D',$_day_power*(3+adodb_dow($year,$month,$day))).', '
                . ($day<10?'0'.$day:$day) . ' '.date('M',mktime(0,0,0,$month,2,1971)).' '.$year.' ';

            if ($hour < 10) $dates .= '0'.$hour; else $dates .= $hour;

            if ($min < 10) $dates .= ':0'.$min; else $dates .= ':'.$min;

            if ($secs < 10) $dates .= ':0'.$secs; else $dates .= ':'.$secs;

            $gmt = adodb_get_gmt_diff($year,$month,$day);

            $dates .= ' '.adodb_tz_offset($gmt,$isphp5);
            break;

        case 'Y': $dates .= $year; break;
        case 'y': $dates .= substr($year,strlen($year)-2,2); break;
        // MONTH
        case 'm': if ($month<10) $dates .= '0'.$month; else $dates .= $month; break;
        case 'Q': $dates .= ($month+3)>>2; break;
        case 'n': $dates .= $month; break;
        case 'M': $dates .= date('M',mktime(0,0,0,$month,2,1971)); break;
        case 'F': $dates .= date('F',mktime(0,0,0,$month,2,1971)); break;
        // DAY
        case 't': $dates .= $arr['ndays']; break;
        case 'z': $dates .= $arr['yday']; break;
        case 'w': $dates .= adodb_dow($year,$month,$day); break;
        case 'l': $dates .= gmdate('l',$_day_power*(3+adodb_dow($year,$month,$day))); break;
        case 'D': $dates .= gmdate('D',$_day_power*(3+adodb_dow($year,$month,$day))); break;
        case 'j': $dates .= $day; break;
        case 'd': if ($day<10) $dates .= '0'.$day; else $dates .= $day; break;
        case 'S':
            $d10 = $day % 10;
            if ($d10 == 1) $dates .= 'st';
            else if ($d10 == 2 && $day != 12) $dates .= 'nd';
            else if ($d10 == 3) $dates .= 'rd';
            else $dates .= 'th';
            break;

        // HOUR
        case 'Z':
            $dates .= ($is_gmt) ? 0 : -adodb_get_gmt_diff($year,$month,$day); break;
        case 'O':
            $gmt = ($is_gmt) ? 0 : adodb_get_gmt_diff($year,$month,$day);

            $dates .= adodb_tz_offset($gmt,$isphp5);
            break;

        case 'H':
            if ($hour < 10) $dates .= '0'.$hour;
            else $dates .= $hour;
            break;
        case 'h':
            if ($hour > 12) $hh = $hour - 12;
            else {
                if ($hour == 0) $hh = '12';
                else $hh = $hour;
            }

            if ($hh < 10) $dates .= '0'.$hh;
            else $dates .= $hh;
            break;

        case 'G':
            $dates .= $hour;
            break;

        case 'g':
            if ($hour > 12) $hh = $hour - 12;
            else {
                if ($hour == 0) $hh = '12';
                else $hh = $hour;
            }
            $dates .= $hh;
            break;
        // MINUTES
        case 'i': if ($min < 10) $dates .= '0'.$min; else $dates .= $min; break;
        // SECONDS
        case 'U': $dates .= $d; break;
        case 's': if ($secs < 10) $dates .= '0'.$secs; else $dates .= $secs; break;
        // AM/PM
        // Note 00:00 to 11:59 is AM, while 12:00 to 23:59 is PM
        case 'a':
            if ($hour>=12) $dates .= 'pm';
            else $dates .= 'am';
            break;
        case 'A':
            if ($hour>=12) $dates .= 'PM';
            else $dates .= 'AM';
            break;
        default:
            $dates .= $fmt[$i]; break;
        // ESCAPE
        case "\\":
            $i++;
            if ($i < $max) $dates .= $fmt[$i];
            break;
        }
    }
    return $dates;
}

function adodb_gmmktime($hr,$min,$sec,$mon=false,$day=false,$year=false,$is_dst=false)
{
    return adodb_mktime($hr,$min,$sec,$mon,$day,$year,$is_dst,true);
}

function adodb_mktime($hr,$min,$sec,$mon=false,$day=false,$year=false,$is_dst=false,$is_gmt=false)
{
    if (!defined('ADODB_TEST_DATES')) {

        if ($mon === false) {
            return $is_gmt? @gmmktime($hr,$min,$sec): @mktime($hr,$min,$sec);
        }

        // for windows, we don't check 1970 because with timezone differences,
        // 1 Jan 1970 could generate negative timestamp, which is illegal
        $usephpfns = (1970 < $year && $year < 2038
            || !defined('ADODB_NO_NEGATIVE_TS') && (1901 < $year && $year < 2038)
            );


        if ($usephpfns && ($year + $mon/12+$day/365.25+$hr/(24*365.25) >= 2038)) $usephpfns = false;

        if ($usephpfns) {
                return $is_gmt ?
                    @gmmktime($hr,$min,$sec,$mon,$day,$year):
                    @mktime($hr,$min,$sec,$mon,$day,$year);
        }
    }

    $gmt_different = ($is_gmt) ? 0 : adodb_get_gmt_diff($year,$mon,$day);

    /*
    # disabled because some people place large values in $sec.
    # however we need it for $mon because we use an array...
    $hr = intval($hr);
    $min = intval($min);
    $sec = intval($sec);
    */
    $mon = intval($mon);
    $day = intval($day);
    $year = intval($year);


    $year = adodb_year_digit_check($year);

    if ($mon > 12) {
        $y = floor(($mon-1)/ 12);
        $year += $y;
        $mon -= $y*12;
    } else if ($mon < 1) {
        $y = ceil((1-$mon) / 12);
        $year -= $y;
        $mon += $y*12;
    }

    $_day_power = 86400;
    $_hour_power = 3600;
    $_min_power = 60;

    $_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31);
    $_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31);

    $_total_date = 0;
    if ($year >= 1970) {
        for ($a = 1970 ; $a <= $year; $a++) {
            $leaf = _adodb_is_leap_year($a);
            if ($leaf == true) {
                $loop_table = $_month_table_leaf;
                $_add_date = 366;
            } else {
                $loop_table = $_month_table_normal;
                $_add_date = 365;
            }
            if ($a < $year) {
                $_total_date += $_add_date;
            } else {
                for($b=1;$b<$mon;$b++) {
                    $_total_date += $loop_table[$b];
                }
            }
        }
        $_total_date +=$day-1;
        $ret = $_total_date * $_day_power + $hr * $_hour_power + $min * $_min_power + $sec + $gmt_different;

    } else {
        for ($a = 1969 ; $a >= $year; $a--) {
            $leaf = _adodb_is_leap_year($a);
            if ($leaf == true) {
                $loop_table = $_month_table_leaf;
                $_add_date = 366;
            } else {
                $loop_table = $_month_table_normal;
                $_add_date = 365;
            }
            if ($a > $year) { $_total_date += $_add_date;
            } else {
                for($b=12;$b>$mon;$b--) {
                    $_total_date += $loop_table[$b];
                }
            }
        }
        $_total_date += $loop_table[$mon] - $day;

        $_day_time = $hr * $_hour_power + $min * $_min_power + $sec;
        $_day_time = $_day_power - $_day_time;
        $ret = -( $_total_date * $_day_power + $_day_time - $gmt_different);
        if ($ret < -12220185600) $ret += 10*86400; // if earlier than 5 Oct 1582 - gregorian correction
        else if ($ret < -12219321600) $ret = -12219321600; // if in limbo, reset to 15 Oct 1582.
    }
    //print " dmy=$day/$mon/$year $hr:$min:$sec => " .$ret;
    return $ret;
}

function adodb_gmstrftime($fmt, $ts=false)
{
    return adodb_strftime($fmt,$ts,true);
}

// hack - convert to adodb_date
function adodb_strftime($fmt, $ts=false,$is_gmt=false)
{
global $ADODB_DATE_LOCALE;

    if (!defined('ADODB_TEST_DATES')) {
        if ((abs($ts) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range
            if (!defined('ADODB_NO_NEGATIVE_TS') || $ts >= 0) // if windows, must be +ve integer
                return ($is_gmt)? @gmstrftime($fmt,$ts): @strftime($fmt,$ts);

        }
    }

    if (empty($ADODB_DATE_LOCALE)) {
    /*
        $tstr = strtoupper(gmstrftime('%c',31366800)); // 30 Dec 1970, 1 am
        $sep = substr($tstr,2,1);
        $hasAM = strrpos($tstr,'M') !== false;
    */
        # see http://phplens.com/lens/lensforum/msgs.php?id=14865 for reasoning, and changelog for version 0.24
        $dstr = gmstrftime('%x',31366800); // 30 Dec 1970, 1 am
        $sep = substr($dstr,2,1);
        $tstr = strtoupper(gmstrftime('%X',31366800)); // 30 Dec 1970, 1 am
        $hasAM = strrpos($tstr,'M') !== false;

        $ADODB_DATE_LOCALE = array();
        $ADODB_DATE_LOCALE[] =  strncmp($tstr,'30',2) == 0 ? 'd'.$sep.'m'.$sep.'y' : 'm'.$sep.'d'.$sep.'y';
        $ADODB_DATE_LOCALE[]  = ($hasAM) ? 'h:i:s a' : 'H:i:s';

    }
    $inpct = false;
    $fmtdate = '';
    for ($i=0,$max = strlen($fmt); $i < $max; $i++) {
        $ch = $fmt[$i];
        if ($ch == '%') {
            if ($inpct) {
                $fmtdate .= '%';
                $inpct = false;
            } else
                $inpct = true;
        } else if ($inpct) {

            $inpct = false;
            switch($ch) {
            case '0':
            case '1':
            case '2':
            case '3':
            case '4':
            case '5':
            case '6':
            case '7':
            case '8':
            case '9':
            case 'E':
            case 'O':
                /* ignore format modifiers */
                $inpct = true;
                break;

            case 'a': $fmtdate .= 'D'; break;
            case 'A': $fmtdate .= 'l'; break;
            case 'h':
            case 'b': $fmtdate .= 'M'; break;
            case 'B': $fmtdate .= 'F'; break;
            case 'c': $fmtdate .= $ADODB_DATE_LOCALE[0].$ADODB_DATE_LOCALE[1]; break;
            case 'C': $fmtdate .= '\C?'; break; // century
            case 'd': $fmtdate .= 'd'; break;
            case 'D': $fmtdate .= 'm/d/y'; break;
            case 'e': $fmtdate .= 'j'; break;
            case 'g': $fmtdate .= '\g?'; break; //?
            case 'G': $fmtdate .= '\G?'; break; //?
            case 'H': $fmtdate .= 'H'; break;
            case 'I': $fmtdate .= 'h'; break;
            case 'j': $fmtdate .= '?z'; $parsej = true; break; // wrong as j=1-based, z=0-basd
            case 'm': $fmtdate .= 'm'; break;
            case 'M': $fmtdate .= 'i'; break;
            case 'n': $fmtdate .= "\n"; break;
            case 'p': $fmtdate .= 'a'; break;
            case 'r': $fmtdate .= 'h:i:s a'; break;
            case 'R': $fmtdate .= 'H:i:s'; break;
            case 'S': $fmtdate .= 's'; break;
            case 't': $fmtdate .= "\t"; break;
            case 'T': $fmtdate .= 'H:i:s'; break;
            case 'u': $fmtdate .= '?u'; $parseu = true; break; // wrong strftime=1-based, date=0-based
            case 'U': $fmtdate .= '?U'; $parseU = true; break;// wrong strftime=1-based, date=0-based
            case 'x': $fmtdate .= $ADODB_DATE_LOCALE[0]; break;
            case 'X': $fmtdate .= $ADODB_DATE_LOCALE[1]; break;
            case 'w': $fmtdate .= '?w'; $parseu = true; break; // wrong strftime=1-based, date=0-based
            case 'W': $fmtdate .= '?W'; $parseU = true; break;// wrong strftime=1-based, date=0-based
            case 'y': $fmtdate .= 'y'; break;
            case 'Y': $fmtdate .= 'Y'; break;
            case 'Z': $fmtdate .= 'T'; break;
            }
        } else if (('A' <= ($ch) && ($ch) <= 'Z' ) || ('a' <= ($ch) && ($ch) <= 'z' ))
            $fmtdate .= "\\".$ch;
        else
            $fmtdate .= $ch;
    }
    //echo "fmt=",$fmtdate,"<br>";
    if ($ts === false) $ts = time();
    $ret = adodb_date($fmtdate, $ts, $is_gmt);
    return $ret;
}