function MakeArray(n){
        this.length=n;
        return this
}

function PrintDate () {
        date="";
        jour="";
        mois="";
        annee="";

        nom_mois=new MakeArray(12);
        nom_mois[1]="Enero"
        nom_mois[2]="Febrero"
        nom_mois[3]="Marzo"
        nom_mois[4]="Abril"
        nom_mois[5]="Mayo"
        nom_mois[6]="Junio"
        nom_mois[7]="Julio"
        nom_mois[8]="Agosto"
        nom_mois[9]="Septiembre"
        nom_mois[10]="Octubre"
        nom_mois[11]="Noviembre"
        nom_mois[12]="Diciembre"

        nom_jour=new MakeArray(7);
        nom_jour[1]="Domingo"
        nom_jour[2]="Lunes"
        nom_jour[3]="Martes"
        nom_jour[4]="Miércoles"
        nom_jour[5]="Jueves"
        nom_jour[6]="Viernes"
        nom_jour[7]="Sábado"

        Today = new  Date  ();

        date=Today.getDate();
        jour=nom_jour[Today.getDay()+1];
        mois=nom_mois[Today.getMonth()+1];
        annee=1900+Today.getYear();

        // document.write (jour +" "+date + " "+mois +" "+annee);
	document.write (jour +" "+date + " de "+mois + " de " +Today.getYear());
}

function blancos(txt){
	for(i=0; i<txt.length ; i++) {
		if (txt.charAt(i)!= " "){
			return true;
		}
	}
	return false;
}

function valemail(txt){
	if (txt == "" || txt.indexOf('@', 0) == -1 || txt.indexOf('.', 0) == -1) 
		return false;
	else 
		return true;
}

// Funcion que identifica y el valor corresponde a un Caracter
function IsChar(c)
{
		if(isNaN(c) || c == " ")
		{
			return true;
		}
		return false;
}

// Funcion de Validación del RUT
function valrut(strRUT)
{
				
		var strRUTsd = "";
		var intLen = 0;
		var iM = 2;
		var iSuma = 0;
		var sDig = "";
		var digito = "";
		var iCDig = "";
		
		for(i = 0; i < strRUT.length ; i++) {
			if(!IsChar(strRUT.charAt(i)) || strRUT.charAt(i) == 'k' 
			|| strRUT.charAt(i) == 'K') {
				strRUTsd = strRUTsd + strRUT.charAt(i);
			}
		}
		
		intLen = strRUTsd.length;
		digito = strRUT.charAt(strRUT.length - 1)
		//alert(strRUTsd);
		
		for(i = intLen - 2; i >= 0; i--) {
			//alert(iSuma);
			iCDig = strRUTsd.charAt(i);
			//alert(iCDig);
			iSuma = iSuma + iCDig * iM;
            iM++;
            if(iM > 7) 
				iM = 2;
			
		}

		iCDig = 11 - (iSuma % 11);
			
		if(iCDig == 10){
			sDig = "k";
		}
		else {
			if(iCDig == 11) {
				sDig = "0";
			}
			else {
				sDig = iCDig;
			}
		}
		
		if (sDig == digito) {
			return true;
		}
		else {
			return false;
		}
		//return sDig;
}

// Funcion de Validación del RUT
function valrutemp(strRUT)
{
				
		var strRUTsd = "";
		var intLen = 0;
		var iM = 2;
		var iSuma = 0;
		var sDig = "";
		var digito = "";
		var iCDig = "";
		
		
		for(i = 0; i < strRUT.length ; i++) {
			if(!IsChar(strRUT.charAt(i)) || strRUT.charAt(i) == 'k' 
			|| strRUT.charAt(i) == 'K') {
				strRUTsd = strRUTsd + strRUT.charAt(i);
			}
		}
		
		intLen = strRUTsd.length;
		digito = strRUT.charAt(strRUT.length - 1)
		//alert(strRUTsd.charAt(0));
				
		if (intLen != 9)
			return false;
		
		if (strRUTsd.charAt(0)<5)
			return false;
		
		for(i = intLen - 2; i >= 0; i--) {
			//alert(iSuma);
			iCDig = strRUTsd.charAt(i);
			//alert(iCDig);
			iSuma = iSuma + iCDig * iM;
            iM++;
            if(iM > 7) 
				iM = 2;
			
		}

		iCDig = 11 - (iSuma % 11);
			
		if(iCDig == 10){
			sDig = "K";
		}
		else {
			if(iCDig == 11) {
				sDig = "0";
			}
			else {
				sDig = iCDig;
			}
		}

		//alert(digito.toUpperCase())
		if (sDig == digito.toUpperCase()) {
			return true;
		}
		else {
			return false;
		}
		//return sDig;
}


function vermes(){
	nom_mois=new MakeArray(12);
        nom_mois[1]="Enero"
        nom_mois[2]="Febrero"
        nom_mois[3]="Marzo"
        nom_mois[4]="Abril"
        nom_mois[5]="Mayo"
        nom_mois[6]="Junio"
        nom_mois[7]="Julio"
        nom_mois[8]="Agosto"
        nom_mois[9]="Septiembre"
        nom_mois[10]="Octubre"
        nom_mois[11]="Noviembre"
        nom_mois[12]="Diciembre"

		Today = new  Date  ();

        mois=nom_mois[Today.getMonth()+1];
		document.write (mois);

}


// Función de validación de Fecha
function validafecha(dia,mes,ano)
{
		//dia = document.frmBus_Pro.ntxtDia_ini.value;
		largodia= dia.length;
		if (largodia==1)
		{
		 dia= "0" + dia
		}
		//mes = document.frmBus_Pro.scbxMes_ini.options[document.frmBus_Pro.scbxMes_ini.selectedIndex].value
		largomes=mes.length;
			if (largomes==1)
			{
			mes= "0" + mes
			}
			//ano = document.frmBus_Pro.ntxtAno_ini.value;
			fec = dia + '-' + mes + '-' + ano
			if ( fec!="" )
			{
			largo = fec.length;
			if ( largo != 10 )
			{
			   
			    alert("Fecha Incorrecta. Intente ingresar nuevamente.")
			    //window.document.frmBus_Pro.ntxtDia_ini.focus();
			    //window.document.frmBus_Pro.ntxtDia_ini.select();
			    return false;
			   
			}	
			{
				di = fec.substring(0, 2);
				if (isNaN(di))
				{
					alert("Día ingresado en la fecha es incorrecto. Intente ingresar nuevamente.")
					//window.document.frmBus_Pro.ntxtDia_ini.focus();
					//window.document.frmBus_Pro.ntxtDia_ini.select();
					return false;
				}
				{
					d = parseInt(di);
					mi = fec.substring(3, 5);
					if (isNaN(mi))
					{
						alert("Mes ingresado en la fecha es incorrecto. Intente ingresar nuevamente.")
						return false;
					}
					{
						m = parseFloat(mi);
						ai=fec.substring(6, 10);
						if (isNaN(ai))
						{
							alert("Año ingresado en la fecha es incorrecto. Intente ingresar nuevamente.")
							//window.document.frmBus_Pro.ntxtAno_ini.focus();
							//window.document.frmBus_Pro.ntxtAno_ini.select();
							return false;
						}
						{
							a = parseInt(ai);
							if ((a<0) || (a>2100))
							{
								alert("Año ingresado en la fecha está fuera de rango. Intente ingresar nuevamente.")
								//window.document.frmBus_Pro.ntxtAno_ini.focus();
								//window.document.frmBus_Pro.ntxtAno_ini.select();
								return false;
							}
							{
								resto = a % 4;
								if (resto==0)
								{
									bis=1;
								}
								if (resto!=0)
								{
									bis=0;
								}
								
								{
									if ((m==1) || (m==3) || (m==5) || (m==7) || (m==8) || (m==10) || (m==12))
									{
										if ((d<0) || (d>31))
										{
											alert("Día ingresado en la fecha está fuera de rango. Intente ingresar nuevamente.")
											//window.document.frmBus_Pro.ntxtDia_ini.focus();
											//window.document.frmBus_Pro.ntxtDia_ini.select();
											return false;
										}
										{
												return true
										}
									
									}
									{
										if ((m==4) || (m==6) || (m==9) || (m==11))
										{
											if ((d<0) || (d>30))
											{
												alert("Día ingresado en la fecha está fuera de rango. Intente ingresar nuevamente.")
												//window.document.frmBus_Pro.ntxtDia_ini.focus();
												//window.document.frmBus_Pro.ntxtDia_ini.select();
												return false;
											}
											{
												return true
											}
										}
										{
											if (m==2)
											{
												if (bis==1)
												{
													if ((d<0) || (d>29))
													{
														alert("Día ingresado en la fecha está fuera de rango. Intente ingresar nuevamente.")
														//window.document.frmBus_Pro.ntxtDia_ini.focus();
														//window.document.frmBus_Pro.ntxtDia_ini.select();
														return false;
													}
													{
														return true
													}
													
												}
												{
													if ((d<0) || (d>28))
													{
														alert("Día ingresado en la fecha está fuera de rango. Intente ingresar nuevamente.")
														//window.document.frmBus_Pro.ntxtDia_ini.focus();
														//window.document.frmBus_Pro.ntxtDia_ini.select();
														return false;
													}
													{
														return true
													}
													
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}
		else
		{
			alert("Debe ingresar Fecha")
			//window.document.frmBus_Pro.ntxtDia_ini.focus();
			//window.document.frmBus_Pro.ntxtDia_ini.select();
			return false;
		}
	}