1) { unlink("$path/$file") ; } } } closedir($handle) ; } // --- Saisir la date -------------------------------------------------- $date = mktime() ; $ij0 = date("j", $date) ; $im0 = date("m", $date) ; $ia0 = date("Y", $date) ; // --- Noms des fichiers parametres (courant et sauvegarde) ------------ $hms = date("H-i-s") ; $f = "$repertoire/calendrier/ftmp/F".$hms.".txt" ; $f2 = "$repertoire/calendrier/ftmp/Fsave".$hms.".txt" ; // --- Initialiser des parametres -------------------------------------- $icode = "1" ; $ij = $ij0 ; $im = $im0 ; $ia = $ia0 ; $mjd = "000000" ; $mjd2 = "000000" ; $epoqj = "0000.000" ; $epoqb = "0000.000" ; $mil = "0000" ; $nj = "000"; $njinv = "000"; $dj = "0000000.0" ; $njsem = "00000000" ; $nsem = "00" ; // --- Ecrire les parametres dans le fichier courant ------------------- echo "f : $f"; ($nomfich = fopen ($f, "w+"))|| die("

$f : impossible de créer le fichier"); $var = fputs($nomfich, $icode."\n") ; $var = fputs($nomfich, $ij."\n") ; $var = fputs($nomfich, $im."\n") ; $var = fputs($nomfich, $ia."\n") ; $var = fputs($nomfich, $mjd."\n") ; $var = fputs($nomfich, $mjd2."\n") ; $var = fputs($nomfich, $epoqj."\n") ; $var = fputs($nomfich, $epoqb."\n") ; $var = fputs($nomfich, $mil."\n") ; $var = fputs($nomfich, $nj."\n") ; $var = fputs($nomfich, $njinv."\n") ; $var = fputs($nomfich, $dj."\n") ; $var = fputs($nomfich, $njsem."\n") ; $var = fputs($nomfich, $nsem) ; fclose ($nomfich) ; // --- Lancer le programme datconvx ------------------------------------ $command = "$repertoire/calendrier/datconvx ".$f ; system($command)||die ("

impossible executer commande $command") ; // --- Lire les parametres dans le fichier courant --------------------- $nomfich = fopen ($f, "r") ; $icode = fgets($nomfich, 3) ; $ij = fgets($nomfich, 4) ; $im = fgets($nomfich, 4) ; $ia = fgets($nomfich, 6) ; $mjd = fgets($nomfich, 8) ; $mjd2 = fgets($nomfich, 8) ; $epoqj = fgets($nomfich, 10) ; $epoqb = fgets($nomfich, 10) ; $mil = fgets($nomfich, 6) ; $nj = fgets($nomfich, 5) ; $njinv = fgets($nomfich, 5) ; $dj = fgets($nomfich, 11) ; $njsem = fgets($nomfich, 10) ; $nsem = fgets($nomfich, 4) ; fclose ($nomfich) ; // --- Ecrire les parametres dans le fichier sauvegarde ---------------- $savfich = fopen ($f2, "w+") ; $var = fputs($savfich, $icode) ; $var = fputs($savfich, $ij) ; $var = fputs($savfich, $im) ; $var = fputs($savfich, $ia) ; $var = fputs($savfich, $mjd) ; $var = fputs($savfich, $mjd2) ; $var = fputs($savfich, $epoqj) ; $var = fputs($savfich, $epoqb) ; $var = fputs($savfich, $mil) ; $var = fputs($savfich, $nj) ; $var = fputs($savfich, $njinv) ; $var = fputs($savfich, $dj) ; $var = fputs($savfich, $njsem) ; $var = fputs($savfich, $nsem) ; fclose ($savfich) ; } // ===================================================================== // SI PASSAGES SUIVANTS -> LANCER LE CYCLE : SAISIE + CALCUL + AFFICHAGE // ===================================================================== else { // --- Recuperer les noms des fichiers parametres ---------------------- $f = $_POST["fich"] ; $f2 = $_POST["fich2"] ; echo "f : $f
"; // --- Verifier la presence des fichiers parametres -------------------- if ( !file_exists($f) ) { echo '' ; echo '' ; exit() ; } // --- Initialiser les parametres -------------------------------------- $ij = "00" ; $im = "00" ; $ia = "0000" ; $mjd = "000000" ; $mjd2 = "000000" ; $epoqj = "0000.000" ; $epoqb = "0000.000" ; $mil = "0000" ; $nj = "000"; $njinv = "000"; $dj = "0000000.0" ; $njsem = "00" ; $nsem = "00000000" ; // --- Recuperer les valeurs des parametres en fonction du choix ------- switch ($choix) { case "1" : $ij = $_POST["jour"] ; $im = $_POST["mois"] ; $ia = $_POST["an"] ; break ; case "2" : $mjd = $_POST["mjd1"] ; $mjd2 = $_POST["mjd2"] ; break ; case "3" : $epoqj = $_POST["epoqj"] ; $epoqb = $_POST["epoqb"] ; break ; case "4" : $mil = $_POST["mil"] ; $nj = $_POST["nj"] ; $njinv = $_POST["njinv"] ; break ; default : echo '' ; echo '' ; exit() ; } // --- Ecrire les parametres dans le fichier courant ------------------- $icode = $_POST["choix"] ; $nomfich = fopen ($f, "w+") || die ("

impossible ecrire dans fichier $f") ; $var = fputs($nomfich, "$icode\n") ; $var = fputs($nomfich, "$ij\n") ; $var = fputs($nomfich, "$im\n") ; $var = fputs($nomfich, "$ia\n") ; $var = fputs($nomfich, "$mjd\n") ; $var = fputs($nomfich, "$mjd2\n") ; $var = fputs($nomfich, "$epoqj\n") ; $var = fputs($nomfich, "$epoqb\n") ; $var = fputs($nomfich, "$mil\n") ; $var = fputs($nomfich, "$nj\n") ; $var = fputs($nomfich, "$njinv\n") ; $var = fputs($nomfich, "$dj\n") ; $var = fputs($nomfich, $njsem."\n") ; $var = fputs($nomfich, $nsem."\n") ; fclose ($nomfich) ; // --- Lancer le programme datconvx ------------------------------------ $command = "$repertoire/calendrier/datconvx ".$f ; system($command) || die("

execution de $command impossible") ; // --- Lire les parametres dans le fichier courant --------------------- ($nomfich = fopen ($f, "r")) || die ("

impossible de lire le fichier $f") ; $icode = fgets($nomfich, 3) ; $ij = fgets($nomfich, 4) ; $im = fgets($nomfich, 4) ; $ia = fgets($nomfich, 6) ; $mjd = fgets($nomfich, 8) ; $mjd2 = fgets($nomfich, 8) ; $epoqj = fgets($nomfich, 10) ; $epoqb = fgets($nomfich, 10) ; $mil = fgets($nomfich, 6) ; $nj = fgets($nomfich, 5) ; $njinv = fgets($nomfich, 5) ; $dj = fgets($nomfich, 11) ; $njsem = fgets($nomfich, 10) ; $nsem = fgets($nomfich, 4) ; fclose ($nomfich) ; // --- Il y a une erreur : Message et Restauration des dates valides --- if ($icode[0] == '0') { echo '' ; $nomfich2 = fopen ($f2, "r") ; $icode = fgets($nomfich2, 3) ; $ij = fgets($nomfich2, 4) ; $im = fgets($nomfich2, 4) ; $ia = fgets($nomfich2, 6) ; $mjd = fgets($nomfich2, 8) ; $mjd2 = fgets($nomfich2, 8) ; $epoqj = fgets($nomfich2, 10) ; $epoqb = fgets($nomfich2, 10) ; $mil = fgets($nomfich2, 6) ; $nj = fgets($nomfich2, 5) ; $njinv = fgets($nomfich2, 5) ; $dj = fgets($nomfich2, 11) ; $njsem = fgets($nomfich2, 10) ; $nsem = fgets($nomfich2, 4) ; fclose ($nomfich2) ; } // --- Il n'y a pas d'erreur : Sauvegarder les nouvelles valeurs ------- else { ($savfich = fopen ($f2, "w+")) || die ("

impossible ouvrir fichier $f2"); $var = fputs($savfich, $icode) ; $var = fputs($savfich, $ij) ; $var = fputs($savfich, $im) ; $var = fputs($savfich, $ia) ; $var = fputs($savfich, $mjd) ; $var = fputs($savfich, $mjd2) ; $var = fputs($savfich, $epoqj) ; $var = fputs($savfich, $epoqb) ; $var = fputs($savfich, $mil) ; $var = fputs($savfich, $nj) ; $var = fputs($savfich, $njinv) ; $var = fputs($savfich, $dj) ; $var = fputs($savfich, $njsem) ; $var = fputs($savfich, $nsem) ; fclose ($savfich) ; } } ?>

CONVERSION ENTRE DATATIONS

Date calendaire :   jour mois    année $j" ; else echo "$j" ; } ?> $m" ; else echo "$m" ; } ?>   $a" ; else echo "$a" ; } ?>   Date Julienne Modifiée :  MJD MJD2   Epoque : Julienne Besselienne   Jour de l'année :   année jour   inverse $a " ; else echo "$a" ; } ?>    $n" ; else echo "$n" ; } ?> Jour :  Semaine :    Date Julienne :