includes/date_functions.inc

   1 <?php
   2 /**********************************************************************
   3     Copyright (C) FrontAccounting, LLC.
   4         Released under the terms of the GNU General Public License, GPL,
   5         as published by the Free Software Foundation, either version 3
   6         of the License, or (at your option) any later version.
   7     This program is distributed in the hope that it will be useful,
   8     but WITHOUT ANY WARRANTY; without even the implied warranty of
   9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 ***********************************************************************/
  12 /*
  13 date validation and parsing functions
  14
  15 These functions refer to the global variable defining the date format
  16 The date format is defined in config.php called DefaultDateFormat
  17 this can be a string either "d/m/Y" for UK/Australia/New Zealand dates or
  18 "m/d/Y" for US/Canada format dates
  19
  20 */
  21 if(function_exists("date_default_timezone_set") and function_exists("date_default_timezone_get"))
  22         @date_default_timezone_set(@date_default_timezone_get());
  23
  24 function __date($year, $month, $day)
  25 {
  26         global $dateseps;
  27
  28         $how = user_date_format();
  29         $sep = $dateseps[user_date_sep()];
  30         $day = (int)$day;
  31         $month = (int)$month;
  32         if ($day < 10)
  33                 $day = "0".$day;
  34         if ($month < 10)
  35                 $month = "0".$month;
  36         if ($how == 0)
  37                 return $month.$sep.$day.$sep.$year;
  38         else if ($how == 1)
  39                 return $day.$sep.$month.$sep.$year;
  40         else
  41                 return $year.$sep.$month.$sep.$day;
  42 }
  43
  44 function is_date($date_)
  45 {
  46         global $dateseps;
  47
  48         if ($date_ == null || $date_ == "")
  49                 return 0;
  50         $how = user_date_format();
  51         $sep = $dateseps[user_date_sep()];
  52
  53         $date_ = trim($date_);
  54         $date_ = str_replace($sep, "", $date_);
  55         if (strlen($date_) == 6)
  56         {
  57                 if ($how == 0)
  58                 {
  59                         $day = substr($date_,2,2);
  60                         $month = substr($date_,0,2);
  61                         $year = substr($date_,4,2);
  62                 }
  63                 elseif ($how == 1)
  64                 {
  65                         $day = substr($date_,0,2);
  66                         $month = substr($date_,2,2);
  67                         $year = substr($date_,4,2);
  68                 }
  69                 else
  70                 {
  71                         $day = substr($date_,4,2);
  72                         $month = substr($date_,2,2);
  73                         $year = substr($date_,0,2);
  74                 }
  75         }
  76         elseif (strlen($date_) == 8)
  77         {
  78                 if ($how == 0)
  79                 {
  80                         $day = substr($date_,2,2);
  81                         $month = substr($date_,0,2);
  82                         $year = substr($date_,4,4);
  83                 }
  84                 elseif ($how == 1)
  85                 {
  86                         $day = substr($date_,0,2);
  87                         $month = substr($date_,2,2);
  88                         $year = substr($date_,4,4);
  89                 }
  90                 else
  91                 {
  92                         $day = substr($date_,6,2);
  93                         $month = substr($date_,4,2);
  94                         $year = substr($date_,0,4);
  95                 }
  96         }
  97         if (!isset($year)|| (int)$year > 9999)
  98         {
  99                 return 0;
 100         }
 101
 102
 103         if (is_long((int)$day) && is_long((int)$month) && is_long((int)$year))
 104         {
 105                 global $date_system;
 106                 if ($date_system == 1)
 107                         list($year, $month, $day) = jalali_to_gregorian($year, $month, $day);
 108                 else if ($date_system == 2)
 109                         list($year, $month, $day) = islamic_to_gregorian($year, $month, $day);
 110                 if (checkdate((int)$month, (int)$day, (int)$year))
 111                 {
 112                         return 1;
 113                 }
 114                 else
 115                 {
 116                         return 0;
 117                 }
 118         }
 119         else
 120         { /*Can't be in an appropriate DefaultDateFormat */
 121                 return 0;
 122         }
 123 } //end of is_date function
 124
 125 function Today()
 126 {
 127         global $date_system;
 128
 129         $year = date("Y");
 130         $month = date("n");
 131         $day = date("j");
 132         if ($date_system == 1)
 133                 list($year, $month, $day) = gregorian_to_jalali($year, $month, $day);
 134         else if ($date_system == 2)
 135                 list($year, $month, $day) = gregorian_to_islamic($year, $month, $day);
 136         return __date($year, $month, $day);
 137 }
 138
 139 function Now()
 140 {
 141         if (user_date_format() == 0)
 142                 return date("h:i a");
 143         else
 144                 return date("H:i");
 145 }
 146 //
 147 //      Retrieve and optionaly set default date for new document.
 148 //
 149 function new_doc_date($date=null)
 150 {
 151         if (isset($date))
 152                 $_SESSION['_default_date'] = $date;
 153
 154         if (!isset($_SESSION['_default_date']) || !sticky_doc_date())
 155                 $_SESSION['_default_date'] = Today();
 156
 157         return $_SESSION['_default_date'];
 158 }
 159
 160 function is_date_in_fiscalyear($date, $convert=false)
 161 {
 162         global $path_to_root;
 163         include_once($path_to_root . "/admin/db/company_db.inc");
 164
 165         $myrow = get_current_fiscalyear();
 166         if ($myrow['closed'] == 1)
 167                 return 0;
 168         if ($convert)
 169                 $date2 = sql2date($date);
 170         else
 171                 $date2 = $date;
 172         $begin = sql2date($myrow['begin']);
 173         $end = sql2date($myrow['end']);
 174         if (date1_greater_date2($begin, $date2) || date1_greater_date2($date2, $end))
 175         {
 176                 return 0;
 177         }
 178         return 1;
 179 }
 180
 181 function begin_fiscalyear()
 182 {
 183         global $path_to_root;
 184         include_once($path_to_root . "/admin/db/company_db.inc");
 185
 186         $myrow = get_current_fiscalyear();
 187         return sql2date($myrow['begin']);
 188 }
 189
 190 function end_fiscalyear()
 191 {
 192         global $path_to_root;
 193         include_once($path_to_root . "/admin/db/company_db.inc");
 194
 195         $myrow = get_current_fiscalyear();
 196         return sql2date($myrow['end']);
 197 }
 198
 199 function begin_month($date)
 200 {
 201         global $date_system;
 202     list($day, $month, $year) = explode_date_to_dmy($date);
 203     if ($date_system == 1)
 204         list($year, $month, $day) = gregorian_to_jalali($year, $month, $day);
 205     else if ($date_system == 2)
 206         list($year, $month, $day) = gregorian_to_islamic($year, $month, $day);
 207         return __date($year, $month, 1);
 208 }
 209
 210 function end_month($date)
 211 {
 212         global $date_system;
 213     list($day, $month, $year) = explode_date_to_dmy($date);
 214         if ($date_system == 1)
 215         {
 216                 list($year, $month, $day) = gregorian_to_jalali($year, $month, $day);
 217                 $days_in_month = array(31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, ((((((($year - (($year > 0) ? 474 : 473)) % 2820) + 474) + 38) * 682) % 2816) < 682 ? 30 : 29));
 218         }
 219         else if ($date_system == 2)
 220         {
 221                 list($year, $month, $day) = gregorian_to_islamic($year, $month, $day);
 222                 $days_in_month = array(30, 29, 30, 29, 30, 29, 30, 29, 30, 29, 30, (((((11 * $year) + 14) % 30) < 11) ? 30 : 29));
 223         }
 224         else // gregorian date
 225                 $days_in_month = array(31, ((!($year % 4 ) && (($year % 100) || !($year % 400)))?29:28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 226         return __date($year, $month, $days_in_month[$month - 1]);
 227 }
 228
 229 function add_days($date, $days) // accepts negative values as well
 230 {
 231         global $date_system;
 232     list($day, $month, $year) = explode_date_to_dmy($date);
 233         $timet = Mktime(0,0,0, $month, $day + $days, $year);
 234     if ($date_system == 1 || $date_system == 2)
 235     {
 236         if ($date_system == 1)
 237                 list($year, $month, $day) = gregorian_to_jalali(date("Y", $timet), date("n", $timet), date("j", $timet));
 238         else if ($date_system == 2)
 239                 list($year, $month, $day) = gregorian_to_islamic(date("Y", $timet), date("n", $timet), date("j", $timet));
 240         return __date($year, $month, $day);
 241     }
 242     return date(user_date_display(), $timet);
 243 }
 244
 245 function add_months($date, $months) // accepts negative values as well
 246 {
 247         global $date_system;
 248     list($day, $month, $year) = explode_date_to_dmy($date);
 249         $timet = Mktime(0,0,0, $month + $months, $day, $year);
 250     if ($date_system == 1 || $date_system == 2)
 251     {
 252         if ($date_system == 1)
 253                 list($year, $month, $day) = gregorian_to_jalali(date("Y", $timet), date("n", $timet), date("j", $timet));
 254         else if ($date_system == 2)
 255                 list($year, $month, $day) = gregorian_to_islamic(date("Y", $timet), date("n", $timet), date("j", $timet));
 256         return __date($year, $month, $day);
 257     }
 258     return date(user_date_display(), $timet);
 259 }
 260
 261 function add_years($date, $years) // accepts negative values as well
 262 {
 263         global $date_system;
 264     list($day, $month, $year) = explode_date_to_dmy($date);
 265         $timet = Mktime(0,0,0, $month, $day, $year + $years);
 266     if ($date_system == 1 || $date_system == 2)
 267     {
 268         if ($date_system == 1)
 269                 list($year, $month, $day) = gregorian_to_jalali(date("Y", $timet), date("n", $timet), date("j", $timet));
 270         else if ($date_system == 2)
 271                 list($year, $month, $day) = gregorian_to_islamic(date("Y", $timet), date("n", $timet), date("j", $timet));
 272         return __date($year, $month, $day);
 273     }
 274     return date(user_date_display(), $timet);
 275 }
 276
 277 //_______________________________________________________________
 278
 279 function sql2date($date_)
 280 {
 281         global $date_system;
 282
 283         //for MySQL dates are in the format YYYY-mm-dd
 284         if ($date_ == null || strlen($date_) == 0)
 285                 return "";
 286
 287         if (strpos($date_, "/"))
 288         { // In MySQL it could be either / or -
 289                 list($year, $month, $day) = explode("/", $date_);
 290         }
 291         elseif (strpos ($date_, "-"))
 292         {
 293                 list($year, $month, $day) = explode("-", $date_);
 294         }
 295
 296         if (strlen($day) > 4)
 297         {  /*chop off the time stuff */
 298                 $day = substr($day, 0, 2);
 299         }
 300         if ($date_system == 1)
 301                 list($year, $month, $day) = gregorian_to_jalali($year, $month, $day);
 302         else if ($date_system == 2)
 303                 list($year, $month, $day) = gregorian_to_islamic($year, $month, $day);
 304         return __date($year, $month, $day);
 305 } // end function sql2date
 306
 307
 308 function date2sql($date_)
 309 {
 310         global $dateseps, $date_system;
 311 /* takes a date in a the format specified in $DefaultDateFormat
 312 and converts to a yyyy/mm/dd format */
 313
 314         $how = user_date_format();
 315         $sep = $dateseps[user_date_sep()];
 316
 317         if ($date_ == null || strlen($date_) == 0)
 318                 return "";
 319
 320         $date_ = trim($date_);
 321         $date_ = str_replace($sep, "", $date_);
 322
 323         if (strlen($date_) == 6)
 324         {
 325                 if ($how == 0)
 326                 {
 327                         $day = substr($date_,2,2);
 328                         $month = substr($date_,0,2);
 329                         $year = substr($date_,4,2);
 330                 }
 331                 elseif ($how == 1)
 332                 {
 333                         $day = substr($date_,0,2);
 334                         $month = substr($date_,2,2);
 335                         $year = substr($date_,4,2);
 336                 }
 337                 else
 338                 {
 339                         $day = substr($date_,4,2);
 340                         $month = substr($date_,2,2);
 341                         $year = substr($date_,0,2);
 342                 }
 343         }
 344         elseif (strlen($date_) == 8)
 345         {
 346                 if ($how == 0)
 347                 {
 348                         $day = substr($date_,2,2);
 349                         $month = substr($date_,0,2);
 350                         $year = substr($date_,4,4);
 351                 }
 352                 elseif ($how == 1)
 353                 {
 354                         $day = substr($date_,0,2);
 355                         $month = substr($date_,2,2);
 356                         $year = substr($date_,4,4);
 357                 }
 358                 else
 359                 {
 360                         $day = substr($date_,6,2);
 361                         $month = substr($date_,4,2);
 362                         $year = substr($date_,0,4);
 363                 }
 364         }
 365         else
 366                 $year = $month = $day = 0;
 367
 368 //to modify assumption in 2030
 369         if ($date_system == 0)
 370         {
 371                 if ((int)$year < 60)
 372                 {
 373                         $year = "20".$year;
 374                 }
 375                 elseif ((int)$year > 59 && (int)$year < 100)
 376                 {
 377                         $year = "19".$year;
 378                 }
 379         }
 380         if ((int)$year > 9999)
 381         {
 382                 return 0;
 383         }
 384         if ($date_system == 1)
 385                 list($year, $month, $day) = jalali_to_gregorian($year, $month, $day);
 386         else if ($date_system == 2)
 387                 list($year, $month, $day) = islamic_to_gregorian($year, $month, $day);
 388         return $year."-".$month."-".$day;
 389 }// end of function
 390
 391 function date1_greater_date2 ($date1, $date2)
 392 {
 393
 394 /* returns 1 true if date1 is greater than date_ 2 */
 395
 396         $date1 = date2sql($date1);
 397         $date2 = date2sql($date2);
 398         list($year1, $month1, $day1) = explode("-", $date1);
 399         list($year2, $month2, $day2) = explode("-", $date2);
 400
 401         if ($year1 > $year2)
 402         {
 403                 return 1;
 404         }
 405         elseif ($year1 == $year2)
 406         {
 407                 if ($month1 > $month2)
 408                 {
 409                         return 1;
 410                 }
 411                 elseif ($month1 == $month2)
 412                 {
 413                         if ($day1 > $day2)
 414                         {
 415                                 return 1;
 416                         }
 417                 }
 418         }
 419         return 0;
 420 }
 421
 422
 423 function date_diff2 ($date1, $date2, $period)
 424 {
 425
 426 /* expects dates in the format specified in $DefaultDateFormat - period can be one of 'd','w','y','m'
 427 months are assumed to be 30 days and years 365.25 days This only works
 428 provided that both dates are after 1970. Also only works for dates up to the year 2035 ish */
 429
 430         $date1 = date2sql($date1);
 431         $date2 = date2sql($date2);
 432         list($year1, $month1, $day1) = explode("-", $date1);
 433         list($year2, $month2, $day2) = explode("-", $date2);
 434
 435         $stamp1 = mktime(0,0,0, (int)$month1, (int)$day1, (int)$year1);
 436         $stamp2 = mktime(0,0,0, (int)$month2, (int)$day2, (int)$year2);
 437         $difference = $stamp1 - $stamp2;
 438
 439 /* difference is the number of seconds between each date negative if date_ 2 > date_ 1 */
 440
 441         switch ($period)
 442         {
 443                 case "d":
 444                         return (int)($difference / (24 * 60 * 60));
 445                 case "w":
 446                         return (int)($difference / (24 * 60 * 60 * 7));
 447                 case "m":
 448                         return (int)($difference / (24 * 60 * 60 * 30));
 449                 case "s":
 450                         return $difference;
 451                 case "y":
 452                         return (int)($difference / (24 * 60 * 60 * 365.25));
 453                 default:
 454                         Return 0;
 455         }
 456 }
 457
 458 function explode_date_to_dmy($date_)
 459 {
 460         $date = date2sql($date_);
 461         if ($date == "")
 462         {
 463                 $disp = user_date_display();
 464                 echo "<br>Dates must be entered in the format $disp. Sent was $date_<br>";
 465                 exit;
 466         }
 467         list($year, $month, $day) = explode("-", $date);
 468         return array($day, $month, $year);
 469 }
 470
 471 function div($a, $b)
 472 {
 473     return (int) ($a / $b);
 474 }
 475 /* Based on convertor to and from Gregorian and Jalali calendars.
 476    Copyright (C) 2000  Roozbeh Pournader and Mohammad Toossi
 477    Released under GNU General Public License */
 478
 479 function gregorian_to_jalali ($g_y, $g_m, $g_d)
 480 {
 481     $g_days_in_month = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 482     $j_days_in_month = array(31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29);
 483
 484         $gy = $g_y - 1600;
 485         $gm = $g_m - 1;
 486         $gd = $g_d - 1;
 487
 488         $g_day_no = 365 * $gy + div($gy + 3, 4) - div($gy + 99, 100) + div($gy + 399, 400);
 489
 490         for ($i = 0; $i < $gm; ++$i)
 491         $g_day_no += $g_days_in_month[$i];
 492         if ($gm > 1 && (($gy % 4 == 0 && $gy % 100 != 0) || ($gy % 400 == 0)))
 493         /* leap and after Feb */
 494         $g_day_no++;
 495         $g_day_no += $gd;
 496         $j_day_no = $g_day_no - 79;
 497
 498         $j_np = div($j_day_no, 12053); /* 12053 = 365*33 + 32/4 */
 499         $j_day_no %= 12053;
 500
 501         $jy = 979 + 33 * $j_np + 4 * div($j_day_no, 1461); /* 1461 = 365*4 + 4/4 */
 502
 503         $j_day_no %= 1461;
 504
 505         if ($j_day_no >= 366)
 506         {
 507         $jy += div($j_day_no - 1, 365);
 508         $j_day_no = ($j_day_no - 1) % 365;
 509         }
 510
 511         for ($i = 0; $i < 11 && $j_day_no >= $j_days_in_month[$i]; ++$i)
 512         $j_day_no -= $j_days_in_month[$i];
 513         $jm = $i + 1;
 514         $jd = $j_day_no + 1;
 515
 516         return array($jy, $jm, $jd);
 517 }
 518
 519 function jalali_to_gregorian($j_y, $j_m, $j_d)
 520 {
 521     $g_days_in_month = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 522     $j_days_in_month = array(31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29);
 523
 524         $jy = $j_y - 979;
 525         $jm = $j_m - 1;
 526         $jd = $j_d - 1;
 527
 528         $j_day_no = 365 * $jy + div($jy, 33) * 8 + div($jy % 33 + 3, 4);
 529         for ($i = 0; $i < $jm; ++$i)
 530         $j_day_no += $j_days_in_month[$i];
 531
 532         $j_day_no += $jd;
 533
 534         $g_day_no = $j_day_no + 79;
 535
 536         $gy = 1600 + 400 * div($g_day_no, 146097); /* 146097 = 365*400 + 400/4 - 400/100 + 400/400 */
 537         $g_day_no %= 146097;
 538
 539         $leap = true;
 540         if ($g_day_no >= 36525) /* 36525 = 365*100 + 100/4 */
 541         {
 542         $g_day_no--;
 543         $gy += 100 * div($g_day_no,  36524); /* 36524 = 365*100 + 100/4 - 100/100 */
 544         $g_day_no %= 36524;
 545
 546         if ($g_day_no >= 365)
 547                 $g_day_no++;
 548         else
 549                 $leap = false;
 550         }
 551
 552         $gy += 4 * div($g_day_no, 1461); /* 1461 = 365*4 + 4/4 */
 553         $g_day_no %= 1461;
 554
 555         if ($g_day_no >= 366)
 556         {
 557         $leap = false;
 558
 559         $g_day_no--;
 560         $gy += div($g_day_no, 365);
 561         $g_day_no %= 365;
 562         }
 563
 564         for ($i = 0; $g_day_no >= $g_days_in_month[$i] + ($i == 1 && $leap); $i++)
 565         $g_day_no -= $g_days_in_month[$i] + ($i == 1 && $leap);
 566         $gm = $i + 1;
 567         $gd = $g_day_no + 1;
 568
 569         return array($gy, $gm, $gd);
 570 }
 571 /* Based on Hidri Date Script
 572    Released under GNU General Public License */
 573 function gregorian_to_islamic($g_y, $g_m, $g_d)
 574 {
 575         $y = $g_y;
 576         $m = $g_m;
 577         $d = $g_d;
 578         if (($y > 1582) || (($y == 1582) && ($m > 10)) || (($y == 1582) &&
 579                 ($m == 10) && ($d > 14)))
 580         {
 581                 $jd = (int)((1461 * ($y + 4800 + (int)(($m - 14) / 12)))/ 4) +
 582                         (int)((367 * ($m - 2 - 12 * ((int)(($m - 14) / 12)))) / 12) -
 583                         (int)((3 * ((int)(($y + 4900 + (int)(($m - 14) / 12)) / 100))) / 4) + $d - 32075;
 584         }
 585         else
 586         {
 587                 $jd = 367 * $y - (int)((7 * ($y + 5001 + (int)(($m - 9) / 7))) / 4) +
 588                         (int)((275 * $m) / 9) + $d + 1729777;
 589         }
 590         $l = $jd - 1948440 + 10632;
 591         $n = (int)(($l - 1) / 10631);
 592         $l = $l - 10631 * $n + 354;
 593         $j = ((int)((10985 - $l) / 5316)) * ((int)((50 * $l) / 17719)) +
 594                 ((int)($l / 5670)) * ((int)((43 * $l) / 15238));
 595         $l = $l - ((int)((30 - $j) / 15)) * ((int)((17719 * $j) / 50)) -
 596                 ((int)($j / 16)) * ((int)((15238 * $j) / 43)) + 29;
 597         $m = (int)((24 * $l) / 709);
 598         $d = $l - (int)((709 * $m) / 24);
 599         $y = 30 * $n + $j - 30;
 600         return array($y, $m, $d);
 601 }
 602
 603 function islamic_to_gregorian($i_y, $i_m, $i_d)
 604 {
 605         $y = $i_y;
 606         $m = $i_m;
 607         $d = $i_d;
 608
 609         $jd = (int)((11 * $y + 3) / 30) + 354 * $y + 30 * $m - (int)(($m - 1) / 2) + $d + 1948440 - 385;
 610         if ($jd > 2299160)
 611         {
 612                 $l = $jd + 68569;
 613                 $n = (int)((4 * $l) / 146097);
 614                 $l = $l - (int)((146097 * $n + 3) / 4);
 615                 $i = (int)((4000 * ($l + 1)) / 1461001);
 616                 $l = $l - (int)((1461 * $i) / 4) + 31;
 617                 $j = (int)((80 * $l) / 2447);
 618                 $d = $l - (int)((2447 * $j) / 80);
 619                 $l= (int)($j / 11);
 620                 $m = $j + 2 - 12 * $l;
 621                 $y = 100 * ($n - 49) + $i + $l;
 622         }
 623         else
 624         {
 625                 $j = $jd + 1402;
 626                 $k = (int)(($j - 1) / 1461);
 627                 $l = $j - 1461 * $k;
 628                 $n = (int)(($l - 1) / 365) - (int)($l / 1461);
 629                 $i = $l - 365 * $n + 30;
 630                 $j = (int)((80 * $i) / 2447);
 631                 $d = $i - (int)((2447 * $j) / 80);
 632                 $i = (int)($j / 11);
 633                 $m = $j + 2 - 12 * $i;
 634                 $y = 4 * $k + $n + $i - 4716;
 635         }
 636         return array($y, $m, $d);
 637 }
 638 ?>