de linuxmanr4, 4 años han pasado desde su publicación, escrito en Visual Basic.
Enlace corto
http://gw.gd/8ar9
Insertar vínculo
  1. REM  *****  BASIC  *****
  2.  
  3. Function ISPT_Anual_2012(ByVal PercepcionesGravables As Double) As Double
  4.  
  5. '*****************************************************************************************************
  6. ' FUNCION PARA CALCULAR EL ISPT ANUAL
  7. ' Copyright (C) 2012 Francisco Javier de la Torre '
  8. ' Este código es software libre. Puede redistribuirlo y/o modificarlo bajo los términos de la
  9. ' Licencia Pública General de GNU según es publicada por la Free Software Foundation, bien de la
  10. ' versión 2 de dicha Licencia o bien (según su elección) de cualquier versión posterior.
  11. ' Este programa se distribuye con la esperanza de que sea útil, pero SIN NINGUNA GARANTÍA, incluso
  12. ' sin la garantía MERCANTIL implícita o sin garantizar la CONVENIENCIA PARA UN PROPÓSITO PARTICULAR.
  13. ' Véase la Licencia Pública General de GNU para más detalles.
  14. ' Debería haber recibido una copia de la Licencia Pública General junto con este programa. Si no ha
  15. ' sido así, escriba a la Free Software Foundation, Inc., en 675 Mass Ave, Cambridge, MA 02139, EEUU.
  16. '
  17. ' Francisco Javier de la Torre.
  18. ' http://linuxmanr4.com
  19. ' inguanzo@gmail.com
  20. '
  21. ' Actualizacion y Correcciones para el 2012 gracias a Glezco21 y GRR.
  22. '
  23. '*****************************************************************************************************
  24.     Dim ISPT_anual(8, 2) As Double
  25.     Dim SUBSIDIO_AL_EMPLEO_ANUAL(11, 1) As Double
  26.     Dim ISPT_LimiteInferior As Double
  27.     Dim CuotaFija As Double
  28.     Dim PorcentajeSobreExcedente As Double
  29.     Dim i As Integer
  30.     Dim ISPT As Double
  31.     Dim SubsidioAlEmpleo As Double
  32.  
  33.     'Definición de las tablas iniciales
  34.    
  35.     'ISPT ANUAL
  36.     '==============================
  37.     'Limite inferior
  38.    
  39.     ISPT_anual(0, 0) = 0.01
  40.     ISPT_anual(1, 0) = 5952.84
  41.     ISPT_anual(2, 0) = 50524.92
  42.     ISPT_anual(3, 0) = 88793.04
  43.     ISPT_anual(4, 0) = 103218
  44.     ISPT_anual(5, 0) = 123580.2
  45.     ISPT_anual(6, 0) = 249243.48
  46.     ISPT_anual(7, 0) = 392841.96
  47.     ISPT_anual(8, 0) = 999999999   'Limite superior muy alto
  48.    
  49.     'Cuota fija
  50.     ISPT_anual(0, 1) = 0
  51.     ISPT_anual(1, 1) = 114.24
  52.     ISPT_anual(2, 1) = 2966.76
  53.     ISPT_anual(3, 1) = 7130.88
  54.     ISPT_anual(4, 1) = 9438.6
  55.     ISPT_anual(5, 1) = 13087.44
  56.     ISPT_anual(6, 1) = 38139.6
  57.     ISPT_anual(7, 1) = 69662.4
  58.     ISPT_anual(8, 1) = 0
  59.    
  60.     'Porcentaje sobre excedente
  61.     ISPT_anual(0, 2) = 0.0192
  62.     ISPT_anual(1, 2) = 0.064
  63.     ISPT_anual(2, 2) = 0.1088
  64.     ISPT_anual(3, 2) = 0.16
  65.     ISPT_anual(4, 2) = 0.1792
  66.     ISPT_anual(5, 2) = 0.2136
  67.     ISPT_anual(6, 2) = 0.2352
  68.     ISPT_anual(7, 2) = 0.3
  69.     ISPT_anual(8, 2) = 0
  70.    
  71.     'SUBSIDIO AL EMPLEO
  72.     '==============================
  73.     'Limite inferior
  74.    
  75.     SUBSIDIO_AL_EMPLEO_ANUAL(0, 0) = 0.01
  76.     SUBSIDIO_AL_EMPLEO_ANUAL(1, 0) = 1768.97
  77.     SUBSIDIO_AL_EMPLEO_ANUAL(2, 0) = 2653.39
  78.     SUBSIDIO_AL_EMPLEO_ANUAL(3, 0) = 3472.85
  79.     SUBSIDIO_AL_EMPLEO_ANUAL(4, 0) = 3537.88
  80.     SUBSIDIO_AL_EMPLEO_ANUAL(5, 0) = 4446.16
  81.     SUBSIDIO_AL_EMPLEO_ANUAL(6, 0) = 4717.19
  82.     SUBSIDIO_AL_EMPLEO_ANUAL(7, 0) = 5335.43
  83.     SUBSIDIO_AL_EMPLEO_ANUAL(8, 0) = 6224.68
  84.     SUBSIDIO_AL_EMPLEO_ANUAL(9, 0) = 7113.92
  85.     SUBSIDIO_AL_EMPLEO_ANUAL(10, 0) = 7382.34
  86.     SUBSIDIO_AL_EMPLEO_ANUAL(11, 0) = 999999999   'Limite superior muy alto
  87.    
  88.     'Subsidio
  89.     SUBSIDIO_AL_EMPLEO_ANUAL(0, 1) = 407.02
  90.     SUBSIDIO_AL_EMPLEO_ANUAL(1, 1) = 406.83
  91.     SUBSIDIO_AL_EMPLEO_ANUAL(2, 1) = 406.62
  92.     SUBSIDIO_AL_EMPLEO_ANUAL(3, 1) = 392.77
  93.     SUBSIDIO_AL_EMPLEO_ANUAL(4, 1) = 382.46
  94.     SUBSIDIO_AL_EMPLEO_ANUAL(5, 1) = 354.23
  95.     SUBSIDIO_AL_EMPLEO_ANUAL(6, 1) = 324.87
  96.     SUBSIDIO_AL_EMPLEO_ANUAL(7, 1) = 294.63
  97.     SUBSIDIO_AL_EMPLEO_ANUAL(8, 1) = 253.54
  98.     SUBSIDIO_AL_EMPLEO_ANUAL(9, 1) = 217.61
  99.     SUBSIDIO_AL_EMPLEO_ANUAL(10, 1) = 0#
  100.     SUBSIDIO_AL_EMPLEO_ANUAL(11, 1) = 0#
  101.    
  102.     'Iniciamos el cálculo del ISPT anual.
  103.    
  104.     CuotaFija = 0: PorcentajeSobreExcedente = 0
  105.     'Buscamos un valor apropiado en la tabla del ISPT Anual
  106.     i = 0
  107.     Do
  108.         If ISPT_anual(i, 0) > PercepcionesGravables Then
  109.             ISPT_LimiteInferior = ISPT_anual(i - 1, 0)
  110.             CuotaFija = ISPT_anual(i - 1, 1)
  111.             PorcentajeSobreExcedente = ISPT_anual(i - 1, 2)
  112.             Exit Do
  113.         Else
  114.             i = i + 1
  115.         End If
  116.     Loop Until i = 9
  117.    
  118.     'Ya tenemos los valores de Cuota Fija y Porcentaje sobre excedente, procedemos a calcular el ISPT Anual
  119.    
  120.     ISPT = CuotaFija + ((PercepcionesGravables - ISPT_LimiteInferior) * PorcentajeSobreExcedente)
  121.    
  122.     ISPT = Format(ISPT,"000000000000000.00")
  123.    
  124.     'Ahora Buscamos el subsidio al empleo.
  125.    
  126.     SubsidioAlEmpleo = 0
  127.     i = 0
  128.     Do
  129.         If SUBSIDIO_AL_EMPLEO_ANUAL(i, 0) > (PercepcionesGravables / 12) Then
  130.             SubsidioAlEmpleo = SUBSIDIO_AL_EMPLEO_ANUAL(i - 1, 1)
  131.             Exit Do
  132.         Else
  133.             i = i + 1
  134.         End If
  135.     Loop Until i = 12
  136.     ISPT_Anual_2012 = ISPT - (SubsidioAlEmpleo * 12)
  137. End Function

Respuestas a ISPT 2012 para LibreOffice rss

Título Nombre Lenguaje cuando
Re: ISPT 2012 para LibreOffice Sole Bison vb 4 años han pasado desde su publicación.