// Procédures globales du projet
function _WMD(c){var a=c.substring(0,4);var d=new Date(a,eval(c.substring(4,6)+'-1'),c.substring(6,8),c.substring(8,10),c.substring(10,12),c.substring(12,14),c.substring(14,16)+"0");if(eval(a)<100)d.setFullYear(a);return d}
function _DVE(d){return Math.round(((_WMD(d)-_WMD('18000101'))/(1000*3600*24))+1)}
function _WBI(a){if(a%4)return 0;if(a>1582){if(a%100)return 1;if(a%400)return 0}return 1}
function _EVD(e,f){var t=new Array(12);t[0]=31;t[1]=28;t[2]=31;t[3]=30;t[4]=31;t[5]=30;t[6]=31;t[7]=31;t[8]=30;t[9]=31;t[10]=30;t[11]=31;var a=Math.floor((eval(e) + 657071)/365);var x=_WMD('18000101');var y=_WMD(a+'0101')
var z=Math.floor((y-x)/(1000*3600*24))+1;while(z>eval(e)){a--;y=_WMD(a+'0101');z=Math.floor((y-x)/(1000*3600*24))+1}var j=eval(e)-z;var d=_WBI(a);var m=1;var i=0;t[1]=28+d;while(j>=t[i]){j-=t[i];m++;i++}j++;var b=""+a;var n=""+m
if(n.length==1)n="0"+n;var k=""+j;if(k.length==1)k="0"+k;if(f=='A')return b;if(f=='M')return n;if(f=='J')return k;return b+n+k}
function _EVJ(e){var n=_WMD(_EVD(e)).getDay();return n==0?7:n}
function _VAL(v){var r=parseFloat(v);return isNaN(r)?0:r}
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 PROCEDURESGLOBALESNAVIGATEUR_DVJ1(VDD){{var VI=0;VI=_DVE(VDD);return(_EVJ(VI))}}
function PROCEDURESGLOBALESNAVIGATEUR_AJOUTEJOURSN(VWDAT, VNBJ){{var VI=0;VI=_DVE(VWDAT);VI=VI+VNBJ;return(_EVD(VI,'AAAAMMJJ'))}}
function PROCEDURESGLOBALESNAVIGATEUR_CONTROLECB(VNUMCARTE){{if((VNUMCARTE.length!=16)){return(false)}var VI=0;var VJ=0;var VK=0;VK=0;for(VI=1;VI<=15;VI+=2){VJ=_VAL((VNUMCARTE + "").substr(VI-1, 1));VJ=(VJ*2);if((VJ>9)){VJ=(VJ-9)}VK=(VK+VJ)}
for(VI=2;VI<=16;VI+=2){VJ=_VAL((VNUMCARTE + "").substr(VI-1, 1));VK=(VK+VJ)}if(((VK%10)!=0)){return(false)}return(true)}}
function PROCEDURESGLOBALESNAVIGATEUR_DVJ(VDD, VSAI_NATION){{if (VSAI_NATION==undefined) VSAI_NATION=5;{var VI=0;var VJ=0;var VK=0;var VSJOUR="";VI=_DVE(VDD);var VL5="";var VL3="";var VL1="";var VL7="";var VL11="";var VL12=""
VL5="Lundi;Mardi;Mercredi;Jeudi;Vendedi;Samedi;Dimanche";VL3="Monday;Tuesday;Wednesday;Thursday;Friday;Saturday;Sunday";VL1="Montag;Dienstag;Mittwoch;Donnerstag;Freitag;Samstag;Sonntag"
VL7=clWDEncode.sEncodeCharset(unescape("lunes;martes;mi%E9rcoles;jueves;viernes;s%E1bado;domingo"));VL11=clWDEncode.sEncodeCharset(unescape("luned%EC;marted%EC;mercoled%EC;gioved%EC;venerd%EC;sabato;domenica"))
VL12="maandag;dinsdag;woensdag;donderdag;vrijdag;zaterdag;zondag";VJ=_EVJ(VI);switch(VSAI_NATION){case "1":{VSJOUR=_EC(VL1,VJ,";",0)}break;case "3":{VSJOUR=_EC(VL3,VJ,";",0)}break;case "5":{VSJOUR=_EC(VL5,VJ,";",0)}break;case "7":{
VSJOUR=_EC(VL7,VJ,";",0)}break;case "11":{VSJOUR=_EC(VL11,VJ,";",0)}break;case "12":{VSJOUR=_EC(VL12,VJ,";",0)}break}return(VSJOUR)}}}