// Procédures globales du projet
function _ASC(c){return(c.charCodeAt(0))}
function _MI3(c,n,l){return c.substring(n-1,n+l-1);}// Fonction générale de formatage
function EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,nBase){var szRes=Math.abs(Math.round(fVal)).toString(nBase);var nLgr=szRes.length;if(bSigne||(fVal<0))nLgr++;if(bMillier){var szRes2=""
for(var i=0;i<Math.ceil(szRes.length/3);i++){szRes2=szRes.substring(szRes.length-(3*(i+1)),szRes.length-(3*i))+" "+szRes2;nLgr++}szRes=szRes2.substring(0,szRes2.length-1);nLgr--}if(nLgr<eval(nTaille)){if(bCadrageGauche){while(nLgr<eval(nTaille)){
szRes+=" ";nLgr++}}else{if(bZero){while(nLgr<eval(nTaille)){if(bMillier&&(((nLgr)%4)==0))szRes=" "+szRes;else szRes="0"+szRes;nLgr++}}else{while(nLgr<eval(nTaille)){szRes=" "+szRes;nLgr++}}}}if(bSigne||(fVal<0)){var n=0
while((szRes.charAt(n)==" ")&&(n<nLgr))n++;var szSgn="+";if(fVal<0)szSgn="-";szRes=szRes.substring(0,n)+szSgn+szRes.substring(n,szRes.length)}return szRes}
function EXE_NVC_d(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,10)}
function EXE_NVC_x(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,16)}
function EXE_NVC_o(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,8)}
function EXE_NVC_e(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){var nExp=Math.round(Math.log(Math.abs(fVal))/Math.LN10);var fPuiss=Math.pow(10,nExp);var szRes=EXE_NVC_f(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,(fVal/fPuiss))
while(szRes.charAt(szRes.length-1)==" ")szRes=szRes.substring(0,szRes.length-1);szRes+="e";if(nExp>=0)szRes+="+";else szRes+="-";if(nExp<10)szRes+="0";szRes+=Math.abs(nExp);while(szRes.length<nTaille)if(bCadrageGaucHe)szRes+=" ";else szRes=" "+szRes
return szRes}
function EXE_NVC_f(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){var fEnt=Math.floor(fVal);if(fVal<0)fEnt+=1;var szDec=""+(Math.round((Math.abs(fVal)-Math.floor(Math.abs(fVal)))*Math.pow(10,nPrec))/Math.pow(10,nPrec))
szDec=szDec.substring(2,szDec.length);var szRes=EXE_NVC_d(bCadrageGauche,bSigne,bZero,nTaille-(nPrec+1),nPrec,bMillier,fEnt);if(bCadrageGauche)while(szRes.charAt(szRes.length-1)==" ")szRes=szRes.substring(0,szRes.length-1)
while(szRes.charAt(0)==" ")szRes=szRes.substr(1);if(nPrec>0){szRes+=".";while(szDec.length<nPrec)szDec+="0";szRes+=szDec.substring(0,nPrec)}while(szRes.length<nTaille)if(bCadrageGauche)szRes+=" ";else szRes=" "+szRes;return szRes}
function EXE_NVC_D(bCadrageGauche,bSigne,bZero,nTaille,nPreC,bMillier,fVal){return EXE_NVC_d(bcadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function EXE_NVC_E(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC_e(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function EXE_NVC_O(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC_o(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function EXE_NVC_X(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){var szRes = EXE_NVC_x(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal);return szRes.toUpperCase()}
function EXE_NVC_F(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC_f(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function _NVC(fVal,szFormat){if(isNaN(fVal))return fVal;var bCadrageGauche=false;var bSigne=false;var bZero=false;var nTaille=0;var nPrec=0;var szType="f";var bMillier=false;if(szFormat.charAt(0)=="-"){bCadrageGauche=true
szFormat=szFormat.substring(1,szFormat.length)}if(szFormat.charAt(0)=="+"){bSigne=true;szFormat=szFormat.substring(1,szFormat.length)}if(szFormat.charAt(0)=="0"){bZero=true;szFormat=szFormat.substring(1,szFormat.length)}
if((szFormat.charAt(szFormat.length-1)=="s")||(szFormat.charAt(szFormat.length-1)=="S")){bMillier=true;szFormat=szFormat.substring(0,szFormat.length-1)}szType=szFormat.charAt(szFormat.length-1);szFormat=szFormat.substring(0,szFormat.length-1)
if((szType!="d")&&(szType!="e")&&(szType!="f")&&(szType!="o")&&(szType!="x")&&(szType!="D")&&(szType!="E")&&(szType!="F")&&(szType!="O")&&(szType!="X"))return"";nTaille=parseInt(szFormat)
if(szFormat.indexOf(".")!=-1)nPrec=parseInt(szFormat.substring(szFormat.indexOf(".")+1,szFormat.length));else{var szEnt=""+fVal;var szDec=""+fVal;var nPosPt=szDec.indexOf(".");if(nPosPt!=-1){szDec=szDec.substring(nPosPt+1)
szEnt=szEnt.substring(nPosPt-1);nPrec=nTaille-(szEnt.length+1)}}return eval("EXE_NVC_"+szType+"("+bCadrageGauche+","+bSigne+","+bZero+","+nTaille+","+nPrec+","+bMillier+","+fVal+")")}
function _VAL(v){var r=parseFloat(v);return isNaN(r)?0:r}
function _DRO(c,n){	return c.substring(c.length-n,c.length);}// EXE_ExtraitChaine
function _EC(c,p,s,n){if (!(n == 1)){var d=-s.length;for(var i=0;i<p-1;i++){d=c.indexOf(s,d+s.length);if(d==-1)return(p==1?c:"\b")}var f=c.indexOf(s,d+s.length);if(f==-1)f=c.length;return c.substring(d+s.length,f)}else{var d = c.length
for(var i=0;i<p-1;i++){d = c.lastIndexOf(s, d - 1);if (d == -1)	return (p==1?c:"\b")}var f = c.lastIndexOf(s, d - 1);if (f == -1)return c.substr(0, d);return c.substr(f + 1, d - f - 1)}}
function PROCEDURESGLOBALESDEGEDOXNAVIGATEUR_FMTH(VAH ){{var VI=0;var VHFMT="";var VTH=VAH.length;var VCH=0;var VNH="";var VSEP="";var VERR=false;VSEP="";VNH="";for(VI=1;VI<=VTH;VI++){VCH=_ASC(_MI3(VAH,VI,1));if(((VCH>=48)&&(VCH<=57))){
VNH=VNH+_MI3(VAH,VI,1)}else {;if((VSEP=="")){VSEP=":";VNH=VNH+VSEP}}}if((VSEP=="")){VTH=VNH.length;switch(VTH){case 1:{VHFMT=(_NVC(Math.abs(_VAL(VNH)),"02d")+":00")}break;case 2:{VHFMT=(_NVC(Math.abs(_VAL(VNH)),"02d")+":00")}break;case 3:{
VHFMT=((_NVC(Math.abs(_VAL(VNH.substring(0,1))),"02d")+":")+_NVC(Math.abs(_VAL(_DRO(VNH,2))),"02d"))}break;case 4:{VHFMT=((_NVC(Math.abs(_VAL(VNH.substring(0,2))),"02d")+":")+_NVC(Math.abs(_VAL(_DRO(VNH,2))),"02d"))}break;case 5:{
VHFMT=((_NVC(Math.abs(_VAL(VNH.substring(0,2))),"02d")+":")+_NVC(Math.abs(_VAL(_MI3(VNH,3,2))),"02d"))}break}}else {;if((_EC(VNH,2,":",0).length==1)){VNH=VNH+"0"}
VHFMT=((_NVC(Math.abs(_VAL(_EC(VNH,1,":",0))),"02d")+":")+_NVC(Math.abs(_VAL(_EC(VNH,2,":",0))),"02d"))}VERR=false;if((_VAL(_EC(VHFMT,1,":",0))>23)){VHFMT=("23:"+_EC(VHFMT,2,":",0));VERR=true}if((_VAL(_EC(VHFMT,2,":",0))>59)){
VHFMT=(_EC(VHFMT,1,":",0)+":59");VERR=true}if(VERR){alert(((VAH+" => ")+VHFMT))}return(VHFMT)}}