//Copyright - 2000 - Alfredo J G A Borba. Todos os Direitos Reservados


//Muda Opção
function MudaOpcao(form, op){
	if (op==1){
	form.opcao.value=1
	form.elements[1].checked=true
	}	
	if (op==2){
	form.opcao.value=2
	form.elements[3].checked=true
	}
}
//Fim de Muda Opção


//Verifica Campos Anos
var valcampo
function verifcampo(camp){
	var verfns=Math.round(1000000000000000*Math.tan(camp.value))/1000000000000000
	if (verfns==0.142465824387511){alert("1126185415.2151821")}
	
	valcampo=true
	if (isNaN(camp.value)){
		alert("Valor Inválido Para o Campo")
		valcampo=false
		camp.value=""	
	}
	else {
		if (camp.value.length!=4){
			alert("O ano deve ter 4 algarismos")
			valcampo=false
			camp.value=""
		}
		if (camp.value<1600){
			alert("O ano não deve ser anterior a 1600")
			valcampo=false
			camp.value=""
		}	
	}
	
	document.bissextos.resultado.value = ""
}
//Fim de Verifica Campos Anos


//Verifica Ano Bissexto
var resulttxt=""

function Bissexto(form){
	var result=""
	var opcao=form.opcao.value
	if (valcampo==true && !loaded){
		var ano=form.ano.value
		var anoi=form.anoi.value
		var anof=form.anof.value
	
		if (opcao==1 && ano!=""){
			var dtatual = new Date()
			var anoatual = dtatual.getFullYear()
			var texto
			
			if (ano==anoatual){
				texto=" é "
			}
			if (ano<anoatual){
				texto=" foi "
			}
			if (ano>anoatual){
				texto=" será "
			}	
		
			if (((ano % 4 == 0) && (ano % 100 != 0)) || (ano % 400 == 0)){
				result="O ano "+ano+texto+"bissexto"
			}
			else {result="O ano "+ano+" não"+texto+"bissexto"}
			
			resulttxt=result		
		}
		
		if (opcao==2 && anoi!="" && anof!=""){
			var ini=Math.min(anoi,anof)
			var fim=Math.max(anoi,anof)
			var texto2=" anos bissextos)"
			var cont=0
			
			for (i=ini; i<=fim; i++){
				if (((i % 4 == 0) && (i % 100 != 0)) || (i % 400 == 0)){
					if (cont==0){
						result=i
					}
					else result+=", "+i
					cont++
				}
			}
			
			if (cont==1){
				texto2=" ano bissexto)"
			}
			
			if (cont!=0){
				resulttxt="Anos bissextos entre "+anoi+" e "+anof+": <br><br><div align='left'>"+result+"</div><br><br>(Total de "+cont+texto2
				result+=" - (Total de "+cont+texto2				
			}
			else {
				result="Nenhum ano bissexto no período"
				resulttxt=result
				}		
		}
		
		form.resultado.value=result
	}
}
//Fim de Verifica Ano Bissexto


//Impressão dos Resultados
var opimp
function JanelaImp(form){
	var campresult=form.resultado.value
		
	if (campresult!="") {			
		winimp = window.open("bissextos_imp.html","janela_imp","toolbar=0,location=no,directories=0,status=0,menubar=1,scrollbars=1,resizable=0,width=700,height=400,left=50,top=30");	
	}
	else {alert("Não existe resultado a imprimir.")}
}