Función para calcular el ISPT 2014 en Excel y LibreOffice

ISPT 2014 en Excel y Libreoffice

Hace ya algunos años desarrollé una función similar a la que hoy les comparto y la pueden ver en el artículo Función en Excel para calcular el ISPT anual.

ISPT 2014 en Excel y Libreoffice

Nuevamente la rescato del baúl del programador para hacerle algunas modificaciones. En primer lugar, la actualización de los valores de la tabla que sirve para el cálculo que corresponden al ejercicio 2014 y además de que en esta ocasión me pidieron que ya no descontara el subsidio anual y solamente hiciera el cálculo del ISPT.

La Fórmula

Según me explicaron, esta es la fórmula que se utiliza para calcular el ISPT:



nbsp;

Fórmula para calcular el ISPT

nbsp;



El asunto se complica un poco porque varios de los valores se buscan en una tabla dependiendo de las Percepciones Gravables.

Tabla para el cálculo del ISPT 2014
Fig.1 Tabla utilizada para hacer los cálculos.

Por eso creo que el mejor enfoque fue hacer una función para Excel y otra para LibreOffice que hicieran de manera automática la búsqueda de los valores y el cálculo del impuesto.

Código de la función para Excel

Inicialmente desarrolle esta función para Excel ya que es el programa que generalmente usan los contadores.

Código de la función para LibreOffice

El código para LibreOffice es muy similar al de Excel, solo se cambio la función Round por Format para que el resultado lo muestre solamente con 2 decimales.

Software Libre

Los códigos de las funciones son software libre (libertad para usar,copiar y modificar). Aunque hice varias pruebas y lo verifiqué varias veces haciendo el cálculo manualmente no esta exento de errores, así que les pido que si notan algún “detallito” o error, por favor no dejen de reportarlo.

Para que no batallen, les dejo este archivo zip ISPT 2014 v20140212 que incluye sendos ejemplos en Excel y Libreoffice.

Espero que esta función les sea de utilidad a los amigos contadores que siendo honestos, les deberían de dar una medalla por hacer de estos cálculos su trabajo cotidiano.

Función que devuelve sólo los números de una celda en LibreOffice

Elastix tiene una opción llamada address book en donde puedes buscar, agregar contactos y con sólo presionar un botón se puede marcar el teléfono directamente. Básicamente hace una conferencia, porque marca tu extensión y también el número telefónico de tu contacto.
Me pasaron una hoja de cálculo con más de 400 contactos, para importar tal cantidad de datos es necesario un archivo .csv con al menos 3 campos, nombre, apellidos y claro el número telefónico.

El problema es que el campo con el número telefónico estaba muy “contaminado”, demasiadas letras de más que probablemente el conmutador no iba a entender. Además necesitaba saber que números telefónicos eran válidos por su longitud. Por ejemplo un número local consta de 7 dígitos, pero una larga distancia nacional es de 12. Eso me ayudaría a detectar visualmente algunos problemas con los números.

Pero para lograrlo necesitaba una función que extrajerá sólo los números, sin guiones, sin paréntesis, sin anotaciones.

Afortunadamente encontré una función que hace algo muy similar en Extract a number from a text string, sólo que esta función también regresa algunos símbolos como el punto o signos de operación, afortunadamente es muy fácil de ajustar modificando la línea.

Numbers_And_Signs = "0123456789 .+-*/"

Con esto en mente hice mi propia función que sólo extrae números.

Function Only_Numbers(Text_From_Cell as string) as string
Numbers_And_Signs = "0123456789"
n = len(Text_From_Cell)
Only_Numbers = ""
For i = 1 to n
ActChar = Mid(Text_From_Cell,i,1)
if Instr(Numbers_And_Signs,ActChar)<>0 then Only_Numbers = Only_Numbers + ActChar
next i
end function

Ejemplos de la función only_numbers

Ejemplos de la función only_numbers | función solo numeros libreoffice
Ejemplos de la función only_numbers

Como pueden ver, la función hace un barrido del contenido de la celda que recibe la función, busca y filtra lo que ustedes quieran en la cadena Numbers_And_Signs, no sólo es útil para extraer números, de hecho les puede servir para filtrar cualquier conjunto de letras, números o símbolos que deseen.

Si no saben como agregar una función les recomiendo que lean Función para convertir de número a cantidad con letra en LibreOffice Calc. En ese artículo se explica muy bien como agregar una función en LibreOffice.

Iconos planos (flat icons) para LibreOffice en Manjaro

Gracias al buen amigo Yoyo Fernandez que publicó este artículo sobre como instalar este juego de iconos monocromáticos para Libre Office en Manjaro.

Iconos Monocromáticos en LibreOffice

Realmente se ven muy bien y es muy sencillo de instalar.

Se inicia cualquier programa de LibreOffice, puede ser Calc o Writer, se va al menú Herramientas, y luego clic en Opciones, en la sección que dice Ver hay que cambiar el estilo de los iconos de Tango (automático) a Cristal.

Luego en una terminal:

cd /tmp && wget https://github.com/hotice/myfiles/raw/master/images_flat.zip

y una vez que descargue el archivo:

sudo cp images_flat.zip /usr/lib/libreoffice/share/config/images_crystal.zip

Cerramos los programas de LibreOffice y al volverlos a abrir.. ¡Tadaaaan! aparecerán con el nuevo estilo de iconos planos y monocromáticos.