php_library/fboprime/dt8.inc

<?php
//$Header: /hl/cvsroots/gpl01/gpl01/webprojs/fboprime/sw/phplib/dt8.inc,v 1.2 2006/04/14 07:54:49 dashley Exp $
//--------------------------------------------------------------------------------------------------------------
//dt8.inc--FboPrime Functions Manipulating DT8 Data Type
//Copyright (C) 2006  David T. Ashley
//
//This program is free software; you can redistribute it and/or
//modify it under the terms of the GNU General Public License
//as published by the Free Software Foundation; either version 2
//of the License, or (at your option) any later version.
//
//This program is distributed in the hope that it will be useful,
//but WITHOUT ANY WARRANTY; without even the implied warranty of
//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//GNU General Public License for more details.
//
//You should have received a copy of the GNU General Public License
//along with this program; if not, write to the Free Software
//Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
//********************************************************************************
//This contains functions that deal with the DT8 data type (calenadar dates in
//the form "YYYYMMDD", for example "20060415".
//--------------------------------------------------------------------------------------------------------------
require_once("config.inc");
require_once("confighard.inc");
require_once("datefunc.inc");
//--------------------------------------------------------------------------------------------------------------
//
//Returns (1) if the DT8 is valid, or (0) otherwise.  Additionally, if valid, the components
//are returned as integers, otherwise the page load date is returned.  Here, "valid" is defined as:
//  a)Right type.
//  b)Syntactically valid.
//  c)Date is within minimums and maximums of calendaring logic.
//  d)Date is consistent with number of months in year and number of days in affected month.
//
//Parameters:
//   dt8                        :   Value to examine.
//   valid                      :   (Output) 1 if valid, 0 otherwise.
//   components                 :   (Output) Defined only if valid,
//                                  [0] Year, integer.
//                                  [1] Month
//                                  [2] Day
//
function DT8_extract_components($dt8, &$valid, &$components)
   {
   global $GLOBAL_stime_year;
   global $GLOBAL_stime_month;
   global $GLOBAL_stime_day;

   //Define the output array to be today's date, just in case the parse fails.
   $components = array ($GLOBAL_stime_year, $GLOBAL_stime_month, $GLOBAL_stime_day);

   //Similarly, define $valid to be 0 so that a return creates an invalid flag.
   $valid = 0;

   if (!is_string($dt8))                     //Must be right type.
      return;

   if (strlen($dt8) != 8)                    //Must be right length.
      return;

   //Extract characters.
   $c0 = SubStr($dt8, 0, 1);
   $c1 = SubStr($dt8, 1, 1);
   $c2 = SubStr($dt8, 2, 1);
   $c3 = SubStr($dt8, 3, 1);
   $c4 = SubStr($dt8, 4, 1);
   $c5 = SubStr($dt8, 5, 1);
   $c6 = SubStr($dt8, 6, 1);
   $c7 = SubStr($dt8, 7, 1);

   //Check the character sets.  Conditions below are necessary but not sufficient.
   //
   if (strpos("2"             , $c0) === FALSE)   //Thousands of  year must be 2.
      return;
   if (strpos("0"             , $c1) === FALSE)   //Hundreds of year must be 0.
      return;
   if (strpos("0123456789"    , $c2) === FALSE)   //Tens of year may be any digit.
      return;
   if (strpos("0123456789"    , $c3) === FALSE)   //Ones of year may be any digit.
      return;
   if (strpos("01"            , $c4) === FALSE)   //Tens of month must be 0 or 1.
      return;
   if (strpos("0123456789"    , $c5) === FALSE)   //Ones of month may be any digit.
      return;
   if (strpos("0123"          , $c6) === FALSE)   //Tens of day must be 0-3.
      return;
   if (strpos("0123456789"    , $c7) === FALSE)   //Ones of day may be any digit.
      return;

   //Grab the values.
   $val0 = strpos("0123456789", $c0);
   $val1 = strpos("0123456789", $c1);
   $val2 = strpos("0123456789", $c2);
   $val3 = strpos("0123456789", $c3);
   $val4 = strpos("0123456789", $c4);
   $val5 = strpos("0123456789", $c5);
   $val6 = strpos("0123456789", $c6);
   $val7 = strpos("0123456789", $c7);

   //Calculate the integers representing year, month, and day.
   $year_int  = $val0 * 1000 + $val1 * 100 + $val2 * 10 + $val3;
   $month_int =                              $val4 * 10 + $val5;
   $day_int   =                              $val6 * 10 + $val7;

   //Confine year.
   if (($year_int < CONFIGHARD_DATEFUNC_MINYEAR) || ($year_int >= CONFIGHARD_DATEFUNC_MAXYEAR))
     return;

   //Confine month.
   if (($month_int < 1) || ($month_int > 12))
      return;

   //Figure out how many days are supposed to be in that month, anyway.
   $ndays = DATEFUNC_year_month_days($year_int, $month_int);

   //Confine days.
   if (($day_int < 1) || ($day_int > $ndays))
      return;

   //We have a confirmed good date.  Return the info.
   $valid         = 1;
   $components[0] = $year_int;
   $components[1] = $month_int;
   $components[2] = $day_int;
   }
//
//--------------------------------------------------------------------------------------------------------------
//
//Makes a DT8 from components of integer year, integer month, and integer day.
//
function DT8_make_from_ints($year, $month, $day)
   {
   return(sprintf("%04d", $year) . sprintf("%02d", $month) . sprintf("%02d", $day));
   }
//
//--------------------------------------------------------------------------------------------------------------
//End of $RCSfile: dt8.inc,v $.
//--------------------------------------------------------------------------------------------------------------
?>
1	dashley	35	<?php
2			//$Header: /hl/cvsroots/gpl01/gpl01/webprojs/fboprime/sw/phplib/dt8.inc,v 1.2 2006/04/14 07:54:49 dashley Exp $
3			//--------------------------------------------------------------------------------------------------------------
4			//dt8.inc--FboPrime Functions Manipulating DT8 Data Type
5			//Copyright (C) 2006 David T. Ashley
6			//
7			//This program is free software; you can redistribute it and/or
8			//modify it under the terms of the GNU General Public License
9			//as published by the Free Software Foundation; either version 2
10			//of the License, or (at your option) any later version.
11			//
12			//This program is distributed in the hope that it will be useful,
13			//but WITHOUT ANY WARRANTY; without even the implied warranty of
14			//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15			//GNU General Public License for more details.
16			//
17			//You should have received a copy of the GNU General Public License
18			//along with this program; if not, write to the Free Software
19			//Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20			//********************************************************************************
21			//This contains functions that deal with the DT8 data type (calenadar dates in
22			//the form "YYYYMMDD", for example "20060415".
23			//--------------------------------------------------------------------------------------------------------------
24			require_once("config.inc");
25			require_once("confighard.inc");
26			require_once("datefunc.inc");
27			//--------------------------------------------------------------------------------------------------------------
28			//
29			//Returns (1) if the DT8 is valid, or (0) otherwise. Additionally, if valid, the components
30			//are returned as integers, otherwise the page load date is returned. Here, "valid" is defined as:
31			// a)Right type.
32			// b)Syntactically valid.
33			// c)Date is within minimums and maximums of calendaring logic.
34			// d)Date is consistent with number of months in year and number of days in affected month.
35			//
36			//Parameters:
37			// dt8 : Value to examine.
38			// valid : (Output) 1 if valid, 0 otherwise.
39			// components : (Output) Defined only if valid,
40			// [0] Year, integer.
41			// [1] Month
42			// [2] Day
43			//
44			function DT8_extract_components($dt8, &$valid, &$components)
45			{
46			global $GLOBAL_stime_year;
47			global $GLOBAL_stime_month;
48			global $GLOBAL_stime_day;
49
50			//Define the output array to be today's date, just in case the parse fails.
51			$components = array ($GLOBAL_stime_year, $GLOBAL_stime_month, $GLOBAL_stime_day);
52
53			//Similarly, define $valid to be 0 so that a return creates an invalid flag.
54			$valid = 0;
55
56			if (!is_string($dt8)) //Must be right type.
57			return;
58
59			if (strlen($dt8) != 8) //Must be right length.
60			return;
61
62			//Extract characters.
63			$c0 = SubStr($dt8, 0, 1);
64			$c1 = SubStr($dt8, 1, 1);
65			$c2 = SubStr($dt8, 2, 1);
66			$c3 = SubStr($dt8, 3, 1);
67			$c4 = SubStr($dt8, 4, 1);
68			$c5 = SubStr($dt8, 5, 1);
69			$c6 = SubStr($dt8, 6, 1);
70			$c7 = SubStr($dt8, 7, 1);
71
72			//Check the character sets. Conditions below are necessary but not sufficient.
73			//
74			if (strpos("2" , $c0) === FALSE) //Thousands of year must be 2.
75			return;
76			if (strpos("0" , $c1) === FALSE) //Hundreds of year must be 0.
77			return;
78			if (strpos("0123456789" , $c2) === FALSE) //Tens of year may be any digit.
79			return;
80			if (strpos("0123456789" , $c3) === FALSE) //Ones of year may be any digit.
81			return;
82			if (strpos("01" , $c4) === FALSE) //Tens of month must be 0 or 1.
83			return;
84			if (strpos("0123456789" , $c5) === FALSE) //Ones of month may be any digit.
85			return;
86			if (strpos("0123" , $c6) === FALSE) //Tens of day must be 0-3.
87			return;
88			if (strpos("0123456789" , $c7) === FALSE) //Ones of day may be any digit.
89			return;
90
91			//Grab the values.
92			$val0 = strpos("0123456789", $c0);
93			$val1 = strpos("0123456789", $c1);
94			$val2 = strpos("0123456789", $c2);
95			$val3 = strpos("0123456789", $c3);
96			$val4 = strpos("0123456789", $c4);
97			$val5 = strpos("0123456789", $c5);
98			$val6 = strpos("0123456789", $c6);
99			$val7 = strpos("0123456789", $c7);
100
101			//Calculate the integers representing year, month, and day.
102			$year_int = $val0 * 1000 + $val1 * 100 + $val2 * 10 + $val3;
103			$month_int = $val4 * 10 + $val5;
104			$day_int = $val6 * 10 + $val7;
105
106			//Confine year.
107			if (($year_int < CONFIGHARD_DATEFUNC_MINYEAR) \|\| ($year_int >= CONFIGHARD_DATEFUNC_MAXYEAR))
108			return;
109
110			//Confine month.
111			if (($month_int < 1) \|\| ($month_int > 12))
112			return;
113
114			//Figure out how many days are supposed to be in that month, anyway.
115			$ndays = DATEFUNC_year_month_days($year_int, $month_int);
116
117			//Confine days.
118			if (($day_int < 1) \|\| ($day_int > $ndays))
119			return;
120
121			//We have a confirmed good date. Return the info.
122			$valid = 1;
123			$components[0] = $year_int;
124			$components[1] = $month_int;
125			$components[2] = $day_int;
126			}
127			//
128			//--------------------------------------------------------------------------------------------------------------
129			//
130			//Makes a DT8 from components of integer year, integer month, and integer day.
131			//
132			function DT8_make_from_ints($year, $month, $day)
133			{
134			return(sprintf("%04d", $year) . sprintf("%02d", $month) . sprintf("%02d", $day));
135			}
136			//
137			//--------------------------------------------------------------------------------------------------------------
138			//End of $RCSfile: dt8.inc,v $.
139			//--------------------------------------------------------------------------------------------------------------
140			?>