1<?php 2/** 3ADOdb Date Library, part of the ADOdb abstraction library 4Download: http://phplens.com/phpeverywhere/ 5 6PHP native date functions use integer timestamps for computations. 7Because of this, dates are restricted to the years 1901-2038 on Unix 8and 1970-2038 on Windows due to integer overflow for dates beyond 9those years. This library overcomes these limitations by replacing the 10native function's signed integers (normally 32-bits) with PHP floating 11point numbers (normally 64-bits). 12 13Dates from 100 A.D. to 3000 A.D. and later 14have been tested. The minimum is 100 A.D. as <100 will invoke the 152 => 4 digit year conversion. The maximum is billions of years in the 16future, but this is a theoretical limit as the computation of that year 17would take too long with the current implementation of adodb_mktime(). 18 19This library replaces native functions as follows: 20 21<pre> 22 getdate() with adodb_getdate() 23 date() with adodb_date() 24 gmdate() with adodb_gmdate() 25 mktime() with adodb_mktime() 26 gmmktime() with adodb_gmmktime() 27 strftime() with adodb_strftime() 28 strftime() with adodb_gmstrftime() 29</pre> 30 31The parameters are identical, except that adodb_date() accepts a subset 32of date()'s field formats. Mktime() will convert from local time to GMT, 33and date() will convert from GMT to local time, but daylight savings is 34not handled currently. 35 36This library is independant of the rest of ADOdb, and can be used 37as standalone code. 38 39PERFORMANCE 40 41For high speed, this library uses the native date functions where 42possible, and only switches to PHP code when the dates fall outside 43the 32-bit signed integer range. 44 45GREGORIAN CORRECTION 46 47Pope Gregory shortened October of A.D. 1582 by ten days. Thursday, 48October 4, 1582 (Julian) was followed immediately by Friday, October 15, 491582 (Gregorian). 50 51Since 0.06, we handle this correctly, so: 52 53adodb_mktime(0,0,0,10,15,1582) - adodb_mktime(0,0,0,10,4,1582) 54 == 24 * 3600 (1 day) 55 56============================================================================= 57 58COPYRIGHT 59 60(c) 2003-2005 John Lim and released under BSD-style license except for code by 61jackbbs, which includes adodb_mktime, adodb_get_gmt_diff, adodb_is_leap_year 62and originally found at http://www.php.net/manual/en/function.mktime.php 63 64============================================================================= 65 66BUG REPORTS 67 68These should be posted to the ADOdb forums at 69 70 http://phplens.com/lens/lensforum/topics.php?id=4 71 72============================================================================= 73 74FUNCTION DESCRIPTIONS 75 76 77** FUNCTION adodb_getdate($date=false) 78 79Returns an array containing date information, as getdate(), but supports 80dates greater than 1901 to 2038. The local date/time format is derived from a 81heuristic the first time adodb_getdate is called. 82 83 84** FUNCTION adodb_date($fmt, $timestamp = false) 85 86Convert a timestamp to a formatted local date. If $timestamp is not defined, the 87current timestamp is used. Unlike the function date(), it supports dates 88outside the 1901 to 2038 range. 89 90The format fields that adodb_date supports: 91 92<pre> 93 a - "am" or "pm" 94 A - "AM" or "PM" 95 d - day of the month, 2 digits with leading zeros; i.e. "01" to "31" 96 D - day of the week, textual, 3 letters; e.g. "Fri" 97 F - month, textual, long; e.g. "January" 98 g - hour, 12-hour format without leading zeros; i.e. "1" to "12" 99 G - hour, 24-hour format without leading zeros; i.e. "0" to "23" 100 h - hour, 12-hour format; i.e. "01" to "12" 101 H - hour, 24-hour format; i.e. "00" to "23" 102 i - minutes; i.e. "00" to "59" 103 j - day of the month without leading zeros; i.e. "1" to "31" 104 l (lowercase 'L') - day of the week, textual, long; e.g. "Friday" 105 L - boolean for whether it is a leap year; i.e. "0" or "1" 106 m - month; i.e. "01" to "12" 107 M - month, textual, 3 letters; e.g. "Jan" 108 n - month without leading zeros; i.e. "1" to "12" 109 O - Difference to Greenwich time in hours; e.g. "+0200" 110 Q - Quarter, as in 1, 2, 3, 4 111 r - RFC 2822 formatted date; e.g. "Thu, 21 Dec 2000 16:01:07 +0200" 112 s - seconds; i.e. "00" to "59" 113 S - English ordinal suffix for the day of the month, 2 characters; 114 i.e. "st", "nd", "rd" or "th" 115 t - number of days in the given month; i.e. "28" to "31" 116 T - Timezone setting of this machine; e.g. "EST" or "MDT" 117 U - seconds since the Unix Epoch (January 1 1970 00:00:00 GMT) 118 w - day of the week, numeric, i.e. "0" (Sunday) to "6" (Saturday) 119 Y - year, 4 digits; e.g. "1999" 120 y - year, 2 digits; e.g. "99" 121 z - day of the year; i.e. "0" to "365" 122 Z - timezone offset in seconds (i.e. "-43200" to "43200"). 123 The offset for timezones west of UTC is always negative, 124 and for those east of UTC is always positive. 125</pre> 126 127Unsupported: 128<pre> 129 B - Swatch Internet time 130 I (capital i) - "1" if Daylight Savings Time, "0" otherwise. 131 W - ISO-8601 week number of year, weeks starting on Monday 132 133</pre> 134 135 136** FUNCTION adodb_date2($fmt, $isoDateString = false) 137Same as adodb_date, but 2nd parameter accepts iso date, eg. 138 139 adodb_date2('d-M-Y H:i','2003-12-25 13:01:34'); 140 141 142** FUNCTION adodb_gmdate($fmt, $timestamp = false) 143 144Convert a timestamp to a formatted GMT date. If $timestamp is not defined, the 145current timestamp is used. Unlike the function date(), it supports dates 146outside the 1901 to 2038 range. 147 148 149** FUNCTION adodb_mktime($hr, $min, $sec[, $month, $day, $year]) 150 151Converts a local date to a unix timestamp. Unlike the function mktime(), it supports 152dates outside the 1901 to 2038 range. All parameters are optional. 153 154 155** FUNCTION adodb_gmmktime($hr, $min, $sec [, $month, $day, $year]) 156 157Converts a gmt date to a unix timestamp. Unlike the function gmmktime(), it supports 158dates outside the 1901 to 2038 range. Differs from gmmktime() in that all parameters 159are currently compulsory. 160 161** FUNCTION adodb_gmstrftime($fmt, $timestamp = false) 162Convert a timestamp to a formatted GMT date. 163 164** FUNCTION adodb_strftime($fmt, $timestamp = false) 165 166Convert a timestamp to a formatted local date. Internally converts $fmt into 167adodb_date format, then echo result. 168 169For best results, you can define the local date format yourself. Define a global 170variable $ADODB_DATE_LOCALE which is an array, 1st element is date format using 171adodb_date syntax, and 2nd element is the time format, also in adodb_date syntax. 172 173 eg. $ADODB_DATE_LOCALE = array('d/m/Y','H:i:s'); 174 175 Supported format codes: 176 177<pre> 178 %a - abbreviated weekday name according to the current locale 179 %A - full weekday name according to the current locale 180 %b - abbreviated month name according to the current locale 181 %B - full month name according to the current locale 182 %c - preferred date and time representation for the current locale 183 %d - day of the month as a decimal number (range 01 to 31) 184 %D - same as %m/%d/%y 185 %e - day of the month as a decimal number, a single digit is preceded by a space (range ' 1' to '31') 186 %h - same as %b 187 %H - hour as a decimal number using a 24-hour clock (range 00 to 23) 188 %I - hour as a decimal number using a 12-hour clock (range 01 to 12) 189 %m - month as a decimal number (range 01 to 12) 190 %M - minute as a decimal number 191 %n - newline character 192 %p - either `am' or `pm' according to the given time value, or the corresponding strings for the current locale 193 %r - time in a.m. and p.m. notation 194 %R - time in 24 hour notation 195 %S - second as a decimal number 196 %t - tab character 197 %T - current time, equal to %H:%M:%S 198 %x - preferred date representation for the current locale without the time 199 %X - preferred time representation for the current locale without the date 200 %y - year as a decimal number without a century (range 00 to 99) 201 %Y - year as a decimal number including the century 202 %Z - time zone or name or abbreviation 203 %% - a literal `%' character 204</pre> 205 206 Unsupported codes: 207<pre> 208 %C - century number (the year divided by 100 and truncated to an integer, range 00 to 99) 209 %g - like %G, but without the century. 210 %G - The 4-digit year corresponding to the ISO week number (see %V). 211 This has the same format and value as %Y, except that if the ISO week number belongs 212 to the previous or next year, that year is used instead. 213 %j - day of the year as a decimal number (range 001 to 366) 214 %u - weekday as a decimal number [1,7], with 1 representing Monday 215 %U - week number of the current year as a decimal number, starting 216 with the first Sunday as the first day of the first week 217 %V - The ISO 8601:1988 week number of the current year as a decimal number, 218 range 01 to 53, where week 1 is the first week that has at least 4 days in the 219 current year, and with Monday as the first day of the week. (Use %G or %g for 220 the year component that corresponds to the week number for the specified timestamp.) 221 %w - day of the week as a decimal, Sunday being 0 222 %W - week number of the current year as a decimal number, starting with the 223 first Monday as the first day of the first week 224</pre> 225 226============================================================================= 227 228NOTES 229 230Useful url for generating test timestamps: 231 http://www.4webhelp.net/us/timestamp.php 232 233Possible future optimizations include 234 235a. Using an algorithm similar to Plauger's in "The Standard C Library" 236(page 428, xttotm.c _Ttotm() function). Plauger's algorithm will not 237work outside 32-bit signed range, so i decided not to implement it. 238 239b. Implement daylight savings, which looks awfully complicated, see 240 http://webexhibits.org/daylightsaving/ 241 242 243CHANGELOG 244 245- 11 Feb 2008 0.33 246* Bug in 0.32 fix for hour handling. Fixed. 247 248- 1 Feb 2008 0.32 249* Now adodb_mktime(0,0,0,12+$m,20,2040) works properly. 250 251- 10 Jan 2008 0.31 252* Now adodb_mktime(0,0,0,24,1,2037) works correctly. 253 254- 15 July 2007 0.30 255Added PHP 5.2.0 compatability fixes. 256 * gmtime behaviour for 1970 has changed. We use the actual date if it is between 1970 to 2038 to get the 257 * timezone, otherwise we use the current year as the baseline to retrieve the timezone. 258 * Also the timezone's in php 5.2.* support historical data better, eg. if timezone today was +8, but 259 in 1970 it was +7:30, then php 5.2 return +7:30, while this library will use +8. 260 * 261 262- 19 March 2006 0.24 263Changed strftime() locale detection, because some locales prepend the day of week to the date when %c is used. 264 265- 10 Feb 2006 0.23 266PHP5 compat: when we detect PHP5, the RFC2822 format for gmt 0000hrs is changed from -0000 to +0000. 267 In PHP4, we will still use -0000 for 100% compat with PHP4. 268 269- 08 Sept 2005 0.22 270In adodb_date2(), $is_gmt not supported properly. Fixed. 271 272- 18 July 2005 0.21 273In PHP 4.3.11, the 'r' format has changed. Leading 0 in day is added. Changed for compat. 274Added support for negative months in adodb_mktime(). 275 276- 24 Feb 2005 0.20 277Added limited strftime/gmstrftime support. x10 improvement in performance of adodb_date(). 278 279- 21 Dec 2004 0.17 280In adodb_getdate(), the timestamp was accidentally converted to gmt when $is_gmt is false. 281Also adodb_mktime(0,0,0) did not work properly. Both fixed thx Mauro. 282 283- 17 Nov 2004 0.16 284Removed intval typecast in adodb_mktime() for secs, allowing: 285 adodb_mktime(0,0,0 + 2236672153,1,1,1934); 286Suggested by Ryan. 287 288- 18 July 2004 0.15 289All params in adodb_mktime were formerly compulsory. Now only the hour, min, secs is compulsory. 290This brings it more in line with mktime (still not identical). 291 292- 23 June 2004 0.14 293 294Allow you to define your own daylights savings function, adodb_daylight_sv. 295If the function is defined (somewhere in an include), then you can correct for daylights savings. 296 297In this example, we apply daylights savings in June or July, adding one hour. This is extremely 298unrealistic as it does not take into account time-zone, geographic location, current year. 299 300function adodb_daylight_sv(&$arr, $is_gmt) 301{ 302 if ($is_gmt) return; 303 $m = $arr['mon']; 304 if ($m == 6 || $m == 7) $arr['hours'] += 1; 305} 306 307This is only called by adodb_date() and not by adodb_mktime(). 308 309The format of $arr is 310Array ( 311 [seconds] => 0 312 [minutes] => 0 313 [hours] => 0 314 [mday] => 1 # day of month, eg 1st day of the month 315 [mon] => 2 # month (eg. Feb) 316 [year] => 2102 317 [yday] => 31 # days in current year 318 [leap] => # true if leap year 319 [ndays] => 28 # no of days in current month 320 ) 321 322 323- 28 Apr 2004 0.13 324Fixed adodb_date to properly support $is_gmt. Thx to Dimitar Angelov. 325 326- 20 Mar 2004 0.12 327Fixed month calculation error in adodb_date. 2102-June-01 appeared as 2102-May-32. 328 329- 26 Oct 2003 0.11 330Because of daylight savings problems (some systems apply daylight savings to 331January!!!), changed adodb_get_gmt_diff() to ignore daylight savings. 332 333- 9 Aug 2003 0.10 334Fixed bug with dates after 2038. 335See http://phplens.com/lens/lensforum/msgs.php?id=6980 336 337- 1 July 2003 0.09 338Added support for Q (Quarter). 339Added adodb_date2(), which accepts ISO date in 2nd param 340 341- 3 March 2003 0.08 342Added support for 'S' adodb_date() format char. Added constant ADODB_ALLOW_NEGATIVE_TS 343if you want PHP to handle negative timestamps between 1901 to 1969. 344 345- 27 Feb 2003 0.07 346All negative numbers handled by adodb now because of RH 7.3+ problems. 347See http://bugs.php.net/bug.php?id=20048&edit=2 348 349- 4 Feb 2003 0.06 350Fixed a typo, 1852 changed to 1582! This means that pre-1852 dates 351are now correctly handled. 352 353- 29 Jan 2003 0.05 354 355Leap year checking differs under Julian calendar (pre 1582). Also 356leap year code optimized by checking for most common case first. 357 358We also handle month overflow correctly in mktime (eg month set to 13). 359 360Day overflow for less than one month's days is supported. 361 362- 28 Jan 2003 0.04 363 364Gregorian correction handled. In PHP5, we might throw an error if 365mktime uses invalid dates around 5-14 Oct 1582. Released with ADOdb 3.10. 366Added limbo 5-14 Oct 1582 check, when we set to 15 Oct 1582. 367 368- 27 Jan 2003 0.03 369 370Fixed some more month problems due to gmt issues. Added constant ADODB_DATE_VERSION. 371Fixed calculation of days since start of year for <1970. 372 373- 27 Jan 2003 0.02 374 375Changed _adodb_getdate() to inline leap year checking for better performance. 376Fixed problem with time-zones west of GMT +0000. 377 378- 24 Jan 2003 0.01 379 380First implementation. 381*/ 382 383 384/* Initialization */ 385 386/* 387 Version Number 388*/ 389define('ADODB_DATE_VERSION',0.33); 390 391$ADODB_DATETIME_CLASS = (PHP_VERSION >= 5.2); 392 393/* 394 This code was originally for windows. But apparently this problem happens 395 also with Linux, RH 7.3 and later! 396 397 glibc-2.2.5-34 and greater has been changed to return -1 for dates < 398 1970. This used to work. The problem exists with RedHat 7.3 and 8.0 399 echo (mktime(0, 0, 0, 1, 1, 1960)); // prints -1 400 401 References: 402 http://bugs.php.net/bug.php?id=20048&edit=2 403 http://lists.debian.org/debian-glibc/2002/debian-glibc-200205/msg00010.html 404*/ 405 406if (!defined('ADODB_ALLOW_NEGATIVE_TS')) define('ADODB_NO_NEGATIVE_TS',1); 407 408function adodb_date_test_date($y1,$m,$d=13) 409{ 410 $h = round(rand()% 24); 411 $t = adodb_mktime($h,0,0,$m,$d,$y1); 412 $rez = adodb_date('Y-n-j H:i:s',$t); 413 if ($h == 0) $h = '00'; 414 else if ($h < 10) $h = '0'.$h; 415 if ("$y1-$m-$d $h:00:00" != $rez) { 416 print "<b>$y1 error, expected=$y1-$m-$d $h:00:00, adodb=$rez</b><br>"; 417 return false; 418 } 419 return true; 420} 421 422function adodb_date_test_strftime($fmt) 423{ 424 $s1 = strftime($fmt); 425 $s2 = adodb_strftime($fmt); 426 427 if ($s1 == $s2) return true; 428 429 echo "error for $fmt, strftime=$s1, adodb=$s2<br>"; 430 return false; 431} 432 433/** 434 Test Suite 435*/ 436function adodb_date_test() 437{ 438 439 for ($m=-24; $m<=24; $m++) 440 echo "$m :",adodb_date('d-m-Y',adodb_mktime(0,0,0,1+$m,20,2040)),"<br>"; 441 442 error_reporting(E_ALL); 443 print "<h4>Testing adodb_date and adodb_mktime. version=".ADODB_DATE_VERSION.' PHP='.PHP_VERSION."</h4>"; 444 @set_time_limit(0); 445 $fail = false; 446 447 // This flag disables calling of PHP native functions, so we can properly test the code 448 if (!defined('ADODB_TEST_DATES')) define('ADODB_TEST_DATES',1); 449 450 $t = time(); 451 452 453 $fmt = 'Y-m-d H:i:s'; 454 echo '<pre>'; 455 echo 'adodb: ',adodb_date($fmt,$t),'<br>'; 456 echo 'php : ',date($fmt,$t),'<br>'; 457 echo '</pre>'; 458 459 adodb_date_test_strftime('%Y %m %x %X'); 460 adodb_date_test_strftime("%A %d %B %Y"); 461 adodb_date_test_strftime("%H %M S"); 462 463 $t = adodb_mktime(0,0,0); 464 if (!(adodb_date('Y-m-d') == date('Y-m-d'))) print 'Error in '.adodb_mktime(0,0,0).'<br>'; 465 466 $t = adodb_mktime(0,0,0,6,1,2102); 467 if (!(adodb_date('Y-m-d',$t) == '2102-06-01')) print 'Error in '.adodb_date('Y-m-d',$t).'<br>'; 468 469 $t = adodb_mktime(0,0,0,2,1,2102); 470 if (!(adodb_date('Y-m-d',$t) == '2102-02-01')) print 'Error in '.adodb_date('Y-m-d',$t).'<br>'; 471 472 473 print "<p>Testing gregorian <=> julian conversion<p>"; 474 $t = adodb_mktime(0,0,0,10,11,1492); 475 //http://www.holidayorigins.com/html/columbus_day.html - Friday check 476 if (!(adodb_date('D Y-m-d',$t) == 'Fri 1492-10-11')) print 'Error in Columbus landing<br>'; 477 478 $t = adodb_mktime(0,0,0,2,29,1500); 479 if (!(adodb_date('Y-m-d',$t) == '1500-02-29')) print 'Error in julian leap years<br>'; 480 481 $t = adodb_mktime(0,0,0,2,29,1700); 482 if (!(adodb_date('Y-m-d',$t) == '1700-03-01')) print 'Error in gregorian leap years<br>'; 483 484 print adodb_mktime(0,0,0,10,4,1582).' '; 485 print adodb_mktime(0,0,0,10,15,1582); 486 $diff = (adodb_mktime(0,0,0,10,15,1582) - adodb_mktime(0,0,0,10,4,1582)); 487 if ($diff != 3600*24) print " <b>Error in gregorian correction = ".($diff/3600/24)." days </b><br>"; 488 489 print " 15 Oct 1582, Fri=".(adodb_dow(1582,10,15) == 5 ? 'Fri' : '<b>Error</b>')."<br>"; 490 print " 4 Oct 1582, Thu=".(adodb_dow(1582,10,4) == 4 ? 'Thu' : '<b>Error</b>')."<br>"; 491 492 print "<p>Testing overflow<p>"; 493 494 $t = adodb_mktime(0,0,0,3,33,1965); 495 if (!(adodb_date('Y-m-d',$t) == '1965-04-02')) print 'Error in day overflow 1 <br>'; 496 $t = adodb_mktime(0,0,0,4,33,1971); 497 if (!(adodb_date('Y-m-d',$t) == '1971-05-03')) print 'Error in day overflow 2 <br>'; 498 $t = adodb_mktime(0,0,0,1,60,1965); 499 if (!(adodb_date('Y-m-d',$t) == '1965-03-01')) print 'Error in day overflow 3 '.adodb_date('Y-m-d',$t).' <br>'; 500 $t = adodb_mktime(0,0,0,12,32,1965); 501 if (!(adodb_date('Y-m-d',$t) == '1966-01-01')) print 'Error in day overflow 4 '.adodb_date('Y-m-d',$t).' <br>'; 502 $t = adodb_mktime(0,0,0,12,63,1965); 503 if (!(adodb_date('Y-m-d',$t) == '1966-02-01')) print 'Error in day overflow 5 '.adodb_date('Y-m-d',$t).' <br>'; 504 $t = adodb_mktime(0,0,0,13,3,1965); 505 if (!(adodb_date('Y-m-d',$t) == '1966-01-03')) print 'Error in mth overflow 1 <br>'; 506 507 print "Testing 2-digit => 4-digit year conversion<p>"; 508 if (adodb_year_digit_check(00) != 2000) print "Err 2-digit 2000<br>"; 509 if (adodb_year_digit_check(10) != 2010) print "Err 2-digit 2010<br>"; 510 if (adodb_year_digit_check(20) != 2020) print "Err 2-digit 2020<br>"; 511 if (adodb_year_digit_check(30) != 2030) print "Err 2-digit 2030<br>"; 512 if (adodb_year_digit_check(40) != 1940) print "Err 2-digit 1940<br>"; 513 if (adodb_year_digit_check(50) != 1950) print "Err 2-digit 1950<br>"; 514 if (adodb_year_digit_check(90) != 1990) print "Err 2-digit 1990<br>"; 515 516 // Test string formating 517 print "<p>Testing date formating</p>"; 518 519 $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'; 520 $s1 = date($fmt,0); 521 $s2 = adodb_date($fmt,0); 522 if ($s1 != $s2) { 523 print " date() 0 failed<br>$s1<br>$s2<br>"; 524 } 525 flush(); 526 for ($i=100; --$i > 0; ) { 527 528 $ts = 3600.0*((rand()%60000)+(rand()%60000))+(rand()%60000); 529 $s1 = date($fmt,$ts); 530 $s2 = adodb_date($fmt,$ts); 531 //print "$s1 <br>$s2 <p>"; 532 $pos = strcmp($s1,$s2); 533 534 if (($s1) != ($s2)) { 535 for ($j=0,$k=strlen($s1); $j < $k; $j++) { 536 if ($s1[$j] != $s2[$j]) { 537 print substr($s1,$j).' '; 538 break; 539 } 540 } 541 print "<b>Error date(): $ts<br><pre> 542 \"$s1\" (date len=".strlen($s1).") 543 \"$s2\" (adodb_date len=".strlen($s2).")</b></pre><br>"; 544 $fail = true; 545 } 546 547 $a1 = getdate($ts); 548 $a2 = adodb_getdate($ts); 549 $rez = array_diff($a1,$a2); 550 if (sizeof($rez)>0) { 551 print "<b>Error getdate() $ts</b><br>"; 552 print_r($a1); 553 print "<br>"; 554 print_r($a2); 555 print "<p>"; 556 $fail = true; 557 } 558 } 559 560 // Test generation of dates outside 1901-2038 561 print "<p>Testing random dates between 100 and 4000</p>"; 562 adodb_date_test_date(100,1); 563 for ($i=100; --$i >= 0;) { 564 $y1 = 100+rand(0,1970-100); 565 $m = rand(1,12); 566 adodb_date_test_date($y1,$m); 567 568 $y1 = 3000-rand(0,3000-1970); 569 adodb_date_test_date($y1,$m); 570 } 571 print '<p>'; 572 $start = 1960+rand(0,10); 573 $yrs = 12; 574 $i = 365.25*86400*($start-1970); 575 $offset = 36000+rand(10000,60000); 576 $max = 365*$yrs*86400; 577 $lastyear = 0; 578 579 // we generate a timestamp, convert it to a date, and convert it back to a timestamp 580 // and check if the roundtrip broke the original timestamp value. 581 print "Testing $start to ".($start+$yrs).", or $max seconds, offset=$offset: "; 582 $cnt = 0; 583 for ($max += $i; $i < $max; $i += $offset) { 584 $ret = adodb_date('m,d,Y,H,i,s',$i); 585 $arr = explode(',',$ret); 586 if ($lastyear != $arr[2]) { 587 $lastyear = $arr[2]; 588 print " $lastyear "; 589 flush(); 590 } 591 $newi = adodb_mktime($arr[3],$arr[4],$arr[5],$arr[0],$arr[1],$arr[2]); 592 if ($i != $newi) { 593 print "Error at $i, adodb_mktime returned $newi ($ret)"; 594 $fail = true; 595 break; 596 } 597 $cnt += 1; 598 } 599 echo "Tested $cnt dates<br>"; 600 if (!$fail) print "<p>Passed !</p>"; 601 else print "<p><b>Failed</b> :-(</p>"; 602} 603 604/** 605 Returns day of week, 0 = Sunday,... 6=Saturday. 606 Algorithm from PEAR::Date_Calc 607*/ 608function adodb_dow($year, $month, $day) 609{ 610/* 611Pope Gregory removed 10 days - October 5 to October 14 - from the year 1582 and 612proclaimed that from that time onwards 3 days would be dropped from the calendar 613every 400 years. 614 615Thursday, October 4, 1582 (Julian) was followed immediately by Friday, October 15, 1582 (Gregorian). 616*/ 617 if ($year <= 1582) { 618 if ($year < 1582 || 619 ($year == 1582 && ($month < 10 || ($month == 10 && $day < 15)))) $greg_correction = 3; 620 else 621 $greg_correction = 0; 622 } else 623 $greg_correction = 0; 624 625 if($month > 2) 626 $month -= 2; 627 else { 628 $month += 10; 629 $year--; 630 } 631 632 $day = floor((13 * $month - 1) / 5) + 633 $day + ($year % 100) + 634 floor(($year % 100) / 4) + 635 floor(($year / 100) / 4) - 2 * 636 floor($year / 100) + 77 + $greg_correction; 637 638 return $day - 7 * floor($day / 7); 639} 640 641 642/** 643 Checks for leap year, returns true if it is. No 2-digit year check. Also 644 handles julian calendar correctly. 645*/ 646function _adodb_is_leap_year($year) 647{ 648 if ($year % 4 != 0) return false; 649 650 if ($year % 400 == 0) { 651 return true; 652 // if gregorian calendar (>1582), century not-divisible by 400 is not leap 653 } else if ($year > 1582 && $year % 100 == 0 ) { 654 return false; 655 } 656 657 return true; 658} 659 660 661/** 662 checks for leap year, returns true if it is. Has 2-digit year check 663*/ 664function adodb_is_leap_year($year) 665{ 666 return _adodb_is_leap_year(adodb_year_digit_check($year)); 667} 668 669/** 670 Fix 2-digit years. Works for any century. 671 Assumes that if 2-digit is more than 30 years in future, then previous century. 672*/ 673function adodb_year_digit_check($y) 674{ 675 if ($y < 100) { 676 677 $yr = (integer) date("Y"); 678 $century = (integer) ($yr /100); 679 680 if ($yr%100 > 50) { 681 $c1 = $century + 1; 682 $c0 = $century; 683 } else { 684 $c1 = $century; 685 $c0 = $century - 1; 686 } 687 $c1 *= 100; 688 // if 2-digit year is less than 30 years in future, set it to this century 689 // otherwise if more than 30 years in future, then we set 2-digit year to the prev century. 690 if (($y + $c1) < $yr+30) $y = $y + $c1; 691 else $y = $y + $c0*100; 692 } 693 return $y; 694} 695 696function adodb_get_gmt_diff_ts($ts) 697{ 698 if (0 <= $ts && $ts <= 0x7FFFFFFF) { // check if number in 32-bit signed range) { 699 $arr = getdate($ts); 700 $y = $arr['year']; 701 $m = $arr['mon']; 702 $d = $arr['mday']; 703 return adodb_get_gmt_diff($y,$m,$d); 704 } else { 705 return adodb_get_gmt_diff(false,false,false); 706 } 707 708} 709 710/** 711 get local time zone offset from GMT. Does not handle historical timezones before 1970. 712*/ 713function adodb_get_gmt_diff($y,$m,$d) 714{ 715static $TZ,$tzo; 716global $ADODB_DATETIME_CLASS; 717 718 if (!defined('ADODB_TEST_DATES')) $y = false; 719 else if ($y < 1970 || $y >= 2038) $y = false; 720 721 if ($ADODB_DATETIME_CLASS && $y !== false) { 722 $dt = new DateTime(); 723 $dt->setISODate($y,$m,$d); 724 if (empty($tzo)) { 725 $tzo = new DateTimeZone(date_default_timezone_get()); 726 # $tzt = timezone_transitions_get( $tzo ); 727 } 728 return -$tzo->getOffset($dt); 729 } else { 730 if (isset($TZ)) return $TZ; 731 $y = date('Y'); 732 $TZ = mktime(0,0,0,12,2,$y,0) - gmmktime(0,0,0,12,2,$y,0); 733 } 734 735 return $TZ; 736} 737 738/** 739 Returns an array with date info. 740*/ 741function adodb_getdate($d=false,$fast=false) 742{ 743 if ($d === false) return getdate(); 744 if (!defined('ADODB_TEST_DATES')) { 745 if ((abs($d) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range 746 if (!defined('ADODB_NO_NEGATIVE_TS') || $d >= 0) // if windows, must be +ve integer 747 return @getdate($d); 748 } 749 } 750 return _adodb_getdate($d); 751} 752 753/* 754// generate $YRS table for _adodb_getdate() 755function adodb_date_gentable($out=true) 756{ 757 758 for ($i=1970; $i >= 1600; $i-=10) { 759 $s = adodb_gmmktime(0,0,0,1,1,$i); 760 echo "$i => $s,<br>"; 761 } 762} 763adodb_date_gentable(); 764 765for ($i=1970; $i > 1500; $i--) { 766 767echo "<hr />$i "; 768 adodb_date_test_date($i,1,1); 769} 770 771*/ 772 773 774$_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31); 775$_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31); 776 777function adodb_validdate($y,$m,$d) 778{ 779global $_month_table_normal,$_month_table_leaf; 780 781 if (_adodb_is_leap_year($y)) $marr = $_month_table_leaf; 782 else $marr = $_month_table_normal; 783 784 if ($m > 12 || $m < 1) return false; 785 786 if ($d > 31 || $d < 1) return false; 787 788 if ($marr[$m] < $d) return false; 789 790 if ($y < 1000 && $y > 3000) return false; 791 792 return true; 793} 794 795/** 796 Low-level function that returns the getdate() array. We have a special 797 $fast flag, which if set to true, will return fewer array values, 798 and is much faster as it does not calculate dow, etc. 799*/ 800function _adodb_getdate($origd=false,$fast=false,$is_gmt=false) 801{ 802static $YRS; 803global $_month_table_normal,$_month_table_leaf; 804 805 $d = $origd - ($is_gmt ? 0 : adodb_get_gmt_diff_ts($origd)); 806 $_day_power = 86400; 807 $_hour_power = 3600; 808 $_min_power = 60; 809 810 if ($d < -12219321600) $d -= 86400*10; // if 15 Oct 1582 or earlier, gregorian correction 811 812 $_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31); 813 $_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31); 814 815 $d366 = $_day_power * 366; 816 $d365 = $_day_power * 365; 817 818 if ($d < 0) { 819 820 if (empty($YRS)) $YRS = array( 821 1970 => 0, 822 1960 => -315619200, 823 1950 => -631152000, 824 1940 => -946771200, 825 1930 => -1262304000, 826 1920 => -1577923200, 827 1910 => -1893456000, 828 1900 => -2208988800, 829 1890 => -2524521600, 830 1880 => -2840140800, 831 1870 => -3155673600, 832 1860 => -3471292800, 833 1850 => -3786825600, 834 1840 => -4102444800, 835 1830 => -4417977600, 836 1820 => -4733596800, 837 1810 => -5049129600, 838 1800 => -5364662400, 839 1790 => -5680195200, 840 1780 => -5995814400, 841 1770 => -6311347200, 842 1760 => -6626966400, 843 1750 => -6942499200, 844 1740 => -7258118400, 845 1730 => -7573651200, 846 1720 => -7889270400, 847 1710 => -8204803200, 848 1700 => -8520336000, 849 1690 => -8835868800, 850 1680 => -9151488000, 851 1670 => -9467020800, 852 1660 => -9782640000, 853 1650 => -10098172800, 854 1640 => -10413792000, 855 1630 => -10729324800, 856 1620 => -11044944000, 857 1610 => -11360476800, 858 1600 => -11676096000); 859 860 if ($is_gmt) $origd = $d; 861 // The valid range of a 32bit signed timestamp is typically from 862 // Fri, 13 Dec 1901 20:45:54 GMT to Tue, 19 Jan 2038 03:14:07 GMT 863 // 864 865 # old algorithm iterates through all years. new algorithm does it in 866 # 10 year blocks 867 868 /* 869 # old algo 870 for ($a = 1970 ; --$a >= 0;) { 871 $lastd = $d; 872 873 if ($leaf = _adodb_is_leap_year($a)) $d += $d366; 874 else $d += $d365; 875 876 if ($d >= 0) { 877 $year = $a; 878 break; 879 } 880 } 881 */ 882 883 $lastsecs = 0; 884 $lastyear = 1970; 885 foreach($YRS as $year => $secs) { 886 if ($d >= $secs) { 887 $a = $lastyear; 888 break; 889 } 890 $lastsecs = $secs; 891 $lastyear = $year; 892 } 893 894 $d -= $lastsecs; 895 if (!isset($a)) $a = $lastyear; 896 897 //echo ' yr=',$a,' ', $d,'.'; 898 899 for (; --$a >= 0;) { 900 $lastd = $d; 901 902 if ($leaf = _adodb_is_leap_year($a)) $d += $d366; 903 else $d += $d365; 904 905 if ($d >= 0) { 906 $year = $a; 907 break; 908 } 909 } 910 /**/ 911 912 $secsInYear = 86400 * ($leaf ? 366 : 365) + $lastd; 913 914 $d = $lastd; 915 $mtab = ($leaf) ? $_month_table_leaf : $_month_table_normal; 916 for ($a = 13 ; --$a > 0;) { 917 $lastd = $d; 918 $d += $mtab[$a] * $_day_power; 919 if ($d >= 0) { 920 $month = $a; 921 $ndays = $mtab[$a]; 922 break; 923 } 924 } 925 926 $d = $lastd; 927 $day = $ndays + ceil(($d+1) / ($_day_power)); 928 929 $d += ($ndays - $day+1)* $_day_power; 930 $hour = floor($d/$_hour_power); 931 932 } else { 933 for ($a = 1970 ;; $a++) { 934 $lastd = $d; 935 936 if ($leaf = _adodb_is_leap_year($a)) $d -= $d366; 937 else $d -= $d365; 938 if ($d < 0) { 939 $year = $a; 940 break; 941 } 942 } 943 $secsInYear = $lastd; 944 $d = $lastd; 945 $mtab = ($leaf) ? $_month_table_leaf : $_month_table_normal; 946 for ($a = 1 ; $a <= 12; $a++) { 947 $lastd = $d; 948 $d -= $mtab[$a] * $_day_power; 949 if ($d < 0) { 950 $month = $a; 951 $ndays = $mtab[$a]; 952 break; 953 } 954 } 955 $d = $lastd; 956 $day = ceil(($d+1) / $_day_power); 957 $d = $d - ($day-1) * $_day_power; 958 $hour = floor($d /$_hour_power); 959 } 960 961 $d -= $hour * $_hour_power; 962 $min = floor($d/$_min_power); 963 $secs = $d - $min * $_min_power; 964 if ($fast) { 965 return array( 966 'seconds' => $secs, 967 'minutes' => $min, 968 'hours' => $hour, 969 'mday' => $day, 970 'mon' => $month, 971 'year' => $year, 972 'yday' => floor($secsInYear/$_day_power), 973 'leap' => $leaf, 974 'ndays' => $ndays 975 ); 976 } 977 978 979 $dow = adodb_dow($year,$month,$day); 980 981 return array( 982 'seconds' => $secs, 983 'minutes' => $min, 984 'hours' => $hour, 985 'mday' => $day, 986 'wday' => $dow, 987 'mon' => $month, 988 'year' => $year, 989 'yday' => floor($secsInYear/$_day_power), 990 'weekday' => gmdate('l',$_day_power*(3+$dow)), 991 'month' => gmdate('F',mktime(0,0,0,$month,2,1971)), 992 0 => $origd 993 ); 994} 995/* 996 if ($isphp5) 997 $dates .= sprintf('%s%04d',($gmt<=0)?'+':'-',abs($gmt)/36); 998 else 999 $dates .= sprintf('%s%04d',($gmt<0)?'+':'-',abs($gmt)/36); 1000 break;*/ 1001function adodb_tz_offset($gmt,$isphp5) 1002{ 1003 $zhrs = abs($gmt)/3600; 1004 $hrs = floor($zhrs); 1005 if ($isphp5) 1006 return sprintf('%s%02d%02d',($gmt<=0)?'+':'-',floor($zhrs),($zhrs-$hrs)*60); 1007 else 1008 return sprintf('%s%02d%02d',($gmt<0)?'+':'-',floor($zhrs),($zhrs-$hrs)*60); 1009} 1010 1011 1012function adodb_gmdate($fmt,$d=false) 1013{ 1014 return adodb_date($fmt,$d,true); 1015} 1016 1017// accepts unix timestamp and iso date format in $d 1018function adodb_date2($fmt, $d=false, $is_gmt=false) 1019{ 1020 if ($d !== false) { 1021 if (!preg_match( 1022 "|^([0-9]{4})[-/\.]?([0-9]{1,2})[-/\.]?([0-9]{1,2})[ -]?(([0-9]{1,2}):?([0-9]{1,2}):?([0-9\.]{1,4}))?|", 1023 ($d), $rr)) return adodb_date($fmt,false,$is_gmt); 1024 1025 if ($rr[1] <= 100 && $rr[2]<= 1) return adodb_date($fmt,false,$is_gmt); 1026 1027 // h-m-s-MM-DD-YY 1028 if (!isset($rr[5])) $d = adodb_mktime(0,0,0,$rr[2],$rr[3],$rr[1],false,$is_gmt); 1029 else $d = @adodb_mktime($rr[5],$rr[6],$rr[7],$rr[2],$rr[3],$rr[1],false,$is_gmt); 1030 } 1031 1032 return adodb_date($fmt,$d,$is_gmt); 1033} 1034 1035 1036/** 1037 Return formatted date based on timestamp $d 1038*/ 1039function adodb_date($fmt,$d=false,$is_gmt=false) 1040{ 1041static $daylight; 1042global $ADODB_DATETIME_CLASS; 1043 1044 if ($d === false) return ($is_gmt)? @gmdate($fmt): @date($fmt); 1045 if (!defined('ADODB_TEST_DATES')) { 1046 if ((abs($d) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range 1047 if (!defined('ADODB_NO_NEGATIVE_TS') || $d >= 0) // if windows, must be +ve integer 1048 return ($is_gmt)? @gmdate($fmt,$d): @date($fmt,$d); 1049 1050 } 1051 } 1052 $_day_power = 86400; 1053 1054 $arr = _adodb_getdate($d,true,$is_gmt); 1055 1056 if (!isset($daylight)) $daylight = function_exists('adodb_daylight_sv'); 1057 if ($daylight) adodb_daylight_sv($arr, $is_gmt); 1058 1059 $year = $arr['year']; 1060 $month = $arr['mon']; 1061 $day = $arr['mday']; 1062 $hour = $arr['hours']; 1063 $min = $arr['minutes']; 1064 $secs = $arr['seconds']; 1065 1066 $max = strlen($fmt); 1067 $dates = ''; 1068 1069 $isphp5 = PHP_VERSION >= 5; 1070 1071 /* 1072 at this point, we have the following integer vars to manipulate: 1073 $year, $month, $day, $hour, $min, $secs 1074 */ 1075 for ($i=0; $i < $max; $i++) { 1076 switch($fmt[$i]) { 1077 case 'e': 1078 $dates .= date('e'); 1079 break; 1080 case 'T': 1081 if ($ADODB_DATETIME_CLASS) { 1082 $dt = new DateTime(); 1083 $dt->SetDate($year,$month,$day); 1084 $dates .= $dt->Format('T'); 1085 } else 1086 $dates .= date('T'); 1087 break; 1088 // YEAR 1089 case 'L': $dates .= $arr['leap'] ? '1' : '0'; break; 1090 case 'r': // Thu, 21 Dec 2000 16:01:07 +0200 1091 1092 // 4.3.11 uses '04 Jun 2004' 1093 // 4.3.8 uses ' 4 Jun 2004' 1094 $dates .= gmdate('D',$_day_power*(3+adodb_dow($year,$month,$day))).', ' 1095 . ($day<10?'0'.$day:$day) . ' '.date('M',mktime(0,0,0,$month,2,1971)).' '.$year.' '; 1096 1097 if ($hour < 10) $dates .= '0'.$hour; else $dates .= $hour; 1098 1099 if ($min < 10) $dates .= ':0'.$min; else $dates .= ':'.$min; 1100 1101 if ($secs < 10) $dates .= ':0'.$secs; else $dates .= ':'.$secs; 1102 1103 $gmt = adodb_get_gmt_diff($year,$month,$day); 1104 1105 $dates .= ' '.adodb_tz_offset($gmt,$isphp5); 1106 break; 1107 1108 case 'Y': $dates .= $year; break; 1109 case 'y': $dates .= substr($year,strlen($year)-2,2); break; 1110 // MONTH 1111 case 'm': if ($month<10) $dates .= '0'.$month; else $dates .= $month; break; 1112 case 'Q': $dates .= ($month+3)>>2; break; 1113 case 'n': $dates .= $month; break; 1114 case 'M': $dates .= date('M',mktime(0,0,0,$month,2,1971)); break; 1115 case 'F': $dates .= date('F',mktime(0,0,0,$month,2,1971)); break; 1116 // DAY 1117 case 't': $dates .= $arr['ndays']; break; 1118 case 'z': $dates .= $arr['yday']; break; 1119 case 'w': $dates .= adodb_dow($year,$month,$day); break; 1120 case 'l': $dates .= gmdate('l',$_day_power*(3+adodb_dow($year,$month,$day))); break; 1121 case 'D': $dates .= gmdate('D',$_day_power*(3+adodb_dow($year,$month,$day))); break; 1122 case 'j': $dates .= $day; break; 1123 case 'd': if ($day<10) $dates .= '0'.$day; else $dates .= $day; break; 1124 case 'S': 1125 $d10 = $day % 10; 1126 if ($d10 == 1) $dates .= 'st'; 1127 else if ($d10 == 2 && $day != 12) $dates .= 'nd'; 1128 else if ($d10 == 3) $dates .= 'rd'; 1129 else $dates .= 'th'; 1130 break; 1131 1132 // HOUR 1133 case 'Z': 1134 $dates .= ($is_gmt) ? 0 : -adodb_get_gmt_diff($year,$month,$day); break; 1135 case 'O': 1136 $gmt = ($is_gmt) ? 0 : adodb_get_gmt_diff($year,$month,$day); 1137 1138 $dates .= adodb_tz_offset($gmt,$isphp5); 1139 break; 1140 1141 case 'H': 1142 if ($hour < 10) $dates .= '0'.$hour; 1143 else $dates .= $hour; 1144 break; 1145 case 'h': 1146 if ($hour > 12) $hh = $hour - 12; 1147 else { 1148 if ($hour == 0) $hh = '12'; 1149 else $hh = $hour; 1150 } 1151 1152 if ($hh < 10) $dates .= '0'.$hh; 1153 else $dates .= $hh; 1154 break; 1155 1156 case 'G': 1157 $dates .= $hour; 1158 break; 1159 1160 case 'g': 1161 if ($hour > 12) $hh = $hour - 12; 1162 else { 1163 if ($hour == 0) $hh = '12'; 1164 else $hh = $hour; 1165 } 1166 $dates .= $hh; 1167 break; 1168 // MINUTES 1169 case 'i': if ($min < 10) $dates .= '0'.$min; else $dates .= $min; break; 1170 // SECONDS 1171 case 'U': $dates .= $d; break; 1172 case 's': if ($secs < 10) $dates .= '0'.$secs; else $dates .= $secs; break; 1173 // AM/PM 1174 // Note 00:00 to 11:59 is AM, while 12:00 to 23:59 is PM 1175 case 'a': 1176 if ($hour>=12) $dates .= 'pm'; 1177 else $dates .= 'am'; 1178 break; 1179 case 'A': 1180 if ($hour>=12) $dates .= 'PM'; 1181 else $dates .= 'AM'; 1182 break; 1183 default: 1184 $dates .= $fmt[$i]; break; 1185 // ESCAPE 1186 case "\\": 1187 $i++; 1188 if ($i < $max) $dates .= $fmt[$i]; 1189 break; 1190 } 1191 } 1192 return $dates; 1193} 1194 1195/** 1196 Returns a timestamp given a GMT/UTC time. 1197 Note that $is_dst is not implemented and is ignored. 1198*/ 1199function adodb_gmmktime($hr,$min,$sec,$mon=false,$day=false,$year=false,$is_dst=false) 1200{ 1201 return adodb_mktime($hr,$min,$sec,$mon,$day,$year,$is_dst,true); 1202} 1203 1204/** 1205 Return a timestamp given a local time. Originally by jackbbs. 1206 Note that $is_dst is not implemented and is ignored. 1207 1208 Not a very fast algorithm - O(n) operation. Could be optimized to O(1). 1209*/ 1210function adodb_mktime($hr,$min,$sec,$mon=false,$day=false,$year=false,$is_dst=false,$is_gmt=false) 1211{ 1212 if (!defined('ADODB_TEST_DATES')) { 1213 1214 if ($mon === false) { 1215 return $is_gmt? @gmmktime($hr,$min,$sec): @mktime($hr,$min,$sec); 1216 } 1217 1218 // for windows, we don't check 1970 because with timezone differences, 1219 // 1 Jan 1970 could generate negative timestamp, which is illegal 1220 $usephpfns = (1970 < $year && $year < 2038 1221 || !defined('ADODB_NO_NEGATIVE_TS') && (1901 < $year && $year < 2038) 1222 ); 1223 1224 1225 if ($usephpfns && ($year + $mon/12+$day/365.25+$hr/(24*365.25) >= 2038)) $usephpfns = false; 1226 1227 if ($usephpfns) { 1228 return $is_gmt ? 1229 @gmmktime($hr,$min,$sec,$mon,$day,$year): 1230 @mktime($hr,$min,$sec,$mon,$day,$year); 1231 } 1232 } 1233 1234 $gmt_different = ($is_gmt) ? 0 : adodb_get_gmt_diff($year,$mon,$day); 1235 1236 /* 1237 # disabled because some people place large values in $sec. 1238 # however we need it for $mon because we use an array... 1239 $hr = intval($hr); 1240 $min = intval($min); 1241 $sec = intval($sec); 1242 */ 1243 $mon = intval($mon); 1244 $day = intval($day); 1245 $year = intval($year); 1246 1247 1248 $year = adodb_year_digit_check($year); 1249 1250 if ($mon > 12) { 1251 $y = floor(($mon-1)/ 12); 1252 $year += $y; 1253 $mon -= $y*12; 1254 } else if ($mon < 1) { 1255 $y = ceil((1-$mon) / 12); 1256 $year -= $y; 1257 $mon += $y*12; 1258 } 1259 1260 $_day_power = 86400; 1261 $_hour_power = 3600; 1262 $_min_power = 60; 1263 1264 $_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31); 1265 $_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31); 1266 1267 $_total_date = 0; 1268 if ($year >= 1970) { 1269 for ($a = 1970 ; $a <= $year; $a++) { 1270 $leaf = _adodb_is_leap_year($a); 1271 if ($leaf == true) { 1272 $loop_table = $_month_table_leaf; 1273 $_add_date = 366; 1274 } else { 1275 $loop_table = $_month_table_normal; 1276 $_add_date = 365; 1277 } 1278 if ($a < $year) { 1279 $_total_date += $_add_date; 1280 } else { 1281 for($b=1;$b<$mon;$b++) { 1282 $_total_date += $loop_table[$b]; 1283 } 1284 } 1285 } 1286 $_total_date +=$day-1; 1287 $ret = $_total_date * $_day_power + $hr * $_hour_power + $min * $_min_power + $sec + $gmt_different; 1288 1289 } else { 1290 for ($a = 1969 ; $a >= $year; $a--) { 1291 $leaf = _adodb_is_leap_year($a); 1292 if ($leaf == true) { 1293 $loop_table = $_month_table_leaf; 1294 $_add_date = 366; 1295 } else { 1296 $loop_table = $_month_table_normal; 1297 $_add_date = 365; 1298 } 1299 if ($a > $year) { $_total_date += $_add_date; 1300 } else { 1301 for($b=12;$b>$mon;$b--) { 1302 $_total_date += $loop_table[$b]; 1303 } 1304 } 1305 } 1306 $_total_date += $loop_table[$mon] - $day; 1307 1308 $_day_time = $hr * $_hour_power + $min * $_min_power + $sec; 1309 $_day_time = $_day_power - $_day_time; 1310 $ret = -( $_total_date * $_day_power + $_day_time - $gmt_different); 1311 if ($ret < -12220185600) $ret += 10*86400; // if earlier than 5 Oct 1582 - gregorian correction 1312 else if ($ret < -12219321600) $ret = -12219321600; // if in limbo, reset to 15 Oct 1582. 1313 } 1314 //print " dmy=$day/$mon/$year $hr:$min:$sec => " .$ret; 1315 return $ret; 1316} 1317 1318function adodb_gmstrftime($fmt, $ts=false) 1319{ 1320 return adodb_strftime($fmt,$ts,true); 1321} 1322 1323// hack - convert to adodb_date 1324function adodb_strftime($fmt, $ts=false,$is_gmt=false) 1325{ 1326global $ADODB_DATE_LOCALE; 1327 1328 if (!defined('ADODB_TEST_DATES')) { 1329 if ((abs($ts) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range 1330 if (!defined('ADODB_NO_NEGATIVE_TS') || $ts >= 0) // if windows, must be +ve integer 1331 return ($is_gmt)? @gmstrftime($fmt,$ts): @strftime($fmt,$ts); 1332 1333 } 1334 } 1335 1336 if (empty($ADODB_DATE_LOCALE)) { 1337 /* 1338 $tstr = strtoupper(gmstrftime('%c',31366800)); // 30 Dec 1970, 1 am 1339 $sep = substr($tstr,2,1); 1340 $hasAM = strrpos($tstr,'M') !== false; 1341 */ 1342 # see http://phplens.com/lens/lensforum/msgs.php?id=14865 for reasoning, and changelog for version 0.24 1343 $dstr = gmstrftime('%x',31366800); // 30 Dec 1970, 1 am 1344 $sep = substr($dstr,2,1); 1345 $tstr = strtoupper(gmstrftime('%X',31366800)); // 30 Dec 1970, 1 am 1346 $hasAM = strrpos($tstr,'M') !== false; 1347 1348 $ADODB_DATE_LOCALE = array(); 1349 $ADODB_DATE_LOCALE[] = strncmp($tstr,'30',2) == 0 ? 'd'.$sep.'m'.$sep.'y' : 'm'.$sep.'d'.$sep.'y'; 1350 $ADODB_DATE_LOCALE[] = ($hasAM) ? 'h:i:s a' : 'H:i:s'; 1351 1352 } 1353 $inpct = false; 1354 $fmtdate = ''; 1355 for ($i=0,$max = strlen($fmt); $i < $max; $i++) { 1356 $ch = $fmt[$i]; 1357 if ($ch == '%') { 1358 if ($inpct) { 1359 $fmtdate .= '%'; 1360 $inpct = false; 1361 } else 1362 $inpct = true; 1363 } else if ($inpct) { 1364 1365 $inpct = false; 1366 switch($ch) { 1367 case '0': 1368 case '1': 1369 case '2': 1370 case '3': 1371 case '4': 1372 case '5': 1373 case '6': 1374 case '7': 1375 case '8': 1376 case '9': 1377 case 'E': 1378 case 'O': 1379 /* ignore format modifiers */ 1380 $inpct = true; 1381 break; 1382 1383 case 'a': $fmtdate .= 'D'; break; 1384 case 'A': $fmtdate .= 'l'; break; 1385 case 'h': 1386 case 'b': $fmtdate .= 'M'; break; 1387 case 'B': $fmtdate .= 'F'; break; 1388 case 'c': $fmtdate .= $ADODB_DATE_LOCALE[0].$ADODB_DATE_LOCALE[1]; break; 1389 case 'C': $fmtdate .= '\C?'; break; // century 1390 case 'd': $fmtdate .= 'd'; break; 1391 case 'D': $fmtdate .= 'm/d/y'; break; 1392 case 'e': $fmtdate .= 'j'; break; 1393 case 'g': $fmtdate .= '\g?'; break; //? 1394 case 'G': $fmtdate .= '\G?'; break; //? 1395 case 'H': $fmtdate .= 'H'; break; 1396 case 'I': $fmtdate .= 'h'; break; 1397 case 'j': $fmtdate .= '?z'; $parsej = true; break; // wrong as j=1-based, z=0-basd 1398 case 'm': $fmtdate .= 'm'; break; 1399 case 'M': $fmtdate .= 'i'; break; 1400 case 'n': $fmtdate .= "\n"; break; 1401 case 'p': $fmtdate .= 'a'; break; 1402 case 'r': $fmtdate .= 'h:i:s a'; break; 1403 case 'R': $fmtdate .= 'H:i:s'; break; 1404 case 'S': $fmtdate .= 's'; break; 1405 case 't': $fmtdate .= "\t"; break; 1406 case 'T': $fmtdate .= 'H:i:s'; break; 1407 case 'u': $fmtdate .= '?u'; $parseu = true; break; // wrong strftime=1-based, date=0-based 1408 case 'U': $fmtdate .= '?U'; $parseU = true; break;// wrong strftime=1-based, date=0-based 1409 case 'x': $fmtdate .= $ADODB_DATE_LOCALE[0]; break; 1410 case 'X': $fmtdate .= $ADODB_DATE_LOCALE[1]; break; 1411 case 'w': $fmtdate .= '?w'; $parseu = true; break; // wrong strftime=1-based, date=0-based 1412 case 'W': $fmtdate .= '?W'; $parseU = true; break;// wrong strftime=1-based, date=0-based 1413 case 'y': $fmtdate .= 'y'; break; 1414 case 'Y': $fmtdate .= 'Y'; break; 1415 case 'Z': $fmtdate .= 'T'; break; 1416 } 1417 } else if (('A' <= ($ch) && ($ch) <= 'Z' ) || ('a' <= ($ch) && ($ch) <= 'z' )) 1418 $fmtdate .= "\\".$ch; 1419 else 1420 $fmtdate .= $ch; 1421 } 1422 //echo "fmt=",$fmtdate,"<br>"; 1423 if ($ts === false) $ts = time(); 1424 $ret = adodb_date($fmtdate, $ts, $is_gmt); 1425 return $ret; 1426} 1427 1428 1429?>