// current date as initial value
function currDate()
{

var currDate = new Date();
return currDate;
}

// function in which date is converted to format for link
function 
convLnkDate(convWDay,convMDay,convMonth,convYear,convChan,cntLoop)
{

var	weekDName = new Array(7);
	weekDName[0] = "zondag";
	weekDName[1] = "maandag";
	weekDName[2] = "dinsdag";
	weekDName[3] = "woensdag";
	weekDName[4] = "donderdag";
	weekDName[5] = "vrijdag";
	weekDName[6] = "zaterdag";

var monthName = new Array(12);
	monthName[0] = "januari";
	monthName[1] = "februari";
	monthName[2] = "maart";
	monthName[3] = "april";
	monthName[4] = "mei";
	monthName[5] = "juni";
	monthName[6] = "juli";
	monthName[7] = "augustus";
	monthName[8] = "september";
	monthName[9] = "oktober";
	monthName[10] = "november";
	monthName[11] = "december";

convMDay  = convMDay + cntLoop;
if (convMDay < 1) {
    convMDay  = procDayPast(convMDay,convMonth,convYear);
	convMonth = convMonth - 1;
    if (convMonth < 0) {
        convMonth = convMonth + 12;
		convYear = convYear - 1;
        }
    }
else {
	if (convMonth == 1) {
		if (convYear % 4 == 0) {
			if (convMDay > 29) {
				convMDay = convMDay - 29;
				convMonth = convMonth + 1;
				}
			}
		else {
			if (convMDay > 28) {
				convMDay = convMDay - 28;
				convMonth = convMonth + 1;
				}
			}
		}
	else {
		if (convMonth == 3 || convMonth == 5 || convMonth == 8 || 
			convMonth == 10) {
			if (convMDay > 30) {
				convMDay = convMDay - 30;
				convMonth = convMonth + 1;
				}
			}
		else {
			if (convMDay > 31) {
				convMDay = convMDay - 31;
				convMonth = convMonth + 1;
				if (convMonth > 11) {
					convMonth = 0;
					convYear = convYear + 1;
					}
				}
			}
		}
	}

convWDay  = convWDay + cntLoop;
if (convWDay > 6) {
	convWDay = convWDay - 7;
	}

if (cntLoop == -1) {
    convDesc = "gisteren";
    }
else {
	if (cntLoop == 0) {
    	convDesc = "vandaag";
	    }
//	else {
//	    if (cntLoop == 1) {
//	        convDesc = "morgen";
//		    }
	    else {
	        convDesc = weekDName[convWDay];
		    }
//	    }
	}
return "<p align='right'><a href=radio_" + convChan + 
       ".asp&#63;pgmDag&#61;" + (convWDay+1) + ">" + convDesc + "</a></p>";
}

// function in which date is processed
function procDayPast(convMDay,convMonth,convYear)
{

convMonth = convMonth - 1;
if (convMonth < 0) {
    convMonth = convMonth + 12;
    convYear = convYear - 1;
    }
if (convMonth == 1) {
    if (convYear % 4 == 0) {
        convMDay = convMDay + 29;
        }
    else {
	    convMDay = convMDay + 28;
        }  
    }
else {
    if (convMonth == 3 || convMonth == 5 || convMonth == 8 || 
	    convMonth == 10) {
        convMDay = convMDay + 30;
        }
    else {
        convMDay = convMDay + 31;
        }
    }	
return convMDay;	
}

//