?  search:
summary | log | graphiclog1 | graphiclog2 | refs | edit | fork

57398335c85c96519084e57e767e75cb5b0c1765
[openemr.git] / interface / main / calendar / modules / PostCalendar / pnincludes / Date / Calc.php
blob57398335c85c96519084e57e767e75cb5b0c1765
1 <?php
2
3 // The constant telling us what day starts the week. Monday (1) is the
4 // international standard. Redefine this to 0 if you want weeks to
5 // begin on Sunday.
6 //define('DATE_CALC_BEGIN_WEEKDAY', 1);
7
8 /**
9 * Date_Calc is a calendar class used to calculate and
10 * manipulate calendar dates and retrieve dates in a calendar
11 * format. It does not rely on 32-bit system date stamps, so
12 * you can display calendars and compare dates that date
13 * pre 1970 and post 2038.
14 *
15 * This source file is subject to version 2.02 of the PHP license,
16 * that is bundled with this package in the file LICENSE, and is
17 * available at through the world-wide-web at
18 * http://www.php.net/license/2_02.txt.
19 * If you did not receive a copy of the PHP license and are unable to
20 * obtain it through the world-wide-web, please send a note to
21 * license@php.net so we can mail you a copy immediately.
22 *
23 * Copyright (c) 1999, 2000 ispi
24 *
25 * @access public
26 *
27 * @version 1.2.5
28 * @author Monte Ohrt <monte@ispi.net>
29 */
30
31 class Date_Calc {
32
33 /**
34 * Returns the current local date. NOTE: This function
35 * retrieves the local date using strftime(), which may
36 * or may not be 32-bit safe on your system.
37 *
38 * @param string the strftime() format to return the date
39 *
40 * @access public
41 *
42 * @return string the current date in specified format
43 */
44
45 function dateNow($format="%Y%m%d")
46 {
47 return(strftime($format,time()));
48
49 } // end func dateNow
50
51 /**
52 * Returns true for valid date, false for invalid date.
53 *
54 * @param string year in format CCYY
55 * @param string month in format MM
56 * @param string day in format DD
57 *
58 * @access public
59 *
60 * @return boolean true/false
61 */
62
63 function isValidDate($day, $month, $year)
64 {
65
66 if(empty($year) || empty($month) || empty($day))
67 return false;
68
69 // must be digits only
70 if(preg_match("/\D/",$year))
71 return false;
72 if(preg_match("/\D/",$month))
73 return false;
74 if(preg_match("/\D/",$day))
75 return false;
76
77 if($year < 0 || $year > 9999)
78 return false;
79 if($month < 1 || $month > 12)
80 return false;
81 if($day < 1 || $day > 31 || $day > Date_Calc::daysInMonth($month,$year))
82 return false;
83
84 return true;
85
86 } // end func isValidDate
87
88 function isLeapYear($year="")
89 {
90
91 if(empty($year))
92 $year = Date_Calc::dateNow("%Y");
93
94 if(strlen($year) != 4)
95 return false;
96
97 if(preg_match("/\D/",$year))
98 return false;
99
100 return (($year % 4 == 0 && $year % 100 != 0) || $year % 400 == 0);
101
102 } // end func isLeapYear
103
104 /**
105 * Determines if given date is a future date from now.
106 *
107 * @param string year in format CCYY
108 * @param string month in format MM
109 * @param string day in format DD
110 *
111 * @access public
112 *
113 * @return boolean true/false
114 */
115
116 function isFutureDate($day,$month,$year)
117 {
118 $this_year = Date_Calc::dateNow("%Y");
119 $this_month = Date_Calc::dateNow("%m");
120 $this_day = Date_Calc::dateNow("%d");
121
122
123 if($year > $this_year)
124 return true;
125 elseif($year == $this_year)
126 if($month > $this_month)
127 return true;
128 elseif($month == $this_month)
129 if($day > $this_day)
130 return true;
131
132 return false;
133
134 } // end func isFutureDate
135
136 /**
137 * Determines if given date is a past date from now.
138 *
139 * @param string year in format CCYY
140 * @param string month in format MM
141 * @param string day in format DD
142 *
143 * @access public
144 *
145 * @return boolean true/false
146 */
147
148 function isPastDate($day,$month,$year)
149 {
150 $this_year = Date_Calc::dateNow("%Y");
151 $this_month = Date_Calc::dateNow("%m");
152 $this_day = Date_Calc::dateNow("%d");
153
154
155 if($year < $this_year)
156 return true;
157 elseif($year == $this_year)
158 if($month < $this_month)
159 return true;
160 elseif($month == $this_month)
161 if($day < $this_day)
162 return true;
163
164 return false;
165
166 } // end func isPastDate
167
168 /**
169 * Returns day of week for given date, 0=Sunday
170 *
171 * @param string year in format CCYY, default is current local year
172 * @param string month in format MM, default is current local month
173 * @param string day in format DD, default is current local day
174 *
175 * @access public
176 *
177 * @return int $weekday_number
178 */
179
180 function dayOfWeek($day="",$month="",$year="")
181 {
182
183 if(empty($year))
184 $year = Date_Calc::dateNow("%Y");
185 if(empty($month))
186 $month = Date_Calc::dateNow("%m");
187 if(empty($day))
188 $day = Date_Calc::dateNow("%d");
189
190 if($month > 2)
191 $month -= 2;
192 else
193 {
194 $month += 10;
195 $year--;
196 }
197
198 $day = ( floor((13 * $month - 1) / 5) +
199 $day + ($year % 100) +
200 floor(($year % 100) / 4) +
201 floor(($year / 100) / 4) - 2 *
202 floor($year / 100) + 77);
203
204 $weekday_number = (($day - 7 * floor($day / 7)));
205
206 return $weekday_number;
207
208 } // end func dayOfWeek
209
210 /**
211 * Returns week of the year, first Sunday is first day of first week
212 *
213 * @param string day in format DD
214 * @param string month in format MM
215 * @param string year in format CCYY
216 *
217 * @access public
218 *
219 * @return integer $week_number
220 */
221
222 function weekOfYear($day,$month,$year)
223 {
224 if(empty($year))
225 $year = Date_Calc::dateNow("%Y");
226 if(empty($month))
227 $month = Date_Calc::dateNow("%m");
228 if(empty($day))
229 $day = Date_Calc::dateNow("%d");
230
231 $week_year = $year - 1501;
232 $week_day = $week_year * 365 + floor($week_year / 4) - 29872 + 1
233 - floor($week_year / 100) + floor(($week_year - 300) / 400);
234
235 $week_number =
236 ceil((Date_Calc::julianDate($day,$month,$year) + floor(($week_day + 4) % 7)) / 7);
237
238 return $week_number;
239
240 } // end func weekOfYear
241
242 /**
243 * Returns number of days since 31 December of year before given date.
244 *
245 * @param string year in format CCYY, default is current local year
246 * @param string month in format MM, default is current local month
247 * @param string day in format DD, default is current local day
248 *
249 * @access public
250 *
251 * @return int $julian
252 */
253
254 function julianDate($day="",$month="",$year="")
255 {
256 if(empty($year))
257 $year = Date_Calc::dateNow("%Y");
258 if(empty($month))
259 $month = Date_Calc::dateNow("%m");
260 if(empty($day))
261 $day = Date_Calc::dateNow("%d");
262
263 $days = array(0,31,59,90,120,151,181,212,243,273,304,334);
264
265 $julian = ($days[$month - 1] + $day);
266
267 if($month > 2 && Date_Calc::isLeapYear($year))
268 $julian++;
269
270 return($julian);
271
272 } // end func julianDate
273
274 /**
275 * Returns quarter of the year for given date
276 *
277 * @param string year in format CCYY, default current local year
278 * @param string month in format MM, default current local month
279 * @param string day in format DD, default current local day
280 *
281 * @access public
282 *
283 * @return int $year_quarter
284 */
285
286 function quarterOfYear($day="",$month="",$year="")
287 {
288 if(empty($year))
289 $year = Date_Calc::dateNow("%Y");
290 if(empty($month))
291 $month = Date_Calc::dateNow("%m");
292 if(empty($day))
293 $day = Date_Calc::dateNow("%d");
294
295 $year_quarter = (intval(($month - 1) / 3 + 1));
296
297 return $year_quarter;
298
299 } // end func quarterOfYear
300
301 /**
302 * Returns date of begin of next month of given date.
303 *
304 * @param string year in format CCYY, default current local year
305 * @param string month in format MM, default current local month
306 * @param string day in format DD, default current local day
307 * @param string format for returned date
308 *
309 * @access public
310 *
311 * @return string date in given format
312 */
313
314 function beginOfNextMonth($day="",$month="",$year="",$format="%Y%m%d")
315 {
316 if(empty($year))
317 $year = Date_Calc::dateNow("%Y");
318 if(empty($month))
319 $month = Date_Calc::dateNow("%m");
320 if(empty($day))
321 $day = Date_Calc::dateNow("%d");
322
323 if($month < 12)
324 {
325 $month++;
326 $day=1;
327 }
328 else
329 {
330 $year++;
331 $month=1;
332 $day=1;
333 }
334
335 return Date_Calc::dateFormat($day,$month,$year,$format);
336
337 } // end func beginOfNextMonth
338
339 /**
340 * Returns date of the last day of next month of given date.
341 *
342 * @param string year in format CCYY, default current local year
343 * @param string month in format MM, default current local month
344 * @param string day in format DD, default current local day
345 * @param string format for returned date
346 *
347 * @access public
348 *
349 * @return string date in given format
350 */
351
352 function endOfNextMonth($day="",$month="",$year="",$format="%Y%m%d")
353 {
354 if(empty($year))
355 $year = Date_Calc::dateNow("%Y");
356 if(empty($month))
357 $month = Date_Calc::dateNow("%m");
358 if(empty($day))
359 $day = Date_Calc::dateNow("%d");
360
361
362 if($month < 12)
363 {
364 $month++;
365 }
366 else
367 {
368 $year++;
369 $month=1;
370 }
371
372 $day = Date_Calc::daysInMonth($month,$year);
373
374 return Date_Calc::dateFormat($day,$month,$year,$format);
375
376 } // end func endOfNextMonth
377
378 /**
379 * Returns date of the first day of previous month of given date.
380 *
381 * @param string year in format CCYY, default current local year
382 * @param string month in format MM, default current local month
383 * @param string day in format DD, default current local day
384 * @param string format for returned date
385 *
386 * @access public
387 *
388 * @return string date in given format
389 */
390
391 function beginOfPrevMonth($day="",$month="",$year="",$format="%Y%m%d")
392 {
393 if(empty($year))
394 $year = Date_Calc::dateNow("%Y");
395 if(empty($month))
396 $month = Date_Calc::dateNow("%m");
397 if(empty($day))
398 $day = Date_Calc::dateNow("%d");
399
400 if($month > 1)
401 {
402 $month--;
403 $day=1;
404 }
405 else
406 {
407 $year--;
408 $month=12;
409 $day=1;
410 }
411
412 return Date_Calc::dateFormat($day,$month,$year,$format);
413
414 } // end func beginOfPrevMonth
415
416 /**
417 * Returns date of the last day of previous month for given date.
418 *
419 * @param string year in format CCYY, default current local year
420 * @param string month in format MM, default current local month
421 * @param string day in format DD, default current local day
422 * @param string format for returned date
423 *
424 * @access public
425 *
426 * @return string date in given format
427 */
428
429 function endOfPrevMonth($day="",$month="",$year="",$format="%Y%m%d")
430 {
431 if(empty($year))
432 $year = Date_Calc::dateNow("%Y");
433 if(empty($month))
434 $month = Date_Calc::dateNow("%m");
435 if(empty($day))
436 $day = Date_Calc::dateNow("%d");
437
438 if($month > 1)
439 {
440 $month--;
441 }
442 else
443 {
444 $year--;
445 $month=12;
446 }
447
448 $day = Date_Calc::daysInMonth($month,$year);
449
450 return Date_Calc::dateFormat($day,$month,$year,$format);
451
452 } // end func endOfPrevMonth
453
454 /**
455 * Returns date of the next weekday of given date,
456 * skipping from Friday to Monday.
457 *
458 * @param string year in format CCYY, default current local year
459 * @param string month in format MM, default current local month
460 * @param string day in format DD, default current local day
461 * @param string format for returned date
462 *
463 * @access public
464 *
465 * @return string date in given format
466 */
467
468 function nextWeekday($day="",$month="",$year="",$format="%Y%m%d")
469 {
470 if(empty($year))
471 $year = Date_Calc::dateNow("%Y");
472 if(empty($month))
473 $month = Date_Calc::dateNow("%m");
474 if(empty($day))
475 $day = Date_Calc::dateNow("%d");
476
477 $days = Date_Calc::dateToDays($day,$month,$year);
478
479 if(Date_Calc::dayOfWeek($day,$month,$year) == 5)
480 $days += 3;
481 elseif(Date_Calc::dayOfWeek($day,$month,$year) == 6)
482 $days += 2;
483 else
484 $days += 1;
485
486 return(Date_Calc::daysToDate($days,$format));
487
488 } // end func nextWeekday
489
490 /**
491 * Returns date of the previous weekday,
492 * skipping from Monday to Friday.
493 *
494 * @param string year in format CCYY, default current local year
495 * @param string month in format MM, default current local month
496 * @param string day in format DD, default current local day
497 * @param string format for returned date
498 *
499 * @access public
500 *
501 * @return string date in given format
502 */
503
504 function prevWeekday($day="",$month="",$year="",$format="%Y%m%d")
505 {
506 if(empty($year))
507 $year = Date_Calc::dateNow("%Y");
508 if(empty($month))
509 $month = Date_Calc::dateNow("%m");
510 if(empty($day))
511 $day = Date_Calc::dateNow("%d");
512
513 $days = Date_Calc::dateToDays($day,$month,$year);
514
515 if(Date_Calc::dayOfWeek($day,$month,$year) == 1)
516 $days -= 3;
517 elseif(Date_Calc::dayOfWeek($day,$month,$year) == 0)
518 $days -= 2;
519 else
520 $days -= 1;
521
522 return(Date_Calc::daysToDate($days,$format));
523
524 } // end func prevWeekday
525
526 /**
527 * Returns date of the next specific day of the week
528 * from the given date.
529 *
530 * @param int day of week, 0=Sunday
531 * @param string year in format CCYY, default current local year
532 * @param string month in format MM, default current local month
533 * @param string day in format DD, default current local day
534 * @param boolean onOrAfter if true and days are same, returns current day
535 * @param string format for returned date
536 *
537 * @access public
538 *
539 * @return string date in given format
540 */
541
542 function nextDayOfWeek($dow,$day="",$month="",$year="",$format="%Y%m%d",$onOrAfter=false)
543 {
544 if(empty($year))
545 $year = Date_Calc::dateNow("%Y");
546 if(empty($month))
547 $month = Date_Calc::dateNow("%m");
548 if(empty($day))
549 $day = Date_Calc::dateNow("%d");
550
551 $days = Date_Calc::dateToDays($day,$month,$year);
552 $curr_weekday = Date_Calc::dayOfWeek($day,$month,$year);
553
554 if($curr_weekday == $dow)
555 {
556 if(!$onOrAfter)
557 $days += 7;
558 }
559 elseif($curr_weekday > $dow)
560 $days += 7 - ( $curr_weekday - $dow );
561 else
562 $days += $dow - $curr_weekday;
563
564 return(Date_Calc::daysToDate($days,$format));
565
566 } // end func nextDayOfWeek
567
568 /**
569 * Returns date of the previous specific day of the week
570 * from the given date.
571 *
572 * @param int day of week, 0=Sunday
573 * @param string year in format CCYY, default current local year
574 * @param string month in format MM, default current local month
575 * @param string day in format DD, default current local day
576 * @param boolean onOrBefore if true and days are same, returns current day
577 * @param string format for returned date
578 *
579 * @access public
580 *
581 * @return string date in given format
582 */
583
584 function prevDayOfWeek($dow,$day="",$month="",$year="",$format="%Y%m%d",$onOrBefore=false)
585 {
586 if(empty($year))
587 $year = Date_Calc::dateNow("%Y");
588 if(empty($month))
589 $month = Date_Calc::dateNow("%m");
590 if(empty($day))
591 $day = Date_Calc::dateNow("%d");
592
593 $days = Date_Calc::dateToDays($day,$month,$year);
594 $curr_weekday = Date_Calc::dayOfWeek($day,$month,$year);
595
596 if($curr_weekday == $dow)
597 {
598 if(!$onOrBefore)
599 $days -= 7;
600 }
601 elseif($curr_weekday < $dow)
602 $days -= 7 - ( $dow - $curr_weekday );
603 else
604 $days -= $curr_weekday - $dow;
605
606 return(Date_Calc::daysToDate($days,$format));
607
608 } // end func prevDayOfWeek
609
610 /**
611 * Returns date of the next specific day of the week
612 * on or before the given date.
613 *
614 * @param int day of week, 0=Sunday
615 * @param string year in format CCYY, default current local year
616 * @param string month in format MM, default current local month
617 * @param string day in format DD, default current local day
618 * @param string format for returned date
619 *
620 * @access public
621 *
622 * @return string date in given format
623 */
624
625 function nextDayOfWeekOnOrAfter($dow,$day="",$month="",$year="",$format="%Y%m%d")
626 {
627 return(Date_Calc::nextDayOfWeek($dow,$day="",$month="",$year="",$format="%Y%m%d",true));
628 } // end func nextDayOfWeekOnOrAfter
629
630 /**
631 * Returns date of the previous specific day of the week
632 * on or before the given date.
633 *
634 * @param int day of week, 0=Sunday
635 * @param string year in format CCYY, default current local year
636 * @param string month in format MM, default current local month
637 * @param string day in format DD, default current local day
638 * @param string format for returned date
639 *
640 * @access public
641 *
642 * @return string date in given format
643 */
644
645 function prevDayOfWeekOnOrBefore($dow,$day="",$month="",$year="",$format="%Y%m%d")
646 {
647 return(Date_Calc::prevDayOfWeek($dow,$day="",$month="",$year="",$format="%Y%m%d",true));
648
649 } // end func prevDayOfWeekOnOrAfter
650
651 /**
652 * Returns date of day after given date.
653 *
654 * @param string year in format CCYY, default current local year
655 * @param string month in format MM, default current local month
656 * @param string day in format DD, default current local day
657 * @param string format for returned date
658 *
659 * @access public
660 *
661 * @return string date in given format
662 */
663
664 function nextDay($day="",$month="",$year="",$format="%Y%m%d")
665 {
666 if(empty($year))
667 $year = Date_Calc::dateNow("%Y");
668 if(empty($month))
669 $month = Date_Calc::dateNow("%m");
670 if(empty($day))
671 $day = Date_Calc::dateNow("%d");
672
673 $days = Date_Calc::dateToDays($day,$month,$year);
674
675 return(Date_Calc::daysToDate($days + 1,$format));
676
677 } // end func nextDay
678
679 /**
680 * Returns date of day before given date.
681 *
682 * @param string year in format CCYY, default current local year
683 * @param string month in format MM, default current local month
684 * @param string day in format DD, default current local day
685 * @param string format for returned date
686 *
687 * @access public
688 *
689 * @return string date in given format
690 */
691
692 function prevDay($day="",$month="",$year="",$format="%Y%m%d")
693 {
694 if(empty($year))
695 $year = Date_Calc::dateNow("%Y");
696 if(empty($month))
697 $month = Date_Calc::dateNow("%m");
698 if(empty($day))
699 $day = Date_Calc::dateNow("%d");
700
701 $days = Date_Calc::dateToDays($day,$month,$year);
702
703 return(Date_Calc::daysToDate($days - 1,$format));
704
705 } // end func prevDay
706
707 /**
708 * Sets century for 2 digit year.
709 * 51-99 is 19, else 20
710 *
711 * @param string 2 digit year
712 *
713 * @access public
714 *
715 * @return string 4 digit year
716 */
717
718 function defaultCentury($year)
719 {
720 if(strlen($year) == 1)
721 $year = "0$year";
722 if($year > 50)
723 return( "19$year" );
724 else
725 return( "20$year" );
726
727 } // end func defaultCentury
728
729 /**
730 * Returns number of days between two given dates.
731 *
732 * @param string year in format CCYY
733 * @param string month in format MM
734 * @param string day in format DD
735 * @param string year in format CCYY
736 * @param string month in format MM
737 * @param string day in format DD
738 *
739 * @access public
740 *
741 * @return int absolute number of days between dates,
742 * -1 if there is an error.
743 */
744
745 function dateDiff($day1,$month1,$year1,$day2,$month2,$year2)
746 {
747 if(!Date_Calc::isValidDate($day1,$month1,$year1))
748 return -1;
749 if(!Date_Calc::isValidDate($day2,$month2,$year2))
750 return -1;
751
752 return(abs((Date_Calc::dateToDays($day1,$month1,$year1))
753 - (Date_Calc::dateToDays($day2,$month2,$year2))));
754
755 } // end func dateDiff
756
757 /**
758 * Find the number of days in the given month.
759 *
760 * @param string month in format MM, default current local month
761 *
762 * @access public
763 *
764 * @return int number of days
765 */
766
767 function daysInMonth($month="",$year="")
768 {
769 if(empty($year))
770 $year = Date_Calc::dateNow("%Y");
771 if(empty($month))
772 $month = Date_Calc::dateNow("%m");
773
774 if($month == 2)
775 {
776 if(Date_Calc::isLeapYear($year))
777 return 29;
778 else
779 return 28;
780 }
781 elseif($month == 4 or $month == 6 or $month == 9 or $month == 11)
782 return 30;
783 else
784 return 31;
785
786 } // end func daysInMonth
787
788 /**
789 * Returns the number of rows on a calendar month. Useful for
790 * determining the number of rows when displaying a typical
791 * month calendar.
792 *
793 * @param string month in format MM, default current local month
794 * @param string year in format YYCC, default current local year
795 *
796 * @access public
797 *
798 * @return int number of weeks
799 */
800
801 function weeksInMonth($month="",$year="")
802 {
803 if(empty($year)) {
804 $year = Date_Calc::dateNow("%Y");
805 }
806 if(empty($month)) {
807 $month = Date_Calc::dateNow("%m");
808 }
809 // starts on monday
810 if(DATE_CALC_BEGIN_WEEKDAY == 1)
811 { if(Date_Calc::firstOfMonthWeekday($month,$year) == 0) {
812 $first_week_days = 1;
813 } else {
814 $first_week_days = 7 - (Date_Calc::firstOfMonthWeekday($month,$year) - 1);
815 }
816 // starts on saturday
817 } elseif(DATE_CALC_BEGIN_WEEKDAY == 6) {
818 if(Date_Calc::firstOfMonthWeekday($month,$year) == 0) {
819 $first_week_days = 6;
820 } else {
821 $first_week_days = 7 - (Date_Calc::firstOfMonthWeekday($month,$year) + 1);
822 }
823 // starts on sunday
824 } else {
825 $first_week_days = 7 - Date_Calc::firstOfMonthWeekday($month,$year);
826 }
827 return ceil(((Date_Calc::daysInMonth($month,$year) - $first_week_days) / 7) + 1);
828 } // end func weeksInMonth
829
830 /**
831 * Find the day of the week for the first of the month of given date.
832 *
833 * @param string year in format CCYY, default to current local year
834 * @param string month in format MM, default to current local month
835 *
836 * @access public
837 *
838 * @return int number of weekday for the first day, 0=Sunday
839 */
840
841 function firstOfMonthWeekday($month="",$year="")
842 {
843 if(empty($year))
844 $year = Date_Calc::dateNow("%Y");
845 if(empty($month))
846 $month = Date_Calc::dateNow("%m");
847
848 return(Date_Calc::dayOfWeek("01",$month,$year));
849
850 } // end func firstOfMonthWeekday
851
852 /**
853 * Return date of first day of month of given date.
854 *
855 * @param string year in format CCYY, default current local year
856 * @param string month in format MM, default current local month
857 * @param string format for returned date
858 *
859 * @access public
860 *
861 * @return string date in given format
862 */
863
864 function beginOfMonth($month="",$year="",$format="%Y%m%d")
865 {
866 if(empty($year))
867 $year = Date_Calc::dateNow("%Y");
868 if(empty($month))
869 $month = Date_Calc::dateNow("%m");
870
871 return(Date_Calc::dateFormat("01",$month,$year,$format));
872
873 } // end of func beginOfMonth
874
875 /**
876 * Find the month day of the beginning of week for given date,
877 * using DATE_CALC_BEGIN_WEEKDAY. (can return weekday of prev month.)
878 *
879 * @param string year in format CCYY, default current local year
880 * @param string month in format MM, default current local month
881 * @param string day in format DD, default current local day
882 * @param string format for returned date
883 *
884 * @access public
885 *
886 * @return string date in given format
887 */
888
889 function beginOfWeek($day="",$month="",$year="",$format="%Y%m%d")
890 {
891 if(empty($year))
892 $year = Date_Calc::dateNow("%Y");
893 if(empty($month))
894 $month = Date_Calc::dateNow("%m");
895 if(empty($day))
896 $day = Date_Calc::dateNow("%d");
897
898 $this_weekday = Date_Calc::dayOfWeek($day,$month,$year);
899
900 if(DATE_CALC_BEGIN_WEEKDAY == 1)
901 {
902 if($this_weekday == 0)
903 $beginOfWeek = Date_Calc::dateToDays($day,$month,$year) - 6;
904 else
905 $beginOfWeek = Date_Calc::dateToDays($day,$month,$year)
906 - $this_weekday + 1;
907 }
908 else
909 $beginOfWeek = (Date_Calc::dateToDays($day,$month,$year)
910 - $this_weekday);
911
912
913 /* $beginOfWeek = (Date_Calc::dateToDays($day,$month,$year)
914 - ($this_weekday - DATE_CALC_BEGIN_WEEKDAY)); */
915
916 return(Date_Calc::daysToDate($beginOfWeek,$format));
917
918 } // end of func beginOfWeek
919
920 /**
921 * Find the month day of the end of week for given date,
922 * using DATE_CALC_BEGIN_WEEKDAY. (can return weekday
923 * of following month.)
924 *
925 * @param string year in format CCYY, default current local year
926 * @param string month in format MM, default current local month
927 * @param string day in format DD, default current local day
928 * @param string format for returned date
929 *
930 * @access public
931 *
932 * @return string date in given format
933 */
934
935 function endOfWeek($day="",$month="",$year="",$format="%Y%m%d")
936 {
937 if(empty($year))
938 $year = Date_Calc::dateNow("%Y");
939 if(empty($month))
940 $month = Date_Calc::dateNow("%m");
941 if(empty($day))
942 $day = Date_Calc::dateNow("%d");
943
944 $this_weekday = Date_Calc::dayOfWeek($day,$month,$year);
945
946 $last_dayOfWeek = (Date_Calc::dateToDays($day,$month,$year)
947 + (6 - $this_weekday + DATE_CALC_BEGIN_WEEKDAY));
948
949 return(Date_Calc::daysToDate($last_dayOfWeek,$format));
950
951 } // end func endOfWeek
952
953 /**
954 * Find the month day of the beginning of week after given date,
955 * using DATE_CALC_BEGIN_WEEKDAY. (can return weekday of prev month.)
956 *
957 * @param string year in format CCYY, default current local year
958 * @param string month in format MM, default current local month
959 * @param string day in format DD, default current local day
960 * @param string format for returned date
961 *
962 * @access public
963 *
964 * @return string date in given format
965 */
966
967 function beginOfNextWeek($day="",$month="",$year="",$format="%Y%m%d")
968 {
969 if(empty($year))
970 $year = Date_Calc::dateNow("%Y");
971 if(empty($month))
972 $month = Date_Calc::dateNow("%m");
973 if(empty($day))
974 $day = Date_Calc::dateNow("%d");
975
976 $date = Date_Calc::daysToDate(Date_Calc::dateToDays($day+7,$month,$year),"%Y%m%d");
977
978 $next_week_year = substr($date,0,4);
979 $next_week_month = substr($date,4,2);
980 $next_week_day = substr($date,6,2);
981
982 $this_weekday = Date_Calc::dayOfWeek($next_week_day,$next_week_month,$next_week_year);
983
984 $beginOfWeek = (Date_Calc::dateToDays($next_week_day,$next_week_month,$next_week_year)
985 - ($this_weekday - DATE_CALC_BEGIN_WEEKDAY));
986
987 return(Date_Calc::daysToDate($beginOfWeek,$format));
988
989 } // end func beginOfNextWeek
990
991 /**
992 * Find the month day of the beginning of week before given date,
993 * using DATE_CALC_BEGIN_WEEKDAY. (can return weekday of prev month.)
994 *
995 * @param string year in format CCYY, default current local year
996 * @param string month in format MM, default current local month
997 * @param string day in format DD, default current local day
998 * @param string format for returned date
999 *
1000 * @access public
1001 *
1002 * @return string date in given format
1003 */
1004
1005 function beginOfPrevWeek($day="",$month="",$year="",$format="%Y%m%d")
1006 {
1007 if(empty($year))
1008 $year = Date_Calc::dateNow("%Y");
1009 if(empty($month))
1010 $month = Date_Calc::dateNow("%m");
1011 if(empty($day))
1012 $day = Date_Calc::dateNow("%d");
1013
1014 $date = Date_Calc::daysToDate(Date_Calc::dateToDays($day-7,$month,$year),"%Y%m%d");
1015
1016 $next_week_year = substr($date,0,4);
1017 $next_week_month = substr($date,4,2);
1018 $next_week_day = substr($date,6,2);
1019
1020 $this_weekday = Date_Calc::dayOfWeek($next_week_day,$next_week_month,$next_week_year);
1021
1022 $beginOfWeek = (Date_Calc::dateToDays($next_week_day,$next_week_month,$next_week_year)
1023 - ($this_weekday - DATE_CALC_BEGIN_WEEKDAY));
1024
1025 return(Date_Calc::daysToDate($beginOfWeek,$format));
1026
1027 } // end func beginOfPrevWeek
1028
1029 /**
1030 * Return an array with days in week
1031 *
1032 * @param string year in format CCYY, default current local year
1033 * @param string month in format MM, default current local month
1034 * @param string day in format DD, default current local day
1035 * @param string format for returned date
1036 *
1037 * @access public
1038 *
1039 * @return array $week[$weekday]
1040 */
1041
1042 function getCalendarWeek($day="",$month="",$year="",$format="%Y%m%d")
1043 {
1044 if(empty($year))
1045 $year = Date_Calc::dateNow("%Y");
1046 if(empty($month))
1047 $month = Date_Calc::dateNow("%m");
1048 if(empty($day))
1049 $day = Date_Calc::dateNow("%d");
1050
1051 $week_array = array();
1052
1053 // date for the column of week
1054
1055 $curr_day = Date_Calc::beginOfWeek($day,$month,$year,"%E");
1056
1057 for($counter=0; $counter <= 6; $counter++)
1058 {
1059 $week_array[$counter] = Date_Calc::daysToDate($curr_day,$format);
1060 $curr_day++;
1061 }
1062
1063 return $week_array;
1064
1065 } // end func getCalendarWeek
1066
1067 /**
1068 * Return a set of arrays to construct a calendar month for
1069 * the given date.
1070 *
1071 * @param string year in format CCYY, default current local year
1072 * @param string month in format MM, default current local month
1073 * @param string format for returned date
1074 *
1075 * @access public
1076 *
1077 * @return array $month[$row][$col]
1078 */
1079
1080 function getCalendarMonth($month="",$year="",$format="%Y%m%d")
1081 {
1082 if(empty($year)) $year = Date_Calc::dateNow("%Y");
1083 if(empty($month)) $month = Date_Calc::dateNow("%m");
1084 $month_array = array();
1085 // starts on monday
1086 if(DATE_CALC_BEGIN_WEEKDAY == 1) {
1087 if(Date_Calc::firstOfMonthWeekday($month,$year) == 0) {
1088 $curr_day = Date_Calc::dateToDays("01",$month,$year) - 6;
1089 } else {
1090 $curr_day = Date_Calc::dateToDays("01",$month,$year) - Date_Calc::firstOfMonthWeekday($month,$year) + 1;
1091 }
1092 // starts on saturday
1093 } elseif(DATE_CALC_BEGIN_WEEKDAY == 6) {
1094 if(Date_Calc::firstOfMonthWeekday($month,$year) == 0) {
1095 $curr_day = Date_Calc::dateToDays("01",$month,$year) - 1;
1096 } else {
1097 $curr_day = Date_Calc::dateToDays("01",$month,$year) - Date_Calc::firstOfMonthWeekday($month,$year) - 1;
1098 }
1099 // starts on sunday
1100 } else {
1101 $curr_day = (Date_Calc::dateToDays("01",$month,$year) - Date_Calc::firstOfMonthWeekday($month,$year));
1102 }
1103 // number of days in this month
1104 $daysInMonth = Date_Calc::daysInMonth($month,$year);
1105
1106 $weeksInMonth = Date_Calc::weeksInMonth($month,$year);
1107 for($row_counter=0; $row_counter < $weeksInMonth; $row_counter++)
1108 {
1109 for($column_counter=0; $column_counter <= 6; $column_counter++)
1110 {
1111 $month_array[$row_counter][$column_counter] = Date_Calc::daysToDate($curr_day,$format);
1112 $curr_day++;
1113 }
1114 }
1115
1116 return $month_array;
1117
1118 } // end func getCalendarMonth
1119
1120 /**
1121 * Return a set of arrays to construct a calendar year for
1122 * the given date.
1123 *
1124 * @param string year in format CCYY, default current local year
1125 * @param string format for returned date
1126 *
1127 * @access public
1128 *
1129 * @return array $year[$month][$row][$col]
1130 */
1131
1132 function getCalendarYear($year="",$format="%Y%m%d")
1133 {
1134 if(empty($year))
1135 $year = Date_Calc::dateNow("%Y");
1136
1137 $year_array = array();
1138
1139 for($curr_month=0; $curr_month <=11; $curr_month++)
1140 $year_array[$curr_month] = Date_Calc::getCalendarMonth(sprintf("%02d",$curr_month+1),$year,$format);
1141
1142 return $year_array;
1143
1144 } // end func getCalendarYear
1145
1146 /**
1147 * Converts a date to number of days since a
1148 * distant unspecified epoch.
1149 *
1150 * @param string year in format CCYY
1151 * @param string month in format MM
1152 * @param string day in format DD
1153 *
1154 * @access public
1155 *
1156 * @return integer number of days
1157 */
1158
1159 function dateToDays($day,$month,$year)
1160 {
1161
1162 $century = substr($year,0,2);
1163 $year = substr($year,2,2);
1164
1165 if($month > 2)
1166 $month -= 3;
1167 else
1168 {
1169 $month += 9;
1170 if($year)
1171 $year--;
1172 else
1173 {
1174 $year = 99;
1175 $century --;
1176 }
1177 }
1178
1179 return ( floor(( 146097 * $century) / 4 ) +
1180 floor(( 1461 * $year) / 4 ) +
1181 floor(( 153 * $month + 2) / 5 ) +
1182 $day + 1721119);
1183
1184 } // end func dateToDays
1185
1186 /**
1187 * Converts number of days to a distant unspecified epoch.
1188 *
1189 * @param int number of days
1190 * @param string format for returned date
1191 *
1192 * @access public
1193 *
1194 * @return string date in specified format
1195 */
1196
1197 function daysToDate($days,$format="%Y%m%d")
1198 {
1199
1200 $days -= 1721119;
1201 $century = floor(( 4 * $days - 1) / 146097);
1202 $days = floor(4 * $days - 1 - 146097 * $century);
1203 $day = floor($days / 4);
1204
1205 $year = floor(( 4 * $day + 3) / 1461);
1206 $day = floor(4 * $day + 3 - 1461 * $year);
1207 $day = floor(($day + 4) / 4);
1208
1209 $month = floor(( 5 * $day - 3) / 153);
1210 $day = floor(5 * $day - 3 - 153 * $month);
1211 $day = floor(($day + 5) / 5);
1212
1213 if($month < 10)
1214 $month +=3;
1215 else
1216 {
1217 $month -=9;
1218 if($year++ == 99)
1219 {
1220 $year = 0;
1221 $century++;
1222 }
1223 }
1224
1225 $century = sprintf("%02d",$century);
1226 $year = sprintf("%02d",$year);
1227
1228 return(Date_Calc::dateFormat($day,$month,$century.$year,$format));
1229
1230 } // end func daysToDate
1231
1232 /**
1233 * Calculates the date of the Nth weekday of the month,
1234 * such as the second Saturday of January 2000.
1235 *
1236 * @param string occurance: 1=first, 2=second, 3=third, etc.
1237 * @param string dayOfWeek: 0=Sunday, 1=Monday, etc.
1238 * @param string year in format CCYY
1239 * @param string month in format MM
1240 * @param string format for returned date
1241 *
1242 * @access public
1243 *
1244 * @return string date in given format
1245 */
1246
1247 function NWeekdayOfMonth($occurance,$dayOfWeek,$month,$year,$format="%Y%m%d") {
1248
1249 $year = sprintf("%04d",$year);
1250 $month = sprintf("%02d",$month);
1251
1252 $DOW1day = sprintf("%02d",(($occurance - 1) * 7 + 1));
1253 $DOW1 = Date_Calc::dayOfWeek($DOW1day,$month,$year);
1254
1255 $wdate = ($occurance - 1) * 7 + 1 +
1256 (7 + $dayOfWeek - $DOW1) % 7;
1257
1258 if( $wdate > Date_Calc::daysInMonth($month,$year))
1259 return -1;
1260 else
1261 return(Date_Calc::dateFormat($wdate,$month,$year,$format));
1262
1263 } // end func NWeekdayOfMonth
1264
1265 /**
1266 * Formats the date in the given format, much like
1267 * strfmt(). This function is used to alleviate the
1268 * problem with 32-bit numbers for dates pre 1970
1269 * or post 2038, as strfmt() has on most systems.
1270 * Most of the formatting options are compatible.
1271 *
1272 * formatting options:
1273 *
1274 * %a abbreviated weekday name (Sun, Mon, Tue)
1275 * %A full weekday name (Sunday, Monday, Tuesday)
1276 * %b abbreviated month name (Jan, Feb, Mar)
1277 * %B full month name (January, February, March)
1278 * %d day of month (range 00 to 31)
1279 * %e day of month, single digit (range 0 to 31)
1280 * %E number of days since unspecified epoch (integer)
1281 * (%E is useful for passing a date in a URL as
1282 * an integer value. Then simply use
1283 * daysToDate() to convert back to a date.)
1284 * %j day of year (range 001 to 366)
1285 * %m month as decimal number (range 1 to 12)
1286 * %n newline character (\n)
1287 * %t tab character (\t)
1288 * %w weekday as decimal (0 = Sunday)
1289 * %U week number of current year, first sunday as first week
1290 * %y year as decimal (range 00 to 99)
1291 * %Y year as decimal including century (range 0000 to 9999)
1292 * %% literal '%'
1293 *
1294 * @param string year in format CCYY
1295 * @param string month in format MM
1296 * @param string day in format DD
1297 * @param string format for returned date
1298 *
1299 * @access public
1300 *
1301 * @return string date in given format
1302 */
1303
1304 function dateFormat($day,$month,$year,$format)
1305 {
1306 if(!Date_Calc::isValidDate($day,$month,$year))
1307 {
1308 $year = Date_Calc::dateNow("%Y");
1309 $month = Date_Calc::dateNow("%m");
1310 $day = Date_Calc::dateNow("%d");
1311 }
1312
1313 $output = "";
1314
1315 for($strpos = 0; $strpos < strlen($format); $strpos++)
1316 {
1317 $char = substr($format,$strpos,1);
1318 if($char == "%")
1319 {
1320 $nextchar = substr($format,$strpos + 1,1);
1321 switch($nextchar)
1322 {
1323 case "a":
1324 $output .= Date_Calc::getWeekdayAbbrname($day,$month,$year);
1325 break;
1326 case "A":
1327 $output .= Date_Calc::getWeekdayFullname($day,$month,$year);
1328 break;
1329 case "b":
1330 $output .= Date_Calc::getMonthAbbrname($month);
1331 break;
1332 case "B":
1333 $output .= Date_Calc::getMonthFullname($month);
1334 break;
1335 case "d":
1336 $output .= sprintf("%02d",$day);
1337 break;
1338 case "e":
1339 $output .= $day;
1340 break;
1341 case "E":
1342 $output .= Date_Calc::dateToDays($day,$month,$year);
1343 break;
1344 case "j":
1345 $output .= Date_Calc::julianDate($day,$month,$year);
1346 break;
1347 case "m":
1348 $output .= sprintf("%02d",$month);
1349 break;
1350 case "n":
1351 $output .= "\n";
1352 break;
1353 case "t":
1354 $output .= "\t";
1355 break;
1356 case "w":
1357 $output .= Date_Calc::dayOfWeek($day,$month,$year);
1358 break;
1359 case "U":
1360 $output .= Date_Calc::weekOfYear($day,$month,$year);
1361 break;
1362 case "y":
1363 $output .= substr($year,2,2);
1364 break;
1365 case "Y":
1366 $output .= $year;
1367 break;
1368 case "%":
1369 $output .= "%";
1370 break;
1371 default:
1372 $output .= $char.$nextchar;
1373 }
1374 $strpos++;
1375 }
1376 else
1377 {
1378 $output .= $char;
1379 }
1380 }
1381 return $output;
1382
1383 } // end func dateFormat
1384
1385 /**
1386 * Returns the current local year in format CCYY
1387 *
1388 * @access public
1389 *
1390 * @return string year in format CCYY
1391 */
1392
1393 function getYear()
1394 {
1395 return Date_Calc::dateNow("%Y");
1396
1397 } // end func getYear
1398
1399 /**
1400 * Returns the current local month in format MM
1401 *
1402 * @access public
1403 *
1404 * @return string month in format MM
1405 */
1406
1407 function getMonth()
1408 {
1409 return Date_Calc::dateNow("%m");
1410
1411 } // end func getMonth
1412
1413 /**
1414 * Returns the current local day in format DD
1415 *
1416 * @access public
1417 *
1418 * @return string day in format DD
1419 */
1420
1421 function getDay()
1422 {
1423 return Date_Calc::dateNow("%d");
1424
1425 } // end func getDay
1426
1427 /**
1428 * Returns the full month name for the given month
1429 *
1430 * @param string month in format MM
1431 *
1432 * @access public
1433 *
1434 * @return string full month name
1435 */
1436
1437 function getMonthFullname($month)
1438 {
1439 $month = (int)$month;
1440
1441 if(empty($month))
1442 $month = Date_Calc::dateNow("%m");
1443
1444 $month_names = Date_Calc::getMonthNames();
1445 return $month_names[$month];
1446 // getMonthNames returns months with correct indexes
1447 //return $month_names[($month - 1)];
1448
1449 } // end func getMonthFullname
1450
1451 /**
1452 * Returns the abbreviated month name for the given month
1453 *
1454 * @param string month in format MM
1455 * @param int optional length of abbreviation, default is 3
1456 *
1457 * @access public
1458 *
1459 * @return string abbreviated month name
1460 * @see Date_Calc::getMonthFullname
1461 */
1462
1463 function getMonthAbbrname($month,$length=3)
1464 {
1465 $month = (int)$month;
1466
1467 if(empty($month))
1468 $month = Date_Calc::dateNow("%m");
1469 return substr(Date_Calc::getMonthFullname($month), 0, $length);
1470 } // end func getMonthAbbrname
1471
1472 /**
1473 * Returns the full weekday name for the given date
1474 *
1475 * @param string year in format CCYY, default current local year
1476 * @param string month in format MM, default current local month
1477 * @param string day in format DD, default current local day
1478 *
1479 * @access public
1480 *
1481 * @return string full month name
1482 */
1483
1484 function getWeekdayFullname($day="",$month="",$year="")
1485 {
1486 if(empty($year))
1487 $year = Date_Calc::dateNow("%Y");
1488 if(empty($month))
1489 $month = Date_Calc::dateNow("%m");
1490 if(empty($day))
1491 $day = Date_Calc::dateNow("%d");
1492
1493 $weekday_names = Date_Calc::getWeekDays();
1494 $weekday = Date_Calc::dayOfWeek($day,$month,$year);
1495
1496 return $weekday_names[$weekday];
1497
1498 } // end func getWeekdayFullname
1499
1500 /**
1501 * Returns the abbreviated weekday name for the given date
1502 *
1503 * @param string year in format CCYY, default current local year
1504 * @param string month in format MM, default current local month
1505 * @param string day in format DD, default current local day
1506 * @param int optional length of abbreviation, default is 3
1507 *
1508 * @access public
1509 *
1510 * @return string full month name
1511 * @see Date_Calc::getWeekdayFullname
1512 */
1513
1514 function getWeekdayAbbrname($day="",$month="",$year="",$length=3)
1515 {
1516 if(empty($year))
1517 $year = Date_Calc::dateNow("%Y");
1518 if(empty($month))
1519 $month = Date_Calc::dateNow("%m");
1520 if(empty($day))
1521 $day = Date_Calc::dateNow("%d");
1522 return substr(Date_Calc::getWeekdayFullname($day,$month,$year),0,$length);
1523 } // end func getWeekdayFullname
1524
1525 /**
1526 * Returns the numeric month from the month name or an abreviation
1527 *
1528 * Both August and Aug would return 8.
1529 * Month name is case insensitive.
1530 *
1531 * @param string month name
1532 * @return integer month number
1533 */
1534 function getMonthFromFullName($month){
1535 $month = strtolower($month);
1536 $months = Date_Calc::getMonthNames();
1537 while(list($id, $name) = each($months)){
1538 if(ereg($month, strtolower($name))){
1539 return($id);
1540 }
1541 }
1542 return(0);
1543 }
1544
1545 /**
1546 * Retunrs an array of month names
1547 *
1548 * Used to take advantage of the setlocale function to return
1549 * language specific month names.
1550 * XXX cache values to some global array to avoid preformace hits when called more than once.
1551 *
1552 * @returns array An array of month names
1553 */
1554 function getMonthNames(){
1555 for($i=1;$i<13;$i++){
1556 $months[$i] = strftime('%B', mktime(0, 0, 0, $i, 1, 2001));
1557 }
1558 return($months);
1559 }
1560
1561 /**
1562 * Returns an array of week days
1563 *
1564 * Used to take advantage of the setlocale function to
1565 * return language specific week days
1566 * XXX cache values to some global array to avoid preformace hits when called more than once.
1567 *
1568 * @returns array An array of week day names
1569 */
1570 function getWeekDays(){
1571 for($i=0;$i<7;$i++){
1572 $weekdays[$i] = strftime('%A', mktime(0, 0, 0, 1, $i, 2001));
1573 }
1574 return($weekdays);
1575 }
1576
1577 } // end class Date_calendar
1578
1579 ?>
Mirror of official OpenEMR Sourceforge repository