{"id":5273,"date":"2025-11-23T19:24:21","date_gmt":"2025-11-23T18:24:21","guid":{"rendered":"https:\/\/irphstop.eus\/?page_id=5273"},"modified":"2026-01-31T21:13:32","modified_gmt":"2026-01-31T20:13:32","slug":"calculadora_desequilibrio","status":"publish","type":"page","link":"https:\/\/irphstop.eus\/es\/kalkulagailuak\/calculadora_desequilibrio\/","title":{"rendered":"Calculadora de desequilibrio en el contrato"},"content":{"rendered":"<body>\r\n<div id=\"entrada\">\r\n  <p>IRPH Stop Gipuzkoa pone a disposici\u00f3n de abogad@s y afectad@s esta calculadora para determinar el desequilibrio siguiendo los criterios del TJUE y corrigiendo los errores del Supremo en sus sentencias del 11\/11\/2025.<\/p>\r\n  <p>Es responsabilidad del abogado revisar los datos de entrada as\u00ed como el resultado. IRPH Stop Gipuzkoa no asume ninguna responsabilidad. El resultado es un borrador esquem\u00e1tico pero incluye los datos exactos que entendemos hay que emplear en la comparativa. Estos datos estar\u00e1n marcados en negrita.<\/p>\r\n  <p>Como no pod\u00eda ser de otro modo, a falta de diferencial negativo el resultado ser\u00e1 un desequilibrio en perjuicio del consumidor en el 99,9% de los casos. Para el resto de los casos habr\u00e1 que hacer un analisis m\u00e1s detallado.<\/p>\r\n  <p>El Supremo en su sentencia emplea los datos relativos al mes de firma. Puesto que esos datos no se conocen hasta bien entrado el mes siguiente, cabe interpretar que el c\u00e1lculo debe hacerse para la fecha para la cual se conoc\u00edan los datos. Si deseas hacerlo as\u00ed simplemente selecciona la fecha que desees en los desplegables correspondientes a la \"fecha de firma\".<\/p>\r\n    <p><b>ENTRADA DE DATOS NECESARIOS PARA EL C\u00c1LCULO<\/b><\/p>\r\n  Importe total de la hipoteca\r\n    <input type=\"text\" id=\"capital\" style='width:100px'> \u20ac<\/p>\r\n  Duraci\u00f3n total de la hipoteca\r\n  <input type=\"text\" id=\"aniostotal\" style='width:60px'> a\u00f1os<\/p>\r\n  Fecha de firma de la hipoteca \r\n    <select id=\"mesini\"><option><\/option><option>Enero<\/option><option>Febrero<\/option><option>Marzo<\/option><option>Abril<\/option><option>Mayo<\/option><option>Junio<\/option><option>Julio<\/option><option>Agosto<\/option><option>Septiembre<\/option><option>Octubre<\/option><option>Noviembre<\/option><option>Diciembre<\/option><\/select><select id=\"ano\"><option><\/option><option>2000<\/option><option>2001<\/option><option>2002<\/option><option>2003<\/option><option>2004<\/option><option>2005<\/option><option>2006<\/option><option>2007<\/option><option>2008<\/option><option>2009<\/option><option>2010<\/option><option>2011<\/option><option>2012<\/option><option>2013<\/option><\/select><\/p>\r\n  Tipo de inter\u00e9s\r\n    <select id=\"tipoirph\"><option><\/option><option>IRPH Entidades<\/option><option>IRPH Cajas<\/option><option>IRPH Bancos<\/option><\/select> con un diferencial de <input type=\"text\" id=\"diferencial\" style='width:50px'>%<\/p>\r\n  <div id=\"botoncalc\">\r\n    <p><button onclick=\"calculame(capital,aniostotal,mesini.value,mesini.selectedIndex,ano.value,ano.selectedIndex,tipoirph.value,diferencial)\">Calcular<\/button><\/p>\r\n  <\/div>\r\n<\/div>\r\n<div id=\"datosentrada\" style=\"display:none;\">\r\n  <p><b>DATOS EMPLEADOS EN EL C\u00c1LCULO<\/b><\/p>\r\n  <table id=\"tabladatos\"><\/table>\r\n<\/div>\r\n\r\n<div id=\"salida\" style=\"display:none;\">\r\n  <p><b>RESULTADO DEL C\u00c1LCULO<\/b><\/p>\r\n  <p>La sentencia del Tribunal de Justicia de la Uni\u00f3n Europea en el asunto C-300\/23, de fecha 12 de diciembre de 2024, establece que \u00abpara apreciar el car\u00e1cter eventualmente abusivo de una cl\u00e1usula de un contrato de pr\u00e9stamo hipotecario a tipo de inter\u00e9s variable que prev\u00e9 la adaptaci\u00f3n peri\u00f3dica del tipo de inter\u00e9s en funci\u00f3n del valor de un \u00edndice de referencia determinado, es pertinente comparar el m\u00e9todo de c\u00e1lculo del tipo de los intereses ordinarios previsto por esta cl\u00e1usula y el tipo efectivo de esos intereses resultante con los m\u00e9todos de c\u00e1lculo generalmente aplicados y, en particular, con los tipos de inter\u00e9s aplicados en el mercado en la fecha en que se celebr\u00f3 el contrato en cuesti\u00f3n a un pr\u00e9stamo de un importe y una duraci\u00f3n equivalentes a los de ese contrato.\u00bb<\/p>  \r\n  <p>1.- COMPARATIVA DEL M\u00c9TODO DE C\u00c1LCULO<\/p>\r\n  <p>El tipo de referencia generalmente aplicado en la fecha de contrataci\u00f3n del pr\u00e9stamo objeto de litigio era el Euribor. Por tanto se debe incluir aqu\u00ed una comparativa IRPH vs. Euribor que puede estar basada en <a href=\"https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/Analisis_economico-financiero_STS_11nov2025_IRPH.pdf\" rel=\"noopener\" target=\"_blank\">este informe de IRPH Stop Gipuzkoa<\/a>. Se puede adjuntar adem\u00e1s <a href=\"https:\/\/irphstop.eus\/wp-content\/uploads\/Nota_acerca_del_IRPH_Dr_Juan_Etxeberria.pdf\" rel=\"noopener\" target=\"_blank\">este informe de un catedr\u00e1tico de estad\u00edstica<\/a>.<\/p>\r\n  <p>2.- COMPARATIVA DEL TIPO EFECTIVO<\/p>\r\n  <p>Como nota previa cabe se\u00f1alar que esta comparativa deber\u00eda ser innecesaria, pues al carecer de diferencial negativo es un hecho matem\u00e1tico que el contrato objeto de la demanda ser\u00e1 durante toda su vida m\u00e1s caro que la media.<\/p>\r\n  <p>El Tribunal Supremo en su sentencia 1591\/2025 establece que la \u00abcomparativa entre IRPH y Eur\u00edbor, debe hacerse con suma cautela, porque se carece de datos para conocer cual hubiera sido el diferencial que se le habr\u00eda aplicado al pr\u00e9stamo si se hubiera referenciado al Eur\u00edbor\u00bb. Esta parte comparte ambas apreciaciones y propone una comparativa muy cautelosa.<\/p>\r\n  <p><b>El valor del <span id=\"plottipoirph\"><\/span> en <span class=\"plotmes\"><\/span> de <span class=\"plotano\"><\/span> es <span id=\"plotsuirph\"><\/span>% y sumando el diferencial de <span id=\"plotdiferencial\"><\/span>% el tipo nominal resultante es <span class=\"plottin\"><\/span>%.<\/b> Este ser\u00e1 el valor a comparar con otros m\u00e1s habituales en la fecha, seg\u00fan instrucciones del TJUE y del propio TS.<\/p>\r\n  <p>2.1.- COMPARATIVA CON EL TIPO FIJO INICIAL<\/p>\r\n  <p>El TS afirma que puede resultar pertinente para esta comparativa el inter\u00e9s fijo pactado entre las partes. Esta parte no comparte esta apreciaci\u00f3n, pues la instrucci\u00f3n del TJUE es comparar el tipo resultante del contrato objeto de la demanda con otros contratos m\u00e1s habituales y no con otra cl\u00e1usula del mismo contrato. Adem\u00e1s el Supremo comete errores de bulto en este punto, y ser\u00eda bueno mencionarlo en la demanda. Para m\u00e1s informaci\u00f3n v\u00e9ase <a href=\"https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/Analisis_economico-financiero_STS_11nov2025_IRPH.pdf\" rel=\"noopener\" target=\"_blank\">este informe de IRPH Stop Gipuzkoa<\/a>.<\/p>\r\n  <p>2.2.- COMPARATIVA CON DATOS ESTAD\u00cdSTICOS GENERALES<\/p>\r\n  <p>Debido a la ausencia de estad\u00edsticas oficiales sobre el diferencial medio aplicado a los pr\u00e9stamos hipotecarios referenciados a Euribor, el Supremo propone una comparativa con datos estad\u00edsticos generales. Esta parte comparte el inter\u00e9s de esta comparativa, pero desea destacar que hay que realizarla con cautela.<\/p>\r\n  <p>2.2.1.- Comparativa con estat\u00edsticas de la zona euro<\/p>\r\n  <p><span id=\"plotargumentoseuropa\"><\/span>.<\/p>\r\n  <p>2.2.2.- Comparativa con estat\u00edsticas del INE<\/p>\r\n  <p>Esta parte considera que dichas estad\u00edsticas no son v\u00e1lidas para la comparativa que se desea realizar. En efecto, el INE declara que en su estad\u00edstica solo considera el tipo inicial. (Fuente: Instituto Nacional de Estad\u00edstica, <a href=\"https:\/\/www.ine.es\/metodologia\/t30\/t3030149.pdf\" rel=\"noopener\" target=\"_blank\">Estad\u00edstica de Hipotecas, Rese\u00f1a Metodol\u00f3gica<\/a>, apartado 4.19 Tipo de inter\u00e9s). En la fecha de firma del contrato objeto de la presente demanda la inmensa mayor\u00eda de pr\u00e9stamos eran a tipo variable, y la mayor\u00eda, igual que el pr\u00e9stamo que nos ocupa, contaban con un tipo de inter\u00e9s fijo inicial. Las estad\u00edsticas del INE s\u00f3lo consideran ese fijo inicial y podr\u00edan servir por tanto para comparar el tipo fijo inicial de nuestro pr\u00e9stamo con el tipo fijo inicial promedio, pero obviamente no es el objetivo de la comparativa.<\/p>\r\n  <p>2.2.3- Comparativa con estad\u00edsticas del Banco de Espa\u00f1a<\/p>\r\n  <p>En este punto el Supremo propone una comparativa con un gr\u00e1fico denominado \u00abTipos sint\u00e9ticos de inter\u00e9s de nuevas operaciones de las entidades de cr\u00e9dito y los establecimientos financieros de cr\u00e9dito\u00bb, \u00abHogares y sociedades no financieras\u00bb, \u00abPr\u00e9stamos y cr\u00e9ditos (TAE)\u00bb. Esta parte considera que esa estad\u00edstica no es apropiada para ser comparada con el tipo de inter\u00e9s nominal del contrato objeto de la demanda porque se trata de una media de tipos TAE (por tanto no comparable con el nominal) y porque incluye pr\u00e9stamos al consumo entre otros (por tanto no relevantes para comparar con un pr\u00e9stamo a la vivienda). El bolet\u00edn estad\u00edstico del Banco de Espa\u00f1a incuye estad\u00edsticas que resultan mucho m\u00e1s apropiadas.<\/p>\r\n  <p>Esta parte considera que la estad\u00edstica m\u00e1s apropiada para la comparativa es la serie 19_4.2 del Bolet\u00edn Estad\u00edstico del Banco de Espa\u00f1a, pues se trata del tipo de inter\u00e9s medio ponderado de cr\u00e9dito a la vivienda, y por tanto comparable con el contrato objeto de la demanda. El tipo de inter\u00e9s considerado en la serie 19_4.2 del Banco de Espa\u00f1a es un TEDR o Tipo Efectivo Definici\u00f3n Restringida, que tal y como explica el propio Banco de Espa\u00f1a (<a href=\"https:\/\/www.bde.es\/webbe\/es\/estadisticas\/recursos\/glosario\/conceptos\/tedr.html\" rel=\"noopener\" target=\"_blank\">https:\/\/www.bde.es\/webbe\/es\/estadisticas\/recursos\/glosario\/conceptos\/tedr.html<\/a>) es el componente de tipo de inter\u00e9s (s\u00f3lo del tipo de inter\u00e9s) de la Tasa Anual Equivalente (TAE), es decir, sin considerar los gastos ni las comisiones. Tenemos por tanto de una estad\u00edstica no afectada por comisiones y gastos, y en consecuencia mucho m\u00e1s apropiada para ser comparada con el tipo de inter\u00e9s nominal del contrato objeto de la demanda.<\/p>\r\n  <p>Sin embargo, el TEDR tampoco es igual al tipo nominal sino que es superior por estar afectado por la periodicidad. En palabras del propio Banco de Espa\u00f1a \u00abno es equivalente que los pagos se realicen mensualmente a que se hagan una vez al a\u00f1o, por ejemplo. En el caso de los pagos mensuales, la situaci\u00f3n es m\u00e1s costosa para el acreedor (y, por tanto, su TEDR ser\u00e1 superior a la TIN por este motivo)\u00bb. El dato del tipo de inter\u00e9s nominal (TIN) puede obtenerse a partir de las f\u00f3rmulas establecidas por la circular 8\/1990 en su versi\u00f3n consolidada, que se reproducen a continuaci\u00f3n.<\/p>\r\n  <img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/formulas_tin_desde_tae.jpg\" alt=\"\" width=\"975\" height=\"359\" class=\"alignnone size-full wp-image-5261\" srcset=\"https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/formulas_tin_desde_tae.jpg 975w, https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/formulas_tin_desde_tae-300x110.jpg 300w, https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/formulas_tin_desde_tae-768x283.jpg 768w, https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/formulas_tin_desde_tae-863x318.jpg 863w, https:\/\/irphstop.eus\/wp-content\/uploads\/2025\/11\/formulas_tin_desde_tae-293x108.jpg 293w\" sizes=\"auto, (max-width: 975px) 100vw, 975px\" \/>\r\n  <p>Con estas f\u00f3rmulas, que establecen el m\u00e9todo simplificado para calcular el TIN a partir de la TAE, podemos determinar igualmente el TIN a partir del TEDR. Para ello simplemente debemos considerar que las comisiones son 0 y que el n\u00famero de periodos en el que se divide el a\u00f1o (k) es igual a 12. De este modo, calculando TIN como TEDR menos diferencial D se llega a la siguiente f\u00f3rmula:<\/p>\r\n  <p>TIN = 12 \u00b7 [ (TEDR\/100 + 1)<sup>1\/12<\/sup> - 1] \u00b7 100<\/p>\r\n  <p><b>Para el caso que nos ocupa, el TEDR de <span class=\"plotmes\"><\/span> de <span class=\"plotano\"><\/span> fue de <span id=\"plottedr\"><\/span>% y el TIN correspondiente, calculado de la manera descrita, es de <span class=\"plottindetedr\"><\/span>%.<span id=\"plotexplicacionseriebce\"><\/span><\/p>\r\n  <p>Por lo tanto la comparativa debe hacerse entre el <span class=\"plottin\"><\/span>% calculado m\u00e1s arriba para el contrato objeto de la demanda y el <span class=\"plottindetedr\"><\/span>% que resulta ser el tipo medio nominal en la misma fecha, y se observa que existe un desequilibrio muy evidente en perjuicio del demandante.<\/b><\/p>\r\n  <p>2.3.- IMPACTO ECON\u00d3MICO<\/p>\r\n  <p><b>Un pr\u00e9stamo de <span class=\"plotcapital\"><\/span> euros a <span class=\"plotaniostotal\"><\/span> a\u00f1os y un tipo de inter\u00e9s de <span class=\"plottin\"><\/span>% resulta en una cuota mensual de <span id=\"plotcuota\"><\/span> euros y un total de intereses de <span class=\"plotintereses\"><\/span> euros.<\/b><\/p>\r\n  <p>A la hora de realizar la comparativa selecciona la opci\u00f3n que creas mas razonable: A o B<\/p>\r\n  <br><\/br>\r\n\r\n  <p>Opci\u00f3n A: comparando con un pr\u00e9stamo con mismo plazo y con inter\u00e9s igual al TIN medio de la fecha<\/p>\r\n  <p><b>Un pr\u00e9stamo de <span class=\"plotcapital\"><\/span> euros a <span class=\"plotaniostotal\"><\/span> a\u00f1os y un tipo de inter\u00e9s de <span class=\"plottindetedr\"><\/span>% resulta en una cuota mensual de <span id=\"plotcuotaa\"><\/span> euros y un total de intereses de <span class=\"plotinteresesa\"><\/span> euros.<\/b><\/p>\r\n  <p><b>El desequilibrio es muy evidente: una diferencia de <span class=\"plotdeltaa\"><\/span> euros en el total de intereses (<span class=\"plotintereses\"><\/span> euros - <span class=\"plotinteresesa\"><\/span> euros).<\/b><\/p>\r\n  <p><b>Esta diferencia en el total de intereses supone un encarecimiento del <span id=\"plotporinta\"><\/span>% (<span class=\"plotintereses\"><\/span> euros frente a <span class=\"plotinteresesa\"><\/span> euros).<\/b><\/p>\r\n  <p><b>Si lo comparamos con el principal del pr\u00e9stamo (<span class=\"plotcapital\"><\/span> euros) el incremento de intereses de <span class=\"plotdeltaa\"><\/span> supone un <span id=\"plotporcapa\"><\/span>% del capital.<\/b><\/p>\r\n  <br><\/br>\r\n\r\n  <p>Opci\u00f3n B: comparando con un pr\u00e9stamo con inter\u00e9s igual al TIN medio de la fecha y plazo reducido para obtener misma cuota<\/p>\r\n  <p><b>Si el tipo de inter\u00e9s fuera de <span class=\"plottindetedr\"><\/span>% la duraci\u00f3n del pr\u00e9stamo podr\u00eda reducirse a <span id=\"plotplazoequiv\"><\/span> mensualidades manteniendo la cuota mensual y reduciendo el total de intereses a <span class=\"plotinteresesb\"><\/span> euros.<\/b><\/p>\r\n  <p><b>El desequilibrio es muy evidente: una diferencia de <span class=\"plotdeltab\"><\/span> euros en el total de intereses (<span class=\"plotintereses\"><\/span> euros - <span class=\"plotinteresesb\"><\/span> euros).<\/b><\/p>\r\n  <p><b>Esta diferencia en el total de intereses supone un encarecimiento del <span id=\"plotporintb\"><\/span>% (<span class=\"plotintereses\"><\/span> euros frente a <span class=\"plotinteresesb\"><\/span> euros).<\/b><\/p>\r\n  <p><b>Si lo comparamos con el principal del pr\u00e9stamo (<span class=\"plotcapital\"><\/span> euros) el incremento de intereses de <span class=\"plotdeltab\"><\/span> supone un <span id=\"plotporcapb\"><\/span>% del capital.<\/b><\/p>\r\n  <br><\/br>\r\n  <p>Cabe se\u00f1alar adem\u00e1s que este c\u00e1lculo es conservador y la comparativa real resultar\u00eda todav\u00eda superior. En efecto, en lugar de comparar con los pr\u00e9stamos referidos a Euribor como solicitaba el TJUE nos hemos tenido que comparar con una estad\u00edstica global que incluye tanto los prestamos referidos a Euribor como los referidos a IRPH, que har\u00e1n subir la media.<\/p> \r\n\r\n\r\n<script>\r\n\/*| Calculadora desequilibrio IRPH v1.0 | (c) IRPH Stop Gipuzkoa | irphstop@gmail.com | Prohibida la copia. *\/\r\nfunction verificar(__capital,aniostotal,mestxt,mesnum,anotxt,anonum,tipoirph,diferencial){\r\n    var capital = __capital.value;\r\n    var aniostotal = aniostotal.value;\r\n    var _diferencial = diferencial.value;\r\n    var diferencial = _diferencial.replace(\",\",\".\");\r\n    var fechainicio=(anonum-1)*12+mesnum*1-1;   \/* c\u00e1lculo del index de la fecha (el primer dato de los vectores es el n\u00famero \"0\")*\/\r\n    if (isNaN(capital) || capital==\"0\" || capital==\"\" || capital.includes(\".\")==true || capital.includes(\",\")==true ) {\r\n      alert(\"Introduce el importe total de la hipoteca, distinto a 0 y sin comas ni puntos\");\r\n      return 0;\r\n    } else if (isNaN(aniostotal) || aniostotal==\"0\" || aniostotal==\"\") {\r\n      alert(\"Introduce la duraci\u00f3n total de la hipoteca, distinta a 0 y sin comas ni puntos\");\r\n      return 0;\r\n    } else if (mestxt == \"\" || anotxt == \"\") {\r\n      alert(\"Introduce correctamente la fecha de firma\");\r\n      return 0;\r\n    } else if (tipoirph == \"\") {\r\n      alert(\"Introduce correctamente el tipo de IRPH del pr\u00e9stamo\");\r\n      return 0;\r\n    } else if (isNaN(diferencial) || diferencial==\"\") {\r\n      alert(\"Introduce un valor v\u00e1lido para el diferencial. Si es nulo pon un 0\");\r\n      return 0;\r\n    } else if (diferencial<\"0\") {\r\n      alert(\"La calculadora no considera el caso de diferenciales negativos. Justificar el desequilibrio en ese caso requiere un an\u00e1lisis m\u00e1s detallado\");\r\n      return 0;\r\n    } else if (fechainicio > 164 & tipoirph != \"IRPH Entidades\") {\r\n      alert (\"Atenci\u00f3n: el tipo de IRPH que has seleccionado ya no exist\u00eda en la fecha seleccionada. Revisa tus datos de entrada.\")\r\n      return 0;\r\n    } else {\r\n      return 1;  \r\n    }\r\n}\r\n\r\nfunction calculame(__capital,aniostotal,mestxt,mesnum,anotxt,anonum,tipoirph,diferencial){\r\n  var v=verificar(__capital,aniostotal,mestxt,mesnum,anotxt,anonum,tipoirph,diferencial);\r\n    if (v==0) {\r\n      return\r\n    }\r\n    document.getElementById('entrada').style.display = 'none';\r\n    document.getElementById('datosentrada').style.display = 'block';\r\n    document.getElementById('salida').style.display = 'block';\r\n\r\n\r\n    \/********************************** ploteo los datos de entrada*\/\r\n    \r\n    var datutabla = document.getElementById(\"tabladatos\");\r\n\r\n    var datufila = datutabla.insertRow(0);\r\n    var datucelda1 = datufila.insertCell(0);\r\n    var datucelda2 = datufila.insertCell(1);\r\n    datucelda1.innerHTML = \"Importe del pr\u00e9stamo:\";\r\n    datucelda2.innerHTML = __capital.value + \" \u20ac\";\r\n\r\n    var datufila = datutabla.insertRow(1);\r\n    var datucelda1 = datufila.insertCell(0);\r\n    var datucelda2 = datufila.insertCell(1);\r\n    datucelda1.innerHTML = \"Duraci\u00f3n del pr\u00e9stamo:\";\r\n    datucelda2.innerHTML = aniostotal.value + \" a\u00f1os\";\r\n\r\n    var datufila = datutabla.insertRow(2);\r\n    var datucelda1 = datufila.insertCell(0);\r\n    var datucelda2 = datufila.insertCell(1);\r\n    datucelda1.innerHTML = \"Fecha de firma:\";\r\n    datucelda2.innerHTML = mestxt + \" \" + anotxt;\r\n     \r\n    var datufila = datutabla.insertRow(3);\r\n    var datucelda1 = datufila.insertCell(0);\r\n    var datucelda2 = datufila.insertCell(1);\r\n    datucelda1.innerHTML = \"Tipo de inter\u00e9s:\";\r\n    datucelda2.innerHTML =  tipoirph + \" + \" + diferencial.value + \"%\";\r\n\r\n   \/*****************************fin ploteo datos entrada*\/\r\n\r\n    \r\n   var capital = __capital.value;\r\n   var aniostotal = aniostotal.value;\r\n   var __diferencial = diferencial.value;\r\n   var _diferencial = __diferencial.replace(\",\",\".\");\r\n   var diferencial=1*_diferencial; \/*hacer que diferencial sea n\u00famero*\/\r\n   var fechaini=(anonum-1)*12+mesnum*1-1;   \/* c\u00e1lculo del index de la fecha (el primer dato de los vectores es el n\u00famero \"0\")*\/\r\n   var v_t_irphent =[5.040, 5.166, 5.231, 5.353, 5.522, 5.703, 5.891, 6.029, 6.232, 6.284, 6.348, 6.371, 6.390, 6.280, 6.147, 6.025, 5.926, 5.806, 5.768, 5.723, 5.627, 5.390, 5.190, 4.852, 4.737, 4.768, 4.785, 4.860, 4.985, 4.995, 5.009, 4.999, 4.818, 4.690, 4.517, 4.380, 4.252, 4.146, 3.976, 3.886, 3.823, 3.707, 3.541, 3.470, 3.428, 3.442, 3.432, 3.458, 3.475, 3.446, 3.358, 3.279, 3.255, 3.307, 3.323, 3.392, 3.367, 3.332, 3.383, 3.349, 3.334, 3.332, 3.343, 3.325, 3.318, 3.270, 3.196, 3.190, 3.197, 3.225, 3.264, 3.404, 3.591, 3.701, 3.756, 3.852, 4.048, 4.132, 4.229, 4.355, 4.451, 4.562, 4.645, 4.753, 4.811, 4.890, 4.975, 5.008, 5.092, 5.190, 5.326, 5.422, 5.497, 5.551, 5.585, 5.562, 5.611, 5.582, 5.404, 5.418, 5.587, 5.794, 6.006, 6.218, 6.265, 6.253, 6.258, 5.891, 4.983, 4.324, 3.821, 3.573, 3.411, 3.294, 3.187, 3.084, 2.990, 2.921, 2.859, 2.819, 2.810, 2.813, 2.780, 2.786, 2.674, 2.709, 2.705, 2.766, 2.799, 2.795, 2.825, 2.774, 2.918, 2.962, 3.120, 3.226, 3.355, 3.458, 3.540, 3.533, 3.570, 3.586, 3.696, 3.626, 3.716, 3.737, 3.624, 3.617, 3.453, 3.481, 3.488, 3.430, 3.347, 3.078, 2.992, 3.023, 3.216, 3.219, 3.415, 3.378, 3.331, 3.363, 3.438, 3.474, 3.467, 3.252, 3.393, 3.287];\r\n   var v_t_irphcaj =[5.087, 5.217, 5.296, 5.391, 5.557, 5.753, 5.899, 6.080, 6.227, 6.402, 6.471, 6.485, 6.532, 6.433, 6.323, 6.241, 6.099, 5.971, 5.908, 5.852, 5.772, 5.582, 5.372, 5.027, 4.912, 4.887, 4.874, 4.919, 5.052, 5.062, 5.100, 5.103, 4.925, 4.815, 4.609, 4.490, 4.307, 4.225, 4.068, 3.941, 3.876, 3.787, 3.619, 3.548, 3.518, 3.532, 3.539, 3.533, 3.572, 3.533, 3.460, 3.384, 3.351, 3.362, 3.388, 3.441, 3.436, 3.419, 3.445, 3.424, 3.422, 3.416, 3.411, 3.419, 3.417, 3.365, 3.312, 3.293, 3.292, 3.313, 3.342, 3.471, 3.651, 3.751, 3.821, 3.938, 4.088, 4.200, 4.287, 4.386, 4.515, 4.598, 4.664, 4.765, 4.837, 4.920, 5.001, 5.060, 5.124, 5.238, 5.362, 5.457, 5.522, 5.566, 5.624, 5.603, 5.625, 5.639, 5.487, 5.451, 5.634, 5.808, 6.044, 6.275, 6.338, 6.331, 6.341, 6.084, 5.203, 4.492, 3.997, 3.743, 3.616, 3.496, 3.375, 3.290, 3.260, 3.182, 3.123, 3.058, 3.025, 3.089, 3.009, 2.996, 2.920, 2.921, 2.924, 2.938, 2.927, 2.963, 3.002, 2.945, 3.144, 3.132, 3.294, 3.327, 3.471, 3.559, 3.624, 3.590, 3.694, 3.659, 3.747, 3.739, 3.793, 3.946, 3.777, 3.691, 3.607, 3.605, 3.504, 3.724, 3.573, 3.498, 3.336, 3.304, 3.572, 3.595, 3.796, 3.900, 3.862, 3.851, 3.932, 3.911, 3.940, 9999.000, 9999.000, 9999.000];\r\n   var v_t_irphban =[4.997, 5.118, 5.173, 5.320, 5.490, 5.653, 5.883, 5.977, 6.238, 6.163, 6.224, 6.260, 6.248, 6.128, 5.971, 5.814, 5.757, 5.640, 5.634, 5.587, 5.480, 5.206, 5.009, 4.685, 4.562, 4.650, 4.695, 4.799, 4.917, 4.925, 4.916, 4.883, 4.698, 4.542, 4.408, 4.253, 4.190, 4.053, 3.878, 3.825, 3.764, 3.617, 3.457, 3.381, 3.335, 3.343, 3.310, 3.374, 3.358, 3.342, 3.241, 3.165, 3.144, 3.245, 3.252, 3.335, 3.286, 3.235, 3.314, 3.265, 3.236, 3.234, 3.265, 3.215, 3.203, 3.164, 3.064, 3.072, 3.087, 3.125, 3.173, 3.330, 3.520, 3.642, 3.682, 3.758, 4.002, 4.055, 4.163, 4.320, 4.377, 4.521, 4.622, 4.738, 4.780, 4.854, 4.943, 4.950, 5.054, 5.135, 5.283, 5.381, 5.466, 5.534, 5.539, 5.515, 5.596, 5.518, 5.313, 5.380, 5.533, 5.777, 5.960, 6.150, 6.176, 6.159, 6.166, 5.635, 4.684, 4.120, 3.581, 3.355, 3.154, 3.010, 2.945, 2.811, 2.632, 2.554, 2.487, 2.484, 2.487, 2.425, 2.476, 2.499, 2.324, 2.443, 2.432, 2.543, 2.652, 2.600, 2.627, 2.593, 2.679, 2.786, 2.935, 3.115, 3.238, 3.355, 3.446, 3.467, 3.428, 3.504, 3.641, 3.509, 3.629, 3.508, 3.475, 3.540, 3.294, 3.350, 3.472, 3.236, 3.199, 2.888, 2.861, 2.927, 3.094, 3.079, 3.219, 3.104, 3.149, 3.238, 3.221, 3.298, 3.267, 9999.000, 9999.000, 9999.000];\r\n   var v_t_tedr =[5.05, 5.21, 5.28, 5.39, 5.52, 5.67, 5.87, 6.03, 6.22, 6.27, 6.34, 6.36, 6.4, 6.28, 6.11, 6.04, 6, 5.9, 5.85, 5.8, 5.71, 5.53, 5.26, 4.97, 4.79, 4.85, 4.89, 4.95, 5.02, 5.02, 5.02, 5.01, 4.82, 4.69, 4.5, 4.35, 4.2051, 4.0621, 3.8986, 3.7856, 3.7222, 3.6145, 3.4224, 3.3333, 3.3355, 3.3538, 3.3124, 3.3153, 3.3643, 3.3306, 3.2149, 3.1485, 3.1025, 3.1361, 3.2174, 3.2696, 3.2712, 3.2791, 3.2955, 3.2259, 3.2596, 3.2762, 3.2585, 3.2520, 3.2583, 3.2004, 3.1423, 3.1490, 3.1523, 3.1726, 3.2144, 3.3169, 3.4771, 3.6002, 3.6618, 3.7536, 3.9038, 4.0043, 4.1065, 4.2340, 4.3477, 4.4580, 4.5392, 4.5564, 4.7136, 4.7853, 4.8409, 4.8987, 4.9525, 5.0547, 5.1587, 5.2693, 5.3309, 5.4110, 5.4241, 5.3825, 5.4214, 5.4192, 5.2859, 5.2685, 5.4370, 5.5905, 5.8069, 6.0292, 6.0485, 6.0729, 6.0245, 5.6470, 4.8361, 4.2374, 3.8027, 3.4510, 3.2496, 3.0575, 2.9845, 2.8912, 2.7155, 2.6870, 2.6125, 2.5303, 2.5166, 2.5823, 2.5110, 2.4512, 2.4174, 2.3586, 2.4589, 2.5534, 2.6060, 2.6360, 2.6568, 2.6032, 2.8804, 2.9821, 3.0656, 3.2106, 3.3537, 3.4333, 3.4917, 3.5861, 3.5753, 3.6518, 3.6273, 3.5754, 3.7139, 3.7172, 3.6232, 3.4521, 3.3613, 3.3114, 3.2562, 3.2112, 3.1036, 3.0749, 2.9665, 2.8074, 3.0318, 3.1345, 3.1168, 3.1036, 3.0796, 3.0433, 3.0023, 3.0081, 3.0004, 2.9918, 3.0315, 2.9929];\r\n   \r\n   var v_t_suirph = []; \/* el IRPH de esta hipoteca*\/\r\n   \/* a continuaci\u00f3n generamos vector suirph*\/\r\n   if (tipoirph==\"IRPH Entidades\") {\r\n     v_t_suirph=v_t_irphent;\r\n   } else if (tipoirph==\"IRPH Cajas\") {\r\n     v_t_suirph=v_t_irphcaj;\r\n   } else {\r\n     v_t_suirph=v_t_irphban;\r\n   } \r\n\r\n\r\n\r\n   var suirph = v_t_suirph[fechaini];\r\n   var tin = suirph + diferencial;\r\n   tin = tin*10000;\r\n   tin=Math.round(tin);\r\n   tin = tin\/10000;\r\n   var tedr= v_t_tedr[fechaini];\r\n   var tindetedr = 12*(Math.pow(tedr\/100+1, 1.0\/12)-1)*100;\r\n   tindetedr = tindetedr*10000;\r\n   tindetedr=Math.round(tindetedr);\r\n   tindetedr = tindetedr\/10000;\r\n\r\n\r\n  var cuota = capital*tin\/1200\/(1-(Math.pow(1+tin\/1200,-aniostotal*12)));\r\n  var intereses = cuota*12*aniostotal - capital;\r\n  var plazoequiv = Math.log(cuota \/ (cuota - capital * tindetedr\/1200)) \/ Math.log(1 + tindetedr\/1200);\r\n  cuota=Math.round(cuota);\r\n  intereses=Math.round(intereses);\r\n  plazoequiv=Math.round(plazoequiv);\r\n  var cuotab = capital*tindetedr\/1200\/(1-(Math.pow(1+tindetedr\/1200,-plazoequiv)));\r\n  var interesesb = cuotab*plazoequiv - capital;\r\n  interesesb = Math.round(interesesb);\r\n\r\n  var deltab = intereses - interesesb;\r\n  var porintb = Math.round((intereses\/interesesb - 1) * 1000)\/10;\r\n\r\n\r\n\r\n  var cuotaa = capital*tindetedr\/1200\/(1-(Math.pow(1+tindetedr\/1200,-aniostotal*12)));\r\n  var interesesa = cuotaa*aniostotal*12 - capital;\r\n  interesesa = Math.round(interesesa);\r\n  cuotaa = Math.round(cuotaa);\r\n  var deltaa = intereses - interesesa;\r\n  var porinta = Math.round((intereses\/interesesa - 1) * 1000)\/10;\r\n\r\n  var porcapa = Math.round((deltaa\/capital) * 1000)\/10;\r\n  var porcapb = Math.round((deltab\/capital) * 1000)\/10;\r\n\r\n  intereses = intereses.toLocaleString('es-ES');\r\n  interesesb = interesesb.toLocaleString('es-ES');\r\n  interesesa = interesesa.toLocaleString('es-ES');\r\n  deltab = deltab.toLocaleString('es-ES');\r\n  deltaa = deltaa.toLocaleString('es-ES');\r\n\r\n  porcapb = porcapb.toLocaleString('es-ES');\r\n  porcapa = porcapa.toLocaleString('es-ES');\r\n  porintb = porintb.toLocaleString('es-ES');\r\n  porinta = porinta.toLocaleString('es-ES');\r\n\r\n  capital=capital*1;\r\n  capital = capital.toLocaleString('es-ES');\r\n  cuota = cuota*1;\r\n  cuota = cuota.toLocaleString('es-ES');\r\n\r\n\r\n\r\n\r\n  if (tin < tindetedr) {\r\n    alert(\"Atenci\u00f3n: esta herramienta autom\u00e1tica no puede justificar desequilibrio en este caso. El resultado no es v\u00e1lido. Necesitas un an\u00e1lisis m\u00e1s detallado.\");\r\n    return\r\n  }\r\n\r\n\r\n\r\n\r\n  suirph = suirph.toLocaleString('es-ES');\r\n  diferencial = diferencial.toLocaleString('es-ES');\r\n  tin = tin.toLocaleString('es-ES');\r\n  tedr = tedr.toLocaleString('es-ES', { minimumFractionDigits: 4, maximumFractionDigits: 4 });\r\n  tindetedr = tindetedr.toLocaleString('es-ES', { minimumFractionDigits: 4, maximumFractionDigits: 4 });\r\n\r\n\r\n\r\n  if (fechaini < 153) {\r\n    document.getElementById(\"plotargumentoseuropa\").innerHTML = \"El Supremo propone una comparativa con una estad\u00edstica relativa a la zona euro. Al no existir dicha estad\u00edstica en el momento de la firma del contrato objeto de esta demanda no procede analizar la conveniencia de esta comparativa\";\r\n  } else {\r\n    document.getElementById(\"plotargumentoseuropa\").innerHTML = \"El Supremo propone una comparativa con una estad\u00edstica relativa a la zona euro. Esta parte consiera que dicho dato no es representativo y no hay necesidad de emplearlo al existir estad\u00edsticas limitadas al mercado espa\u00f1ol\";\r\n  } \r\n\r\n\r\n  document.getElementById(\"plottipoirph\").innerHTML = tipoirph;\r\n\r\n  document.querySelectorAll(\".plotmes\").forEach(elemento => {\r\n    elemento.innerHTML = mestxt;\r\n  });\r\n  document.querySelectorAll(\".plotano\").forEach(elemento => {\r\n    elemento.innerHTML = anotxt;\r\n  });\r\n\r\n\r\n\r\n  document.getElementById(\"plotsuirph\").innerHTML = suirph;\r\n  document.getElementById(\"plotdiferencial\").innerHTML = diferencial;\r\n\r\n\r\n  document.querySelectorAll(\".plottin\").forEach(elemento => {\r\n    elemento.innerHTML = tin;\r\n  });\r\n\r\n  document.getElementById(\"plottedr\").innerHTML = tedr;\r\n\r\n  document.querySelectorAll(\".plottindetedr\").forEach(elemento => {\r\n    elemento.innerHTML = tindetedr;\r\n  });\r\n\r\n  if (fechaini < 36) {\r\n   document.getElementById(\"plotexplicacionseriebce\").innerHTML = ' Nota: la serie 19_4.2 del Banco de Espa\u00f1a solo est\u00e1 disponible a partir de enero de 2003. Sin embargo se ha comprobado que la serie MIR.M.ES.B.A2C.A.R.A.2250.EUR.N del Banco Central Europeo (Bank interest rates - loans to households for house purchase - Spain) coincide exactamente y est\u00e1 disponible desde enero de 2000. En este caso se ha utilizado el dato facilitado por el BCE. M\u00e1s informaci\u00f3n al respecto <a href=\"https:\/\/irphstop.eus\/es\/espainiako-bankuak-europako-banku-zentralari-ematen-dizkion-datuak-ez-dira-utb-ezta-batezbesteko-sinpleak-ere\/\" target=\"_blank\">aqu\u00ed<\/a>.';\r\n  }\r\n\r\n  document.querySelectorAll(\".plotcapital\").forEach(elemento => {\r\n    elemento.innerHTML = capital;\r\n  });\r\n\r\n\r\n\r\n\r\n  document.querySelectorAll(\".plotaniostotal\").forEach(elemento => {\r\n    elemento.innerHTML = aniostotal;\r\n  });\r\n\r\n\r\n  document.getElementById(\"plotcuota\").innerHTML =cuota;\r\n  document.getElementById(\"plotcuotaa\").innerHTML =cuotaa;\r\n\r\n  document.querySelectorAll(\".plotintereses\").forEach(elemento => {\r\n    elemento.innerHTML = intereses;\r\n  });\r\n\r\n\r\n  document.getElementById(\"plotplazoequiv\").innerHTML = plazoequiv;\r\n\r\n\r\n  document.querySelectorAll(\".plotinteresesa\").forEach(elemento => {\r\n    elemento.innerHTML = interesesa;\r\n  });\r\n\r\n  document.querySelectorAll(\".plotinteresesb\").forEach(elemento => {\r\n    elemento.innerHTML = interesesb;\r\n  });\r\n   \r\n  document.querySelectorAll(\".plotdeltaa\").forEach(elemento => {\r\n    elemento.innerHTML = deltaa;\r\n  });\r\n\r\n  document.querySelectorAll(\".plotdeltab\").forEach(elemento => {\r\n    elemento.innerHTML = deltab;\r\n  });\r\n  document.getElementById(\"plotporinta\").innerHTML = porinta;\r\n\r\n  document.getElementById(\"plotporintb\").innerHTML = porintb;\r\n\r\n  document.getElementById(\"plotporcapb\").innerHTML = porcapb;\r\n  document.getElementById(\"plotporcapa\").innerHTML = porcapa;\r\n  }\r\n  \r\n  \r\n  \r\n<\/script>\r\n\r\n\r\n<\/div>\r\n\r\n\r\n<\/body>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"parent":5263,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"class_list":["post-5273","page","type-page","status-publish","hentry"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/pages\/5273","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/comments?post=5273"}],"version-history":[{"count":12,"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/pages\/5273\/revisions"}],"predecessor-version":[{"id":5336,"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/pages\/5273\/revisions\/5336"}],"up":[{"embeddable":true,"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/pages\/5263"}],"wp:attachment":[{"href":"https:\/\/irphstop.eus\/es\/wp-json\/wp\/v2\/media?parent=5273"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}