FCT_INSERTBDDDate
//Create 15-11-2004 VB Tester avec 2004/12/02 et 02.12.2004
function fct_insertBDDDate($Variable)
{
//On calcul le nombre de caractere correpondant au caractere voulu est dans la chaine
$result=count_chars($Variable, 0);
$ar_date="";
for ($i=0; $i < count($result); $i++)
{
//cas de l'espace
if (($i==32)&&($result[$i]==2))
{
$ar_date=explode(" ",$Variable);
break;
}
//cas de la virgule
if (($i==44)&&($result[$i]==2))
{
$ar_date=explode(",",$Variable);
break;
}
//cas du moins
if (($i==45)&&($result[$i]==2))
{
$ar_date=explode("-",$Variable);
break;
}
//cas du point
if (($i==46)&&($result[$i]==2))
{
$ar_date=explode(".",$Variable);
break;
}
//cas de la barre /
if (($i==47)&&($result[$i]==2))
{
$ar_date=explode("/",$Variable);
break;
}
//cas du poit virgule
if (($i==59)&&($result[$i]==2))
{
$ar_date=explode(";",$Variable);
break;
}
}
//en sortie de la on a un tableau contenant les date dans different format d'ecriture ou
//on a une chaine et pas de tableau.
if (sizeof($ar_date)!=3)
{
return "*";
//Date en erreur
}
if ($ar_date[0]>1900)
{
//la date est l'annee YYYYmmdd
if (($ar_date[1]<13)&&($ar_date[1]>0))
{
//c'est le mois
if (($ar_date[2]<32)&&($ar_date[2]>0))
{
return $ar_date[0]."-".$ar_date[1]."-".$ar_date[2];
}
else
return "*";
}
//YYYYddmm
if ((($ar_date[2]<13)&&($ar_date[2]>0))&&(($ar_date[1]<32)&&($ar_date[1]>0)))
{
return $ar_date[0]."-".$ar_date[2]."-".$ar_date[1];
}
//Si c'est pas ca erreur
return "*";
}
if ($ar_date[2]>1900)
{
//la date est l'annee "ddmmYYYY"
if (($ar_date[1]<13)&&($ar_date[1]>0))
{
//c'est le mois
if (($ar_date[0]<32)&&($ar_date[0]>0))
{
return $ar_date[2]."-".$ar_date[1]."-".$ar_date[0];
}
else
return "*";
}
//"mmddYYYY"
if ((($ar_date[0]<13)&&($ar_date[0]>0))&&(($ar_date[1]<32)&&($ar_date[1]>0)))
{
return $ar_date[2]."-".$ar_date[1]."-".$ar_date[0];
}
//si c'est pas ca erreur
return "*";
}
//pas dans le 1 et pas dans le 3 endroit du tab donc une erreur
return "*";
}
La function fct_insertBDDDate sert pour determiner la date qui va être insérer dans la base de donnée .
