var separadorfecha="/";
var numeros="0123456789 ,.";

//PER A VALIDAR ELS CAMPS DE FECHA I EMAIL
var expfecha = new RegExp ("^[0-9]{2}/[0-9]{2}/[0-9]{4}$");
//var expEmail = new RegExp ("^[0-9]{2}/[0-9]{2}/[0-9]{4}$");
//var expEmail = new RegExp ("^[*]{*}@[*]{*}.[*]{*}$");
function EsTelefon(telefon)
{
	if ((telefon.length==9) && EsNumeric(telefon)) return true;
	return false;	
	}

// Determina si un caracter es un número
function numero(car)
{
	return (numeros.indexOf(car)>=0)
}
function EsNumeric(contenido)
{
	if ((contenido.length==0))
	{
		return true;
	}
	for (var i=0; i<contenido.length; ++i)
	{
		var car=contenido.charAt(i);
		if (!numero(car))	return false;
	}
	return true;
}
function bisiesto(anio)
{
	if (((anio % 4 == 0) && anio % 100 != 0) || anio % 400 == 0)
		return true;
	return false;
}
// Comprueba si una fecha es correcta
function compruebafecha(contenido)
{
	if ((contenido.length==0))
	{
		return false;
	}
	var nsep=0;
	// Comprobación de la sintáxis de una fecha
	for (var i=0; i<contenido.length; ++i)
	{
		var car=contenido.charAt(i);
		if (!numero(car)&&car!=separadorfecha)
		{
			return false;
		}
		if (car==separadorfecha)
			nsep++
	}
	if (nsep!=2)
	{
		return false;
	}
	// Comprobación de la semántica de una fecha
	var pos1=contenido.indexOf(separadorfecha);
	var dia=contenido.substring(0,pos1);
	var pos2=contenido.indexOf(separadorfecha,pos1+1);
	var mes=contenido.substring(pos1+1,pos2);
	var anio=contenido.substring(pos2+1,10);
	if (anio.length!=4){
		return false;
	}
	if (anio<0||anio>9999)
	{
		return false;
	}
	if (mes<1||mes>12)
	{
		return false;
	}
	if ((dia<1 || dia>31)||(mes==4&&dia>30)||(mes==6&&dia>30) ||(mes==9&&dia>30)||(mes==11&&dia>30) ||(mes==2&&bisiesto(anio)&&dia>29)||(mes==2&&!bisiesto(anio)&&dia>28))
	{
		return false;
	}
	return true
}

<!--
function cambiaMes(anyoActual,mesActual,diaActual,nombred,nombrem,nombrea)
{
	f1=document.form1;
	comboDia=eval('f1.'+nombred);
	comboMes=eval('f1.'+nombrem);
	comboAnyo=eval('f1.'+nombrea);
	var diaSeleccionado=eval('f1.'+nombred+'.'+'options[f1.'+nombred+'.selectedIndex].value');
	var mesSeleccionado=eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value');
	var anyoSeleccionado=eval('f1.'+nombrea+'.'+'options[f1.'+nombrea+'.selectedIndex].value');
	var meses_es=new Array('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre')
	var meses_en=new Array('January','February','March','April','May','June','July','August','September','October','November','December')
	
	if (anyoActual==anyoSeleccionado){
		var maximoMes=mesActual-1;
	}
	else{
		var maximoMes=12;
	}
	
	for (var i=0;i<maximoMes;i++)
	{
		//eval('f1.'+nombrem+'.options')[i] = new Option(eval("meses_<%=session("idioma"&constAcronimo)%>")[i],i+1,true,true);
	}
	selectedArray=new Array(maximoMes+1);
	
	while (selectedArray.length < eval('f1.'+nombrem+'.length')) {
		eval('f1.'+nombrem+'.'+'options')[eval('(f1.'+nombrem+'.options.length - 1)')] = null;
	}
	if (mesSeleccionado>maximoMes){
		mesSeleccionado=maximoMes+1;
	}
	comboMes.selectedIndex=mesSeleccionado-1;
	cambiaDias(anyoActual,mesActual,diaActual,nombred,nombrem,nombrea);
}
//-->

<!--
function cambiaDias(anyoActual,mesActual,diaActual,nombred,nombrem,nombrea){
	f1=document.form1;
	comboDia=eval('f1.'+nombred);
	comboMes=eval('f1.'+nombrem);
	comboAnyo=eval('f1.'+nombrea);
	var bloque31= new Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31);
	var diaSeleccionado=eval('f1.'+nombred+'.'+'options[f1.'+nombred+'.selectedIndex].value')-1;
	var mesSeleccionado=eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value');
	var anyoSeleccionado=eval('f1.'+nombrea+'.'+'options[f1.'+nombrea+'.selectedIndex].value');
	
	if ((anyoSeleccionado==anyoActual)&&(mesSeleccionado==mesActual)){
		diaMax=diaActual;
	}
	else{
		if (eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==4||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==6||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==9||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==11){
			diaMax=30;
		}
		if (eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==1||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==3||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==5||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==7||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==8||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==10||eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==12){
			diaMax=31;
		}
		if (eval('f1.'+nombrem+'.'+'options[f1.'+nombrem+'.selectedIndex].value')==2){
			if (anyoSeleccionado%4==0){
				diaMax=29;
			}
			else{
				diaMax=28;
			}
		}
	}

	for (var i=0; i < diaMax; i++){
		eval('f1.'+nombred+'.options')[i]=new Option(eval("bloque31")[i],eval("bloque31")[i],true,true);
		selectedArray=new Array(diaMax);
	}
	if (diaSeleccionado>diaMax){
		diaSeleccionado=diaMax-1;
	}
	comboDia.selectedIndex=diaSeleccionado;

	while (selectedArray.length < eval('f1.'+nombred+'.length')) {
		eval('f1.'+nombred+'.'+'options')[eval('(f1.'+nombred+'.options.length - 1)')] = null;
	}

	if (eval('f1.'+nombred+'.options')[0].value == '') {
		eval('f1.'+nombred+'.options')[0]= null;
		if ( navigator.appName == 'Netscape') {
			if (parseInt(navigator.appVersion) < 4) {
				window.history.go(0);
			}
			else {   	
				if (navigator.platform == 'Win32' || navigator.platform == 'Win16') {
					window.history.go(0);
	            }
        	}
		}
	}

}
//-->




function DameNumLinea(cad_numlinea)
{
	var num_caracter=cad_numlinea.lastIndexOf("_");
	var num_linea=cad_numlinea.slice(parseInt(num_caracter)+1,cad_numlinea.length);		
	//alert(num_linea);
	return(num_linea);
	
}

function DameNumCampo(cad_numcampo)
{
	var num_caracter=cad_numcampo.lastIndexOf("_");
	var num_campo=cad_numcampo.slice(1,parseInt(num_caracter));		
	//alert(num_campo);
	return(num_campo);	
}