function dateToTb(d,ho){
    var mt = d.getMonth();
    var yer = d.getFullYear();
    return cre8Tb(mt,yer,getPrem(mt,yer),ho);
}
function selToTb(){
    var hau = new Date();
    var tbArg = new Array();
    if(document.frmDipsoCal.selDipsoCal.options.length > 0){
        tbArg = (document.frmDipsoCal.selDipsoCal.options[document.frmDipsoCal.selDipsoCal.options.selectedIndex].value).split(",");
        var month =tbArg[0];
        var year = tbArg[1];
        hoy=null;
        if(hau.getMonth() == month && hau.getFullYear() == year){
            cre8Tb(month,year,getPrem(month,year),hau.getDate());
        }else{
            cre8Tb(month,year,getPrem(month,year),hoy);
        }
    }
}
function cre8Tb(mm,aaaa,prem,hoy){
    var strF = str1+str8+"'tbDispoCal'"+str12+str10+"\n"+str3+str6+str7+str8+"'mAnnee'"+str12+str10+tbmonth[mm]+str12+aaaa+str11+str4;
    strF += str3;
    for(var joursem=0;joursem<tbabrevday.length;joursem++){
        strF += str6+str8+"'jSmne'"+str12+str10+tbabrevday[joursem]+str11;
    }
    strF += str4;
    for(var lignes=0,debut=(-prem+1),bascule=false;lignes<6;lignes++){
        strF += str3;
        for(jour=0;jour<7;jour++){
            if(lignes==0 && jour==prem){
                    bascule=true;
            }
            if(bascule){
                var dat = new Date(aaaa,mm,debut);
                var strLib = tbday[dat.getDay()]+str12+debut+str12+tbmonth[mm]+str12+aaaa+"'";
                if(hoy != "" && debut == hoy){
                    strF +=str6+str13+"'"+debut+"_"+mm+"_"+aaaa+"'"+str12+str8+setClass((debut-1),mm,aaaa)+str12+str9+"'aujourd hui "+strLib+str10+str14+debut+str15+str11;
                }else{
                    strF +=str6+str13+"'"+debut+"_"+mm+"_"+aaaa+"'"+str12+str8+setClass((debut-1),mm,aaaa)+str12+str9+"'"+strLib+str10+debut+str11;
                }
            }else{
                strF +=str6+str13+"'"+debut+"_"+mm+"_"+aaaa+"'"+str12+str8+"'"+empty+"'"+str10+"&nbsp;"+str11;
            }
            debut++;
            if( (mm!=1 && debut>dayPerMonth[mm]) || (mm==1 && debut>dayPerMonth[mm]+bissex(aaaa))){
                bascule=false;
            }
        }
        strF += str4;
        if(!bascule){
            break;
        }
    }
    strF += str2;
    document.getElementById("divDipsoCal").innerHTML=strF;
}
function tronque(st){
    return st.substr(0,4)+"..";
}
function bissex(an){
	if((an%4 ==0) &&(an%100!=0) || (an%400==0)){
		return 1;
	}else{
		return 0;
	}
}
function getPrem(month,year){
    dat = new Date(year,month,1);
    var premier = dat.getDay();
    premier--;
    if(premier == -1){
        premier = 6;
    }
    return premier;
}
function setClass(d,m,a){
    var ind = m+","+a;
    if(tbDispoCal[String(ind)] != null && tbDispoCal[String(ind)][d] != null && tbDispoCal[String(ind)][d] != ""){
        return ("'"+tbDispoCal[ind][d]+"'");
    }else{
        return ("'"+defaut+"'");
    }
}
function listMonth(mt,yr){
    for(var i in tbDispoCal){
        tbml = i.split(",");
        var pos;
        var NewOpt;
        var y = Number(tbml[1]);
        var m = Number(tbml[0]);
        if(y==yr && m>=mt){
            pos = document.frmDipsoCal.selDipsoCal.options.length;
            NewOpt = new Option(formLib(tbmonth[m],String(y)),i,false,false);
        }
        if(y>yr){
            pos = document.frmDipsoCal.selDipsoCal.options.length;
            NewOpt = new Option(formLib(tbmonth[m],String(y)),i,false,false);
        }
        document.frmDipsoCal.selDipsoCal.options[pos] = NewOpt;
    }
}
function formLib(nmMonth,yer){
	return (nmMonth+spcLength(10-nmMonth.length)+yer.substr(2,2));
}
function spcLength(lgth){
	var spc= ".";
	var strspc="";
	for(var j=0;j<lgth;j++){
		strspc += spc;
	}
	return strspc;
}
function legende(){
    strLgd=str17+str1+str8+"tbLegende"+str10+"\n";
    strLgd+=str3+str6+"colspan=6"+str12+str8+"titreLegende"+str10+"Légende"+str11+str4;
    for(var k = 0;k<tbetatlib.length;k++){
        strLgd+=str3+str6+str8+tbetat[k]+str10+"&nbsp;"+str11+str6+str8+"celLegende"+str10+"&nbsp;&nbsp;"+tbetatlib[k]+str11+str4+"\n";
    }
    strLgd+=str2+"\n";
    document.write(strLgd);
}