0 date1 > date2
* - < 0 date1 < date2
*/
function cmpDate ($p_date,$p_date_oth) {
$l_date=isDate($p_date);
$l2_date=isDate($p_date_oth);
if ($l_date == null || $l2_date == null ) {
echo "erreur date";
return null;
}
$l_adate=explode(".",$l_date);
$l2_adate=explode(".",$l2_date);
$l_mkdate=mktime(0,0,0,$l_adate[1],$l_adate[0],$l_adate[2]);
$l2_mkdate=mktime(0,0,0,$l2_adate[1],$l2_adate[0],$l2_adate[2]);
// si $p_date > $p_date_oth return > 0
return $l_mkdate-$l2_mkdate;
}
/* function IsNumber
* purpose : check if the argument is a number
*
* parm : $p_int
*
* gen nothing
*
* return :
* 1 it's a number
* 0 it is not
*/
function isNumber($p_int) {
if ( strlen (trim($p_int)) == 0 ) return 0;
if (! ereg ("^[0-9]+$",$p_int) ) {
return 0;
} else {
return 1;
}// !ereg
return $p_date;
}
/* function isDate
* Purpose : Verifie qu'une date est bien formaté
* en d.m.y et est valable
* parm :
* - $p_date
* gen :
* - rien
* return:
* - null si la date est invalide ou malformaté
* - $p_date si tout est bon
*
*/
function isDate ( $p_date) {
if ( strlen (trim($p_date)) == 0 ) return null;
if (! ereg ("^[0-9]{1,2}\.[0-9]{1,2}\.20[0-9]{2}",$p_date) ) {
return null;
} else {
$l_date=explode(".",$p_date);
if ( $l_date[2] > 2020 ) {
return null;
}
if ( checkdate ($l_date[1],$l_date[0],$l_date[2]) == false) {
return null;
}
}// !ereg
return $p_date;
}
/* function formatDate($p_date)
* Purpose :
*
* parm :
* -
* gen :
* -
* return:
*/
function formatDate($p_date) {
if ( isDate($p_date)== null) return "null";
return "'".$p_date."'";
}
/* function html_page_start
* Purpose : Default page header for each page
*
* parm :
* - default theme
* - $p_script
* gen :
* - none
* return:
* none
*/
function html_page_start($p_theme,$p_script="")
{
include_once ("postgres.php");
$cn=DbConnect();
$bg="";
$Res=ExecSql($cn,"select the_filestyle from theme
where the_name='".$p_theme."'");
if (pg_NumRows($Res)==0) $style="style.css";
else {
$s=pg_fetch_array($Res,0);
$style=$s['the_filestyle'];
// TO FIX
// Ugly but I cannot change the background color thanks CSS !!!!
$bg="bgcolor=white";
if ($style=="style-aqua.css") $bg="bgcolor=\"#E3F0FF\"";
if ($style=="style-elegant.css") $bg="bgcolor=\"#E3F0FF\"";
}
echo '';
echo "";
echo "
Gnu Accountancy
";
echo "";
}
/* function html_page_stop()
* Purpose :
*
* parm :
* -
* gen :
* -
* return:
*/
function html_page_stop()
{
echo "";
echo "";
}
/* function html_button_logout
* Purpose :
*
* parm :
* -
* gen :
* -
* return:
*/
function html_button_logout() {
echo " Logout ";
}
/* function NoAccess
* Purpose :
*
* parm :
* -
* gen :
* -
* return:
*/
function NoAccess() {
echo "
";
echo "