Se requiere detectar el nivel máximo de porcentaje de retención de quinta categoría que se tendrá por trabajador según sus ingresos proyectados anuales.
Según la norma tributaria se tienen los siguientes 3 niveles:
(Para mayor visualización de la imagen, hacer click en la misma)
Para esto se tendrá un cuadro con los ingresos proyectados anuales que se requieren evaluar.
Se estaría definiendo en la aplicación como constantes los 3 valores. También combinando la orden con la aplicación Do While. .. Loop para poder llenar el cuadro.
(Para mayor visualización de la imagen, hacer click en la misma)
La orden escrita en la macro es la siguiente:
Const a = 15
Const b = 21
Const c = 30
Sub Principal2()
Dim X As Variant, I As Byte
I = 2
Do While Cells(I, 2) <> ""
X = Cells(I, 2)
Select Case X
Case 0 To 98550: Cells(I, 3) = a
Case 98551 To 197100: Cells(I, 3) = b
Case Is > 197100: Cells(I, 3) = c
End Select
I = I + 1
Loop
End Sub
Cabe indicar que el último tramo tiene como tope un número infinito. La tabla inicial tenía llenado sólo los importes proyectados en la columna B donde se colocaba la base imponible de retención de quinta categoría proyectada por el año.
Elaborado por: Rosa Elvira Romero Matos