de LinuxmanR4, 2 años han pasado desde su publicación, escrito en Visual Basic.
Insertar vínculo
  1. Function ISPT_Anual_2014(ByVal PercepcionesGravables As Double) As Double
  2.  
  3. '*****************************************************************************************************
  4. ' FUNCION PARA CALCULAR EL ISPT ANUAL
  5. ' Copyright (C) 2012 Francisco Javier de la Torre '
  6. ' Este código es software libre. Puede redistribuirlo y/o modificarlo bajo los términos de la
  7. ' Licencia Pública General de GNU según es publicada por la Free Software Foundation, bien de la
  8. ' versión 2 de dicha Licencia o bien (según su elección) de cualquier versión posterior.
  9. ' Este programa se distribuye con la esperanza de que sea útil, pero SIN NINGUNA GARANTÍA, incluso
  10. ' sin la garantía MERCANTIL implícita o sin garantizar la CONVENIENCIA PARA UN PROPÓSITO PARTICULAR.
  11. ' Véase la Licencia Pública General de GNU para más detalles.
  12. ' Debería haber recibido una copia de la Licencia Pública General junto con este programa. Si no ha
  13. ' sido así, escriba a la Free Software Foundation, Inc., en 675 Mass Ave, Cambridge, MA 02139, EEUU.
  14. '
  15. ' Francisco Javier de la Torre.
  16. ' http://linuxmanr4.com
  17. ' inguanzo@gmail.com
  18. '
  19. ' Actualización para el año 2014.
  20. ' Actualizacion y Correcciones para el 2012 gracias a Glezco21 y GRR.
  21. '
  22. '*****************************************************************************************************
  23.     Dim ISPT_anual(11, 2) As Double
  24.     Dim SUBSIDIO_AL_EMPLEO_ANUAL(11, 1) As Double
  25.     Dim ISPT_LimiteInferior As Double
  26.     Dim CuotaFija As Double
  27.     Dim PorcentajeSobreExcedente As Double
  28.     Dim i As Integer
  29.     Dim ISPT As Double
  30.  
  31.     'Definición de las tablas iniciales
  32.    
  33.     'ISPT ANUAL
  34.     '==============================
  35.     'Limite inferior
  36.    
  37.     ISPT_anual(0, 0) = 0.01
  38.     ISPT_anual(1, 0) = 5952.85
  39.     ISPT_anual(2, 0) = 50524.93
  40.     ISPT_anual(3, 0) = 88793.05
  41.     ISPT_anual(4, 0) = 103218.01
  42.     ISPT_anual(5, 0) = 123580.21
  43.     ISPT_anual(6, 0) = 249243.49
  44.     ISPT_anual(7, 0) = 392841.97
  45.     ISPT_anual(8, 0) = 750000.01
  46.     ISPT_anual(9, 0) = 1000000.01
  47.     ISPT_anual(10, 0) = 3000000.01
  48.     ISPT_anual(11, 0) = 999999999   'Limite superior muy alto
  49.    
  50.     'Cuota fija
  51.     ISPT_anual(0, 1) = 0
  52.     ISPT_anual(1, 1) = 114.29
  53.     ISPT_anual(2, 1) = 2966.91
  54.     ISPT_anual(3, 1) = 7130.48
  55.     ISPT_anual(4, 1) = 9438.47
  56.     ISPT_anual(5, 1) = 13087.37
  57.     ISPT_anual(6, 1) = 39929.05
  58.     ISPT_anual(7, 1) = 73703.41
  59.     ISPT_anual(8, 1) = 180850.82
  60.     ISPT_anual(9, 1) = 260850.81
  61.     ISPT_anual(10, 1) = 940850.81
  62.     ISPT_anual(11, 1) = 0
  63.    
  64.     'Porcentaje sobre excedente
  65.     ISPT_anual(0, 2) = 0.0192
  66.     ISPT_anual(1, 2) = 0.064
  67.     ISPT_anual(2, 2) = 0.1088
  68.     ISPT_anual(3, 2) = 0.16
  69.     ISPT_anual(4, 2) = 0.1792
  70.     ISPT_anual(5, 2) = 0.2136
  71.     ISPT_anual(6, 2) = 0.2352
  72.     ISPT_anual(7, 2) = 0.3
  73.     ISPT_anual(8, 2) = 0.32
  74.     ISPT_anual(9, 2) = 0.34
  75.     ISPT_anual(10, 2) = 0.35
  76.     ISPT_anual(11, 2) = 0
  77.    
  78.     'Iniciamos el cálculo del ISPT anual.
  79.    
  80.     CuotaFija = 0: PorcentajeSobreExcedente = 0
  81.     'Buscamos un valor apropiado en la tabla del ISPT Anual
  82.     i = 0
  83.     Do
  84.         If ISPT_anual(i, 0) > PercepcionesGravables Then
  85.             ISPT_LimiteInferior = ISPT_anual(i - 1, 0)
  86.             CuotaFija = ISPT_anual(i - 1, 1)
  87.             PorcentajeSobreExcedente = ISPT_anual(i - 1, 2)
  88.             Exit Do
  89.         Else
  90.             i = i + 1
  91.         End If
  92.     Loop Until i = 12
  93.    
  94.     'Ya tenemos los valores de Cuota Fija y Porcentaje sobre excedente, procedemos a calcular el ISPT Anual
  95.    
  96.     ISPT = CuotaFija + ((PercepcionesGravables - ISPT_LimiteInferior) * PorcentajeSobreExcedente)
  97.    
  98.     ISPT_Anual_2014 = Round(ISPT, 2)
  99.    
  100. End Function
  101.  

Respuestas a ISPT 2014 Excel v2 rss

Título Nombre Lenguaje cuando
Re: ISPT 2014 Excel v2 Fiery Bushbaby vb 10 meses han pasado desde su publicación.