function only_date(objeto,delimitador,evento)
{
  var charCode = (navigator.appName == 'Netscape') ? evento.which : event.keyCode;

  var var_caracter = String.fromCharCode(charCode);

//  alert (objeto.value);
  result = true;
  if (objeto.value.length < (8+(2*delimitador.length))) {
		if (var_caracter>='0' && var_caracter<='9')	{
			if (navigator.appName != 'Netscape'){
				objeto.value=objeto.value+var_caracter;
			}
			result=valid_date(objeto,delimitador,true);
			if (true==result) {
				if (2==objeto.value.length) {
					objeto.value=objeto.value+delimitador;
				}
				if ((4+delimitador.length)==objeto.value.length) {
					objeto.value=objeto.value+delimitador;
				}
			}
	  	}
	  	else {
			result = false
	  	}
  }

  if (navigator.appName == 'Netscape') {
//  	alert ("Antes: "+evento.which);
//	netscape.security.PrivilegeManager.enablePrivilege("UniversalBrowserWrite");
//	Event.which = "0".charCodeAt(0);
//	alert ("Depois: "+Event.which);
	evento.which="A".charCodeAt(0);
//	objeto.value = objeto.value+"";
//	alert (objeto.value);
	return true;
  }
  else {
	event.keyCode = 0;
  }

  return result;
}

function valid_date(objeto,delimitador,parcial) {

	result=true;
	if (objeto.value.length>1) {
		dia = (objeto.value.substring(0,2));
		if (dia<01 || dia>31) {
			if (parcial) {
				alert ('Dia Inválido!');
			}
			objeto.value='';
			result=false;
		}
	}
	if (objeto.value.length>(3+delimitador.length)) {
		mes = (objeto.value.substring((2+delimitador.length),(4+delimitador.length)));
		if (mes<01 || mes>12) {
			if (parcial) {
				alert ('Mês Inválido!');
			}
			objeto.value=dia+delimitador;
			result=false;
		}
		if (((dia > 30) && (  mes == 04 || mes == 06 || mes == 09 || mes == 11 )) || (dia>29 && 02==mes)) {
			if (parcial) {
				alert ('Dia/Mês Inválido!');
			}
			objeto.value=dia+delimitador;
			result=false;
		}
	}
	if (objeto.value.length>(7+(2*delimitador.length))) {
		ano = (objeto.value.substring((4+(2*delimitador.length)),(8+(2*delimitador.length))));
		if (ano<1900 || ano>3000) {
			if (parcial) {
				alert ('Ano Inválido!');
			}
			objeto.value=dia+delimitador+mes+delimitador;
			result=false;
		}
		if (mes == 2 && ( dia > 28 && (parseInt(ano / 4) != ano / 4))) {
			if (parcial) {
				alert ('Data Inválida!\nAno Não é Bissexto!');
			}
			objeto.value=dia+delimitador+mes+delimitador;
			result = false;
		}
	}
	if (true!=parcial) {
  		if ((objeto.value.length < (8+(2*delimitador.length))) && (objeto.value.length>0)) {
			alert ('Data Incompleta!');
			objeto.focus();
			result = false;
		}
		else {
			if (objeto.value.length > 0) {
				array_split_date = objeto.value.split(delimitador);
				if (array_split_date.length>3 && delimitador.length>0) {
					alert ('Data Inválida! Excesso de Delimitadores!');
					objeto.value='';
					objeto.focus();
					result = false;
				}
				else {
					if (array_split_date.length<3 && delimitador.length>0) {
						alert ('Data Inválida! Falta de Delimitadores!');
						objeto.value='';
						objeto.focus();
						result = false;
					}
				}
			}
		}
	}
	return result;
}