3 ADOdb Date Library, part of the ADOdb abstraction library
4 Download: http://php.weblogs.com/adodb_date_time_library
6 PHP native date functions use integer timestamps for computations.
7 Because of this, dates are restricted to the years 1901-2038 on Unix
8 and 1970-2038 on Windows due to integer overflow for dates beyond
9 those years. This library overcomes these limitations by replacing the
10 native function's signed integers (normally 32-bits) with PHP floating
11 point numbers (normally 64-bits).
13 Dates from 100 A.D. to 3000 A.D. and later
14 have been tested. The minimum is 100 A.D. as <100 will invoke the
15 2 => 4 digit year conversion. The maximum is billions of years in the
16 future, but this is a theoretical limit as the computation of that year
17 would take too long with the current implementation of adodb_mktime().
19 This library replaces native functions as follows:
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()
29 The parameters are identical, except that adodb_date() accepts a subset
30 of date()'s field formats. Mktime() will convert from local time to GMT,
31 and date() will convert from GMT to local time, but daylight savings is
32 not handled currently.
34 This library is independant of the rest of ADOdb, and can be used
39 For high speed, this library uses the native date functions where
40 possible, and only switches to PHP code when the dates fall outside
41 the 32-bit signed integer range.
45 Pope Gregory shortened October of A.D. 1582 by ten days. Thursday,
46 October 4, 1582 (Julian) was followed immediately by Friday, October 15,
49 Since 0.06, we handle this correctly, so:
51 adodb_mktime(0,0,0,10,15,1582) - adodb_mktime(0,0,0,10,4,1582)
54 =============================================================================
58 (c) 2003 John Lim and released under BSD-style license except for code by jackbbs,
59 which includes adodb_mktime, adodb_get_gmt_diff, adodb_is_leap_year
60 and originally found at http://www.php.net/manual/en/function.mktime.php
62 =============================================================================
66 These should be posted to the ADOdb forums at
68 http://phplens.com/lens/lensforum/topics.php?id=4
70 =============================================================================
74 FUNCTION adodb_getdate($date=false)
76 Returns an array containing date information, as getdate(), but supports
77 dates greater than 1901 to 2038.
79 FUNCTION adodb_date($fmt, $timestamp = false)
81 Convert a timestamp to a formatted local date. If $timestamp is not defined, the
82 current timestamp is used. Unlike the function date(), it supports dates
83 outside the 1901 to 2038 range.
85 The format fields that adodb_date supports:
90 d - day of the month, 2 digits with leading zeros; i.e. "01" to "31"
91 D - day of the week, textual, 3 letters; e.g. "Fri"
92 F - month, textual, long; e.g. "January"
93 g - hour, 12-hour format without leading zeros; i.e. "1" to "12"
94 G - hour, 24-hour format without leading zeros; i.e. "0" to "23"
95 h - hour, 12-hour format; i.e. "01" to "12"
96 H - hour, 24-hour format; i.e. "00" to "23"
97 i - minutes; i.e. "00" to "59"
98 j - day of the month without leading zeros; i.e. "1" to "31"
99 l (lowercase 'L') - day of the week, textual, long; e.g. "Friday"
100 L - boolean for whether it is a leap year; i.e. "0" or "1"
101 m - month; i.e. "01" to "12"
102 M - month, textual, 3 letters; e.g. "Jan"
103 n - month without leading zeros; i.e. "1" to "12"
104 O - Difference to Greenwich time in hours; e.g. "+0200"
105 Q - Quarter, as in 1, 2, 3, 4
106 r - RFC 822 formatted date; e.g. "Thu, 21 Dec 2000 16:01:07 +0200"
107 s - seconds; i.e. "00" to "59"
108 S - English ordinal suffix for the day of the month, 2 characters;
109 i.e. "st", "nd", "rd" or "th"
110 t - number of days in the given month; i.e. "28" to "31"
111 T - Timezone setting of this machine; e.g. "EST" or "MDT"
112 U - seconds since the Unix Epoch (January 1 1970 00:00:00 GMT)
113 w - day of the week, numeric, i.e. "0" (Sunday) to "6" (Saturday)
114 Y - year, 4 digits; e.g. "1999"
115 y - year, 2 digits; e.g. "99"
116 z - day of the year; i.e. "0" to "365"
117 Z - timezone offset in seconds (i.e. "-43200" to "43200").
118 The offset for timezones west of UTC is always negative,
119 and for those east of UTC is always positive.
124 B - Swatch Internet time
125 I (capital i) - "1" if Daylight Savings Time, "0" otherwise.
126 W - ISO-8601 week number of year, weeks starting on Monday
130 FUNCTION adodb_date2($fmt, $isoDateString = false)
131 Same as adodb_date, but 2nd parameter accepts iso date, eg.
133 adodb_date2('d-M-Y H:i','2003-12-25 13:01:34');
135 FUNCTION adodb_gmdate($fmt, $timestamp = false)
137 Convert a timestamp to a formatted GMT date. If $timestamp is not defined, the
138 current timestamp is used. Unlike the function date(), it supports dates
139 outside the 1901 to 2038 range.
141 FUNCTION adodb_mktime($hr, $min, $sec, $month, $day, $year)
143 Converts a local date to a unix timestamp. Unlike the function mktime(), it supports
144 dates outside the 1901 to 2038 range. Differs from mktime() in that all parameters
145 are currently compulsory.
147 FUNCTION adodb_gmmktime($hr, $min, $sec, $month, $day, $year)
149 Converts a gmt date to a unix timestamp. Unlike the function gmmktime(), it supports
150 dates outside the 1901 to 2038 range. Differs from gmmktime() in that all parameters
151 are currently compulsory.
153 =============================================================================
157 Useful url for generating test timestamps:
158 http://www.4webhelp.net/us/timestamp.php
160 Possible future optimizations include
162 a. Using an algorithm similar to Plauger's in "The Standard C Library"
163 (page 428, xttotm.c _Ttotm() function). Plauger's algorithm will not
164 work outside 32-bit signed range, so i decided not to implement it.
166 b. Iterate over a block of years (say 12) when searching for the
169 c. Implement daylight savings, which looks awfully complicated, see
170 http://webexhibits.org/daylightsaving/
174 Fixed month calculation error in adodb_date. 2102-June-01 appeared as 2102-May-32.
177 Because of daylight savings problems (some systems apply daylight savings to
178 January!!!), changed adodb_get_gmt_diff() to ignore daylight savings.
181 Fixed bug with dates after 2038.
182 See http://phplens.com/lens/lensforum/msgs.php?id=6980
185 Added support for Q (Quarter).
186 Added adodb_date2(), which accepts ISO date in 2nd param
189 Added support for 'S' adodb_date() format char. Added constant ADODB_ALLOW_NEGATIVE_TS
190 if you want PHP to handle negative timestamps between 1901 to 1969.
193 All negative numbers handled by adodb now because of RH 7.3+ problems.
194 See http://bugs.php.net/bug.php?id=20048&edit=2
197 Fixed a typo, 1852 changed to 1582! This means that pre-1852 dates
198 are now correctly handled.
202 Leap year checking differs under Julian calendar (pre 1582). Also
203 leap year code optimized by checking for most common case first.
205 We also handle month overflow correctly in mktime (eg month set to 13).
207 Day overflow for less than one month's days is supported.
211 Gregorian correction handled. In PHP5, we might throw an error if
212 mktime uses invalid dates around 5-14 Oct 1582. Released with ADOdb 3.10.
213 Added limbo 5-14 Oct 1582 check, when we set to 15 Oct 1582.
217 Fixed some more month problems due to gmt issues. Added constant ADODB_DATE_VERSION.
218 Fixed calculation of days since start of year for <1970.
222 Changed _adodb_getdate() to inline leap year checking for better performance.
223 Fixed problem with time-zones west of GMT +0000.
227 First implementation.
236 define('ADODB_DATE_VERSION',0.12);
239 We check for Windows as only +ve ints are accepted as dates on Windows.
241 Apparently this problem happens also with Linux, RH 7.3 and later!
243 glibc-2.2.5-34 and greater has been changed to return -1 for dates <
244 1970. This used to work. The problem exists with RedHat 7.3 and 8.0
245 echo (mktime(0, 0, 0, 1, 1, 1960)); // prints -1
248 http://bugs.php.net/bug.php?id=20048&edit=2
249 http://lists.debian.org/debian-glibc/2002/debian-glibc-200205/msg00010.html
252 if (!defined('ADODB_ALLOW_NEGATIVE_TS')) define('ADODB_NO_NEGATIVE_TS',1);
254 function adodb_date_test_date($y1,$m)
257 $t = adodb_mktime(0,0,0,$m,13,$y1);
258 if ("$y1-$m-13 00:00:00" != adodb_date('Y-n-d H:i:s',$t)) {
259 print "<b>$y1 error</b><br>";
267 function adodb_date_test()
270 error_reporting(E_ALL);
271 print "<h4>Testing adodb_date and adodb_mktime. version=".ADODB_DATE_VERSION. "</h4>";
275 // This flag disables calling of PHP native functions, so we can properly test the code
276 if (!defined('ADODB_TEST_DATES')) define('ADODB_TEST_DATES',1);
278 $t = adodb_mktime(0,0,0,6,1,2102);
279 if (!(adodb_date('Y-m-d',$t) == '2102-06-01')) print 'Error in '.adodb_date('Y-m-d',$t).'<br>';
281 $t = adodb_mktime(0,0,0,2,1,2102);
282 if (!(adodb_date('Y-m-d',$t) == '2102-02-01')) print 'Error in '.adodb_date('Y-m-d',$t).'<br>';
285 print "<p>Testing gregorian <=> julian conversion<p>";
286 $t = adodb_mktime(0,0,0,10,11,1492);
287 //http://www.holidayorigins.com/html/columbus_day.html - Friday check
288 if (!(adodb_date('D Y-m-d',$t) == 'Fri 1492-10-11')) print 'Error in Columbus landing<br>';
290 $t = adodb_mktime(0,0,0,2,29,1500);
291 if (!(adodb_date('Y-m-d',$t) == '1500-02-29')) print 'Error in julian leap years<br>';
293 $t = adodb_mktime(0,0,0,2,29,1700);
294 if (!(adodb_date('Y-m-d',$t) == '1700-03-01')) print 'Error in gregorian leap years<br>';
296 print adodb_mktime(0,0,0,10,4,1582).' ';
297 print adodb_mktime(0,0,0,10,15,1582);
298 $diff = (adodb_mktime(0,0,0,10,15,1582) - adodb_mktime(0,0,0,10,4,1582));
299 if ($diff != 3600*24) print " <b>Error in gregorian correction = ".($diff/3600/24)." days </b><br>";
301 print " 15 Oct 1582, Fri=".(adodb_dow(1582,10,15) == 5 ? 'Fri' : '<b>Error</b>')."<br>";
302 print " 4 Oct 1582, Thu=".(adodb_dow(1582,10,4) == 4 ? 'Thu' : '<b>Error</b>')."<br>";
304 print "<p>Testing overflow<p>";
306 $t = adodb_mktime(0,0,0,3,33,1965);
307 if (!(adodb_date('Y-m-d',$t) == '1965-04-02')) print 'Error in day overflow 1 <br>';
308 $t = adodb_mktime(0,0,0,4,33,1971);
309 if (!(adodb_date('Y-m-d',$t) == '1971-05-03')) print 'Error in day overflow 2 <br>';
310 $t = adodb_mktime(0,0,0,1,60,1965);
311 if (!(adodb_date('Y-m-d',$t) == '1965-03-01')) print 'Error in day overflow 3 '.adodb_date('Y-m-d',$t).' <br>';
312 $t = adodb_mktime(0,0,0,12,32,1965);
313 if (!(adodb_date('Y-m-d',$t) == '1966-01-01')) print 'Error in day overflow 4 '.adodb_date('Y-m-d',$t).' <br>';
314 $t = adodb_mktime(0,0,0,12,63,1965);
315 if (!(adodb_date('Y-m-d',$t) == '1966-02-01')) print 'Error in day overflow 5 '.adodb_date('Y-m-d',$t).' <br>';
316 $t = adodb_mktime(0,0,0,13,3,1965);
317 if (!(adodb_date('Y-m-d',$t) == '1966-01-03')) print 'Error in mth overflow 1 <br>';
319 print "Testing 2-digit => 4-digit year conversion<p>";
320 if (adodb_year_digit_check(00) != 2000) print "Err 2-digit 2000<br>";
321 if (adodb_year_digit_check(10) != 2010) print "Err 2-digit 2010<br>";
322 if (adodb_year_digit_check(20) != 2020) print "Err 2-digit 2020<br>";
323 if (adodb_year_digit_check(30) != 2030) print "Err 2-digit 2030<br>";
324 if (adodb_year_digit_check(40) != 1940) print "Err 2-digit 1940<br>";
325 if (adodb_year_digit_check(50) != 1950) print "Err 2-digit 1950<br>";
326 if (adodb_year_digit_check(90) != 1990) print "Err 2-digit 1990<br>";
328 // Test string formating
329 print "<p>Testing date formating</p>";
330 $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\C822 r s t U w y Y z Z 2003';
332 $s2 = adodb_date($fmt,0);
334 print " date() 0 failed<br>$s1<br>$s2<br>";
337 for ($i=100; --$i > 0; ) {
339 $ts = 3600.0*((rand()%60000)+(rand()%60000))+(rand()%60000);
340 $s1 = date($fmt,$ts);
341 $s2 = adodb_date($fmt,$ts);
342 //print "$s1 <br>$s2 <p>";
343 $pos = strcmp($s1,$s2);
345 if (($s1) != ($s2)) {
346 for ($j=0,$k=strlen($s1); $j < $k; $j++) {
347 if ($s1[$j] != $s2[$j]) {
348 print substr($s1,$j).' ';
352 print "<b>Error date(): $ts<br><pre>
353 \"$s1\" (date len=".strlen($s1).")
354 \"$s2\" (adodb_date len=".strlen($s2).")</b></pre><br>";
359 $a2 = adodb_getdate($ts);
360 $rez = array_diff($a1,$a2);
361 if (sizeof($rez)>0) {
362 print "<b>Error getdate() $ts</b><br>";
371 // Test generation of dates outside 1901-2038
372 print "<p>Testing random dates between 100 and 4000</p>";
373 adodb_date_test_date(100,1);
374 for ($i=100; --$i >= 0;) {
375 $y1 = 100+rand(0,1970-100);
377 adodb_date_test_date($y1,$m);
379 $y1 = 3000-rand(0,3000-1970);
380 adodb_date_test_date($y1,$m);
383 $start = 1960+rand(0,10);
385 $i = 365.25*86400*($start-1970);
386 $offset = 36000+rand(10000,60000);
387 $max = 365*$yrs*86400;
390 // we generate a timestamp, convert it to a date, and convert it back to a timestamp
391 // and check if the roundtrip broke the original timestamp value.
392 print "Testing $start to ".($start+$yrs).", or $max seconds, offset=$offset: ";
394 for ($max += $i; $i < $max; $i += $offset) {
395 $ret = adodb_date('m,d,Y,H,i,s',$i);
396 $arr = explode(',',$ret);
397 if ($lastyear != $arr[2]) {
402 $newi = adodb_mktime($arr[3],$arr[4],$arr[5],$arr[0],$arr[1],$arr[2]);
404 print "Error at $i, adodb_mktime returned $newi ($ret)";
410 if (!$fail) print "<p>Passed !</p>";
411 else print "<p><b>Failed</b> :-(</p>";
415 Returns day of week, 0 = Sunday,... 6=Saturday.
416 Algorithm from PEAR::Date_Calc
418 function adodb_dow($year, $month, $day)
421 Pope Gregory removed 10 days - October 5 to October 14 - from the year 1582 and
422 proclaimed that from that time onwards 3 days would be dropped from the calendar
425 Thursday, October 4, 1582 (Julian) was followed immediately by Friday, October 15, 1582 (Gregorian).
429 ($year == 1582 && ($month < 10 || ($month == 10 && $day < 15)))) $greg_correction = 3;
431 $greg_correction = 0;
433 $greg_correction = 0;
442 $day = ( floor((13 * $month - 1) / 5) +
443 $day + ($year % 100) +
444 floor(($year % 100) / 4) +
445 floor(($year / 100) / 4) - 2 *
446 floor($year / 100) + 77);
448 return (($day - 7 * floor($day / 7))) + $greg_correction;
453 Checks for leap year, returns true if it is. No 2-digit year check. Also
454 handles julian calendar correctly.
456 function _adodb_is_leap_year($year)
458 if ($year % 4 != 0) return false;
460 if ($year % 400 == 0) {
462 // if gregorian calendar (>1582), century not-divisible by 400 is not leap
463 } else if ($year > 1582 && $year % 100 == 0 ) {
471 checks for leap year, returns true if it is. Has 2-digit year check
473 function adodb_is_leap_year($year)
475 return _adodb_is_leap_year(adodb_year_digit_check($year));
479 Fix 2-digit years. Works for any century.
480 Assumes that if 2-digit is more than 30 years in future, then previous century.
482 function adodb_year_digit_check($y)
486 $yr = (integer) date("Y");
487 $century = (integer) ($yr /100);
497 // if 2-digit year is less than 30 years in future, set it to this century
498 // otherwise if more than 30 years in future, then we set 2-digit year to the prev century.
499 if (($y + $c1) < $yr+30) $y = $y + $c1;
500 else $y = $y + $c0*100;
506 get local time zone offset from GMT
508 function adodb_get_gmt_diff()
511 if (isset($TZ)) return $TZ;
513 $TZ = mktime(0,0,0,1,2,1970,0) - gmmktime(0,0,0,1,2,1970,0);
518 Returns an array with date info.
520 function adodb_getdate($d=false,$fast=false)
522 if ($d === false) return getdate();
523 if (!defined('ADODB_TEST_DATES')) {
524 if ((abs($d) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range
525 if (!defined('ADODB_NO_NEGATIVE_TS') || $d >= 0) // if windows, must be +ve integer
529 return _adodb_getdate($d);
533 Low-level function that returns the getdate() array. We have a special
534 $fast flag, which if set to true, will return fewer array values,
535 and is much faster as it does not calculate dow, etc.
537 function _adodb_getdate($origd=false,$fast=false,$is_gmt=false)
539 $d = $origd - ($is_gmt ? 0 : adodb_get_gmt_diff());
545 if ($d < -12219321600) $d -= 86400*10; // if 15 Oct 1582 or earlier, gregorian correction
547 $_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31);
548 $_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31);
552 // The valid range of a 32bit signed timestamp is typically from
553 // Fri, 13 Dec 1901 20:45:54 GMT to Tue, 19 Jan 2038 03:14:07 GMT
554 for ($a = 1970 ; --$a >= 0;) {
557 if ($leaf = _adodb_is_leap_year($a)) {
558 $d += $_day_power * 366;
560 $d += $_day_power * 365;
567 $secsInYear = 86400 * ($leaf ? 366 : 365) + $lastd;
570 $mtab = ($leaf) ? $_month_table_leaf : $_month_table_normal;
571 for ($a = 13 ; --$a > 0;) {
573 $d += $mtab[$a] * $_day_power;
582 $day = $ndays + ceil(($d+1) / ($_day_power));
584 $d += ($ndays - $day+1)* $_day_power;
585 $hour = floor($d/$_hour_power);
589 for ($a = 1970 ;; $a++) {
592 if ($leaf = _adodb_is_leap_year($a)) {
593 $d -= $_day_power * 366;
595 $d -= $_day_power * 365;
601 $secsInYear = $lastd;
603 $mtab = ($leaf) ? $_month_table_leaf : $_month_table_normal;
604 for ($a = 1 ; $a <= 12; $a++) {
606 $d -= $mtab[$a] * $_day_power;
614 $day = ceil(($d+1) / $_day_power);
615 $d = $d - ($day-1) * $_day_power;
616 $hour = floor($d /$_hour_power);
619 $d -= $hour * $_hour_power;
620 $min = floor($d/$_min_power);
621 $secs = $d - $min * $_min_power;
630 'yday' => floor($secsInYear/$_day_power),
637 $dow = adodb_dow($year,$month,$day);
647 'yday' => floor($secsInYear/$_day_power),
648 'weekday' => gmdate('l',$_day_power*(3+$dow)),
649 'month' => gmdate('F',mktime(0,0,0,$month,2,1971)),
654 function adodb_gmdate($fmt,$d=false)
656 return adodb_date($fmt,$d,true);
659 function adodb_date2($fmt, $d=false, $is_gmt=false)
663 "|^([0-9]{4})[-/\.]?([0-9]{1,2})[-/\.]?([0-9]{1,2})[ -]?(([0-9]{1,2}):?([0-9]{1,2}):?([0-9\.]{1,4}))?|",
664 ($d), $rr)) return adodb_date($fmt,false,$is_gmt);
666 if ($rr[1] <= 100 && $rr[2]<= 1) return adodb_date($fmt,false,$is_gmt);
669 if (!isset($rr[5])) $d = adodb_mktime(0,0,0,$rr[2],$rr[3],$rr[1]);
670 else $d = @adodb_mktime($rr[5],$rr[6],$rr[7],$rr[2],$rr[3],$rr[1]);
673 return adodb_date($fmt,$d,$is_gmt);
677 Return formatted date based on timestamp $d
679 function adodb_date($fmt,$d=false,$is_gmt=false)
681 if ($d === false) return date($fmt);
682 if (!defined('ADODB_TEST_DATES')) {
683 if ((abs($d) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range
684 if (!defined('ADODB_NO_NEGATIVE_TS') || $d >= 0) // if windows, must be +ve integer
685 return @date($fmt,$d);
690 $arr = _adodb_getdate($d,true,$is_gmt);
691 $year = $arr['year'];
692 $month = $arr['mon'];
694 $hour = $arr['hours'];
695 $min = $arr['minutes'];
696 $secs = $arr['seconds'];
702 at this point, we have the following integer vars to manipulate:
703 $year, $month, $day, $hour, $min, $secs
705 for ($i=0; $i < $max; $i++) {
707 case 'T': $dates .= date('T');break;
709 case 'L': $dates .= $arr['leap'] ? '1' : '0'; break;
710 case 'r': // Thu, 21 Dec 2000 16:01:07 +0200
712 $dates .= gmdate('D',$_day_power*(3+adodb_dow($year,$month,$day))).', '
713 . ($day<10?' '.$day:$day) . ' '.date('M',mktime(0,0,0,$month,2,1971)).' '.$year.' ';
715 if ($hour < 10) $dates .= '0'.$hour; else $dates .= $hour;
717 if ($min < 10) $dates .= ':0'.$min; else $dates .= ':'.$min;
719 if ($secs < 10) $dates .= ':0'.$secs; else $dates .= ':'.$secs;
721 $gmt = adodb_get_gmt_diff();
722 $dates .= sprintf(' %s%04d',($gmt<0)?'+':'-',abs($gmt)/36); break;
724 case 'Y': $dates .= $year; break;
725 case 'y': $dates .= substr($year,strlen($year)-2,2); break;
727 case 'm': if ($month<10) $dates .= '0'.$month; else $dates .= $month; break;
728 case 'Q': $dates .= ($month+3)>>2; break;
729 case 'n': $dates .= $month; break;
730 case 'M': $dates .= date('M',mktime(0,0,0,$month,2,1971)); break;
731 case 'F': $dates .= date('F',mktime(0,0,0,$month,2,1971)); break;
733 case 't': $dates .= $arr['ndays']; break;
734 case 'z': $dates .= $arr['yday']; break;
735 case 'w': $dates .= adodb_dow($year,$month,$day); break;
736 case 'l': $dates .= gmdate('l',$_day_power*(3+adodb_dow($year,$month,$day))); break;
737 case 'D': $dates .= gmdate('D',$_day_power*(3+adodb_dow($year,$month,$day))); break;
738 case 'j': $dates .= $day; break;
739 case 'd': if ($day<10) $dates .= '0'.$day; else $dates .= $day; break;
742 if ($d10 == 1) $dates .= 'st';
743 else if ($d10 == 2) $dates .= 'nd';
744 else if ($d10 == 3) $dates .= 'rd';
750 $dates .= ($is_gmt) ? 0 : -adodb_get_gmt_diff(); break;
752 $gmt = ($is_gmt) ? 0 : adodb_get_gmt_diff();
753 $dates .= sprintf('%s%04d',($gmt<0)?'+':'-',abs($gmt)/36); break;
756 if ($hour < 10) $dates .= '0'.$hour;
757 else $dates .= $hour;
760 if ($hour > 12) $hh = $hour - 12;
762 if ($hour == 0) $hh = '12';
766 if ($hh < 10) $dates .= '0'.$hh;
775 if ($hour > 12) $hh = $hour - 12;
777 if ($hour == 0) $hh = '12';
783 case 'i': if ($min < 10) $dates .= '0'.$min; else $dates .= $min; break;
785 case 'U': $dates .= $d; break;
786 case 's': if ($secs < 10) $dates .= '0'.$secs; else $dates .= $secs; break;
788 // Note 00:00 to 11:59 is AM, while 12:00 to 23:59 is PM
790 if ($hour>=12) $dates .= 'pm';
794 if ($hour>=12) $dates .= 'PM';
798 $dates .= $fmt[$i]; break;
802 if ($i < $max) $dates .= $fmt[$i];
810 Returns a timestamp given a GMT/UTC time.
811 Note that $is_dst is not implemented and is ignored.
813 function adodb_gmmktime($hr,$min,$sec,$mon,$day,$year,$is_dst=false)
815 return adodb_mktime($hr,$min,$sec,$mon,$day,$year,$is_dst,true);
819 Return a timestamp given a local time. Originally by jackbbs.
820 Note that $is_dst is not implemented and is ignored.
822 function adodb_mktime($hr,$min,$sec,$mon,$day,$year,$is_dst=false,$is_gmt=false)
824 if (!defined('ADODB_TEST_DATES')) {
825 // for windows, we don't check 1970 because with timezone differences,
826 // 1 Jan 1970 could generate negative timestamp, which is illegal
827 if (!defined('ADODB_NO_NEGATIVE_TS') || ($year >= 1971))
828 if (1901 < $year && $year < 2038)
829 return @mktime($hr,$min,$sec,$mon,$day,$year);
832 $gmt_different = ($is_gmt) ? 0 : adodb_get_gmt_diff();
839 $year = intval($year);
841 $year = adodb_year_digit_check($year);
844 $y = floor($mon / 12);
853 $_month_table_normal = array("",31,28,31,30,31,30,31,31,30,31,30,31);
854 $_month_table_leaf = array("",31,29,31,30,31,30,31,31,30,31,30,31);
858 for ($a = 1970 ; $a <= $year; $a++) {
859 $leaf = _adodb_is_leap_year($a);
861 $loop_table = $_month_table_leaf;
864 $loop_table = $_month_table_normal;
868 $_total_date += $_add_date;
870 for($b=1;$b<$mon;$b++) {
871 $_total_date += $loop_table[$b];
875 $_total_date +=$day-1;
876 $ret = $_total_date * $_day_power + $hr * $_hour_power + $min * $_min_power + $sec + $gmt_different;
879 for ($a = 1969 ; $a >= $year; $a--) {
880 $leaf = _adodb_is_leap_year($a);
882 $loop_table = $_month_table_leaf;
885 $loop_table = $_month_table_normal;
888 if ($a > $year) { $_total_date += $_add_date;
890 for($b=12;$b>$mon;$b--) {
891 $_total_date += $loop_table[$b];
895 $_total_date += $loop_table[$mon] - $day;
897 $_day_time = $hr * $_hour_power + $min * $_min_power + $sec;
898 $_day_time = $_day_power - $_day_time;
899 $ret = -( $_total_date * $_day_power + $_day_time - $gmt_different);
900 if ($ret < -12220185600) $ret += 10*86400; // if earlier than 5 Oct 1582 - gregorian correction
901 else if ($ret < -12219321600) $ret = -12219321600; // if in limbo, reset to 15 Oct 1582.
903 //print " dmy=$day/$mon/$year $hr:$min:$sec => " .$ret;