<!--
	function char_replace(cadena,buscar,sustituir) {
	
	// Esta función sustituirá en la cadena <cadena>, todos los caracteres <buscar> por <sustituir>,
	// y quita todos los puntos de millar.
	
		var resultado="";
		for (x=0;x<cadena.length;x++) {
			if (cadena.substr(x,1) == buscar)
				resultado=resultado + sustituir;
			else if (cadena.substr(x,1) != '.')
				resultado=resultado + cadena.substr(x,1);
		}
		return resultado;
	}

	function calculadora_hipoteca(idioma) {

		// Esta función se utilizará para calcular cualquier valor necesario para la hipoteca, en base a 3 factores.

		var interes=char_replace(document.forms.frmPrincipal.Interes.options[document.forms.frmPrincipal.Interes.selectedIndex].value,',','.') / 1200;
		var cuota=char_replace(document.forms.frmPrincipal.Cuota.value,',','.') * 1;
		var tiempo=char_replace(document.forms.frmPrincipal.Tiempo.options[document.forms.frmPrincipal.Tiempo.selectedIndex].value,',','.') * 12;
		var capital=char_replace(document.forms.frmPrincipal.Importe.value,',','.') * 1;
		if ((cuota == '' && capital == '') || (cuota != '' && capital != '')) {
			if (idioma == 'sp')
		  	   alert('Debe indicar el importe a solicitar o la cuota mensual, dejando un campo libre a calcular');
			else if (idioma == 'en')
			   alert('You must fill up amount to request or monthly quota, leaving a free field to carry out the operation.');
			else if (idioma == 'de')
			   alert('Sie müssen oben füllen betragen den Antrag oder Monatsquote und ein freies Feld lassen, um den Betrieb durchzuführen.');
			return 0;
		}
		if (capital == '') {
			var factor=Math.pow((1+interes),tiempo);
			capital=cuota / ((factor*interes) / (factor-1));
			capital=parseLong(capital);
			document.forms.frmPrincipal.Importe.value=localnum(capital);
		}
		if (cuota == '') {
			var factor=Math.pow((1+interes),tiempo);
			cuota = capital * ((factor*interes) / (factor-1));
			cuota=parseLong(cuota + 0.5);	// Al calcular la cuota, se redondea
			document.forms.frmPrincipal.Cuota.value=localnum(cuota);
		}
		return 1;
	}
	
    function calculahipoteca(frmentrada,frmcuota,frminteres,frmtiempo) {

		// Esta función se utilizará para calcular el precio posible de la hipoteca, en base al capital, interés y tiempo.

		var interes=char_replace(frminteres.toString(),',','.') / 1200;
		var cuota=char_replace(frmcuota.toString(),',','.') * 1;
		var tiempo=char_replace(frmtiempo.toString(),',','.') * 12;
		var entrada=char_replace(frmentrada.toString(),',','.') * 1;
		if (interes == 0 || cuota == 0 || tiempo == 0) {
			if (entrada == 0)
				return 0;
			else
				return entrada;
		}
		var factor=Math.pow((1+interes),tiempo);
		var capital=cuota / ((factor*interes) / (factor-1));
		capital=capital + entrada;
		capital=parseLong(capital);
		return localnum(capital);
	}

	function parseLong(cadena) {
	
		// Función que convertirá un string a Long
	
		var numres;
		var cadnueva;
		var decimal;
		var x;
		var indice;
		numres=0;
		decimal=0;
		cadnueva='';
		cadena=cadena.toString();
		for (x=(cadena.length - 1);x >= 0;x--) {
			if (cadena.substr(x,1) == '.' && decimal)
				return 0;
			else if (cadena.substr(x,1) == '.')
				decimal=1;
			else if (decimal && (cadena.charCodeAt(x) - 48) >= 0 && (cadena.charCodeAt(x) - 48) <= 9)
				cadnueva=cadena.substr(x,1) + cadnueva;
		}
		if (cadnueva == '' && decimal == 0) {
			for (x=(cadena.length - 1);x >= 0;x--) {
				if ((cadena.charCodeAt(x) - 48) >= 0 && (cadena.charCodeAt(x) - 48) <= 9)
					cadnueva=cadena.substr(x,1) + cadnueva;
			}
		}
		for (x=(cadnueva.length - 1),indice=0;x >= 0;x--,indice++)
			numres=numres + ((cadnueva.charCodeAt(x) - 48) * Math.pow(10, indice));
		return numres;
	}

	function localnum(cadena) {

		// Función que convertirá un número cualquiera a formato local.

		var decimal;
		var grupo;
		var resultado;
		var count;
		cadena=cadena.toString();
		decimal=0;
		grupo=0;
		resultado='';
		for (count=(cadena.length - 1);count >= 0;count--) {
			if (cadena.substr(count,1) == '.') {
				decimal=1;
				resultado=',' + resultado;
			}
			else if (decimal && grupo == 3) {
				grupo=1;
				resultado=cadena.substr(count,1) + '.' + resultado;
			}
			else if (decimal) {
				grupo++;
				resultado=cadena.substr(count,1) + resultado;
			}
			else
				resultado=cadena.substr(count,1) + resultado;
		}
		if (!decimal) { // No tiene decimales, ponerle los puntos
			resultado='';
			grupo=0;
			for (count=(cadena.length - 1);count >= 0;count--) {
				if (grupo == 3) {
					grupo=1;
					resultado=cadena.substr(count,1) + '.' + resultado;
				}
				else {
					grupo++;
					resultado=cadena.substr(count,1) + resultado;
				}
			}
		}
		return resultado;
	}
-->