function makeCalendar(as_modele,as_name,as_first,as_today,as_min,as_max,as_trigger,as_input,as_position,as_handler,as_lang){var ls_test="";ls_test=/^([0-6]{0,1},){6}[0-6]{0,1}$/;if(!ls_test.test(as_modele)){return false;}
ls_test=/\s/;if(ls_test.test(as_name)){return false;}
ls_test=/^[0-6]{1}$/;if(!ls_test.test(as_first)){return false;}
ls_test=/^(0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])[-/.](19|20)\d\d$/;if(!ls_test.test(as_today)){return false;}
if(!ls_test.test(as_min)){return false;}
if(!ls_test.test(as_max)){return false;}
ls_test=/\s/;if(ls_test.test(as_trigger)){return false;}
ls_test=/\s/;if(ls_test.test(as_input)){return false;}
var ls_prepareCalendar="";var ls_makeCalendar="";var ls_valide="";var ls_TTSEL_DATE="";var ls_TTWEEKEND="";var ls_selection="";var ls_unJour="";var li_nbJoursActifs=0;var la_tParam=as_modele.split(",");var la_tExec=new Array(la_tParam.length);for(li_i=0;li_i<la_tParam.length;li_i++){la_tExec[li_i]=la_tParam[li_i]==''?0:(1,li_nbJoursActifs+=1);}
if(!li_nbJoursActifs){document.write("<br />Arg as_modele "+as_modele+" ("+as_name+") non conforme.<br />");return false;}
switch(as_lang){case"FR":ls_selection="S\" + String.fromCharCode(233) + \"lectionnez un ";ls_unJour="jour";break;default:ls_selection="Select a ";ls_unJour="day";}
for(li_i=0;li_i<la_tExec.length;li_i++){ls_valide=la_tExec[li_i]?ls_valide+="date.getDay() != "+li_i+" && ":ls_valide;ls_TTSEL_DATE=(la_tExec[li_i]&&li_nbJoursActifs==1)?"\"+Calendar._DN["+li_i+"]+\"":ls_TTSEL_DATE;ls_TTSEL_DATE=(la_tExec[li_i]&&(li_nbJoursActifs>1&&li_nbJoursActifs<5))?ls_TTSEL_DATE+="\"+Calendar._SDN["+li_i+"]+\", ":ls_TTSEL_DATE;ls_TTWEEKEND=la_tExec[li_i]?ls_TTWEEKEND+=li_i+",":ls_TTWEEKEND;}
ls_valide=ls_valide.substring(ls_valide.length-3,ls_valide.length)=="&& "?ls_valide.substring(0,ls_valide.length-3):ls_valide;ls_valide=ls_valide!=""?"("+ls_valide+") || ":ls_valide;ls_TTSEL_DATE=ls_selection+ls_TTSEL_DATE;ls_TTSEL_DATE=ls_TTSEL_DATE.substring(ls_TTSEL_DATE.length-2,ls_TTSEL_DATE.length)==", "?ls_TTSEL_DATE.substring(0,ls_TTSEL_DATE.length-2):ls_TTSEL_DATE;ls_TTSEL_DATE=li_nbJoursActifs>=5?ls_TTSEL_DATE+=ls_unJour:ls_TTSEL_DATE;ls_TTWEEKEND=ls_TTWEEKEND.substring(ls_TTWEEKEND.length-2,ls_TTWEEKEND.length)==", "?ls_TTWEEKEND.substring(0,ls_TTWEEKEND.length-2):ls_TTWEEKEND;ls_makeCalendar=""+"<script type=\"text/javascript\">"+"\n//<![CDATA[\n"+"Calendar._TT[\"SEL_DATE\"] = \""+ls_TTSEL_DATE+"\";"+"Calendar._TT[\"WEEKEND\"] = \""+ls_TTWEEKEND+"\";"+"\n//]]>\n"+"</script>\n\n";ls_makeCalendar+="<script type=\"text/javascript\">"+"\n//<![CDATA[\n"+"today = new Date(\""+as_today+"\");"+"today = today.getTime();"+"d"+as_name+"Min = new Date(\""+as_min+"\");"+"d"+as_name+"MinY= d"+as_name+"Min.getFullYear();"+"d"+as_name+"MinT= d"+as_name+"Min.getTime();"+"d"+as_name+"Max = new Date(\""+as_max+"\");"+"d"+as_name+"MaxY= d"+as_name+"Max.getFullYear();"+"d"+as_name+"MaxT= d"+as_name+"Max.getTime();"+"Calendar.setup({"+"inputField : \""+as_input+"\","+"ifFormat : \"%m/%d/%Y\","+"button : \""+as_trigger+"\","+"onClose : function() {"+as_handler+" this.hide();},"+"align : \""+as_position+"\","+"singleClick : true,"+"range : [d"+as_name+"MinY,d"+as_name+"MaxY],"+"firstDay : "+as_first+","+"firstDate : \""+as_min+"\","+"dateStatusFunc : function (date) {"+"d"+as_name+"Tmp = date.getTime();"+"if("+ls_valide+" (d"+as_name+"Tmp < d"+as_name+"MinT || d"+as_name+"Tmp > d"+as_name+"MaxT) ) {"+"return (d"+as_name+"Tmp != today) ? true : false;"+"} else {"+"return false;"+"}"+"}"+"});"+"\n//]]>\n"+"</script>";return ls_makeCalendar;}