function FormataData(form, campo, teclapres){

	var tecla = teclapres.keyCode;
//alert('teste = '.form);
	var vr = new String(document.forms[form].elements[campo].value);

	vr = vr.replace("/", "");
	vr = vr.replace("/", "");
	tam = vr.length + 1;

	if (tecla != 9 && tecla != 8){
		if (tam > 2 && tam < 5)
			document.forms[form].elements[campo].value = vr.substr(0, 2) + '/' + vr.substr(2, tam);
		if (tam >= 5 && tam <=10)
			document.forms[form].elements[campo].value = vr.substr(0,2) + '/' + vr.substr(2,2) + '/' + vr.substr(4,4);
	}

	KeyTab();

}

function TestaData(cData){
	var data;
	data = LimpaCampo(cData.value,10);
	var tam = data.length;
	if	(tam != 8){
        ControleDeErro(cData, GetSubStr(cData.id, ',', 0));
		return(false);
		}
	var dia = data.substr(0,2)
	var mes = data.substr (2,2)
	var ano = data.substr (4,4)
	if (ano < 1900){
        ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'001');
		return(false);
		}

	if((mes < 1)||(mes >12)){
        ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'002');
		return(false);
		}

	switch (mes){
		case '01':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '02':
			if  (dia > 29){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '03':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '04':
			if  (dia > 30){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '05':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '06':
			if  (dia > 30) {
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '07':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '08':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '09':
			if  (dia > 30){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '10':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '11':
			if  (dia > 30) {
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		case '12':
			if  (dia > 31){
                ControleDeErro(cData, GetSubStr(cData.id, ',', 0)+'003');
				return(false);
				}
			break;
		}

	return(true);
}