 <!--
    var meses = new Array('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')
    var diaescrito = new Array('Domingo', 'Lunes', 'Martes', 'Miércoles', 'Jueves', 'Viernes', 'Sábado', 'Domingo');
    var now = new Date();
    var mes = meses[now.getMonth()];
    var dias = diaescrito[now.getDay()];
    var dia = now.getDate();
    var ano = now.getYear();
	if (ano< 1900) {
		ano += 1900;
	}
    var fecha =  "&nbsp;" + dias + ",&nbsp;" + dia + "/" + mes + "/" + ano + "&nbsp;&nbsp;&nbsp;";

//-->

<!--
function isValidDate(dateStr) {

var datePat = /^(\d{1,2})(\/|-)(\d{1,2})\2(\d{4})$/; // año de 4 dígitos

var matchArray = dateStr.match(datePat); // Verifica el formato de la fecha
if (matchArray == null) {
alert(dateStr + " No es una fecha valida. Intintelo nuevamente.")
return false;
}
month = matchArray[1]; // parse date into variables
day = matchArray[3];
year = matchArray[4];
if (month < 1 || month > 12) { // check month range
alert("El mes debe ser entre 1 y 12.");
return false;
}
if (day < 1 || day > 31) {
alert("Los dmas deben ser entre 1 y 31");
return false;
}
if ((month==4 || month==6 || month==9 || month==11) && day==31) {
alert(""+month+" no tiene 31 dmas!")
return false;
}
if (month == 2) { // check for february 29th
var isleap = (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0));
if (day>29 || (day==29 && !isleap)) {
alert("Febrero " + year + " no tiene " + day + " dmas!");
return false;
   }
}
return true;
}

	<!--
	function nope(){
		document.title = "NOPE!";
		return false;
	}
	
	function calc()
	{
		monthstr = new Array();
		monthstr[0]="Ene";
		monthstr[1]="Feb";
		monthstr[2]="Mar";
		monthstr[3]="Abr";
		monthstr[4]="May";
		monthstr[5]="Jun";
		monthstr[6]="Jul";
		monthstr[7]="Ago";
		monthstr[8]="Sep";
		monthstr[9]="Oct";
		monthstr[10]="Nov";
		monthstr[11]="Dic";
	
		
		ov_str = new Array();
		due_str = new Array();
	    odate_str = new Array();
		regla_str = new Array();
	
		var FormOK = true;
		var Alerta = "¡Precaución! El periodo es muy corto";
		var Alerta2 = "¡Precaución! El periodo es muy Largo";
		form = document.forms["calc"];
		fecha = form.fecha.value;
		a = fecha.split("/")
		var diapart = a[0];
		var mespart = a[1];
		var yearpart = a[2];
		var start_date = (mespart+"/"+diapart+"/"+yearpart);

		if (isValidDate(start_date)) { 
			daylength 	= (1000*60*60*24);
			monthlength 	= (1000*60*60*24*30);
			datestr 	= (start_date);
			startdate 	= new Date(datestr);
			cycle 		= form.cycle.selectedIndex + 15;
					 	
		if (cycle < 21)  {

			alert(Alerta);
		}


		if (cycle > 34)  {

			alert(Alerta2);
		}

	
	for (mon=0; mon<4; mon++) {
	    ov_date  = new Date( startdate.getTime() + ((cycle-14) * daylength ) + (cycle * (daylength*mon)) );
	    due_date = new Date( startdate.getTime() + ((cycle-14) * daylength) + (cycle * (daylength*mon)) + (monthlength*9) );
	    men_date = new Date( startdate.getTime() + (cycle * (daylength*mon)));
	    fdate = new Date(ov_date.getTime() - (5 * daylength));
	    tdate = new Date(ov_date.getTime() + (1 * daylength));
	    odate = new Date(ov_date.getTime() - (1 * daylength));
	    rdate = new Date(men_date.getTime() + daylength*cycle);
               
	    regla_str[mon] = (rdate.getDate()) + " " + monthstr[rdate.getMonth()] + " " + (rdate.getFullYear());
            odate_str[mon] = (odate.getDate()) + " " + monthstr[odate.getMonth()] + " " + (odate.getFullYear());
	    ov_str[mon]  = (fdate.getDate()) + " " + monthstr[fdate.getMonth()] + " - " + (tdate.getDate()) + " " + monthstr[tdate.getMonth()];
				due_str[mon] = (due_date.getDate()) + " " + (monthstr[(due_date.getMonth())]) + " " + (due_date.getFullYear());
			}
			
			first_regla.value = regla_str[0];
			first.value = ov_str[0];
			first_due.value = due_str[0];
			first_ovu.value = odate_str[0];
			second_regla.value = regla_str[1];
			second.value = ov_str[1];
			second_due.value = due_str[1];
		    second_ovu.value = odate_str[1];
			third_regla.value = regla_str[2];
			third.value = ov_str[2];
			third_due.value = due_str[2];
			third_ovu.value = odate_str[2];
			fourth_regla.value = regla_str[3];
			fourth.value = ov_str[3];
			fourth_due.value = due_str[3];
			fourth_ovu.value = odate_str[3];
		}
	
	}

	//-->
//-->