Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

UDF Descuento AFP

| 1 comentario

Función que calcula el total de aportes obligatorio por AFP (comisión + seguro + fondo) de los afiliados bajo el esquema de comisión por remuneración (flujo), a setiembre de 2013.

Ver un ejemplo en la siguiente imagen:

UDF DescuentoAFP 300x171, UDF Descuento AFP

(Para mayor visualización de la imagen, hacer click en la misma)

Sintaxis:

Function DescuentoAFP(sueldo, afp)
Select Case afp
Case 1: ' PRIMA
fondo = sueldo * 0.1
seguro = sueldo * 0.0129
comision = sueldo * 0.016

Case 2: ' HABITAT
fondo = sueldo * 0.1
seguro = sueldo * 0.0116
comision = sueldo * 0.0147

Case 3: ' INTEGRA
fondo = sueldo * 0.1
seguro = sueldo * 0.0122
comision = sueldo * 0.0155

Case 4: ' PROFUTURO
fondo = sueldo * 0.1
seguro = sueldo * 0.0138
comision = sueldo * 0.0184

Case 5 To 5000000:
MsgBox "Número incorrecto. Digite un número de 1 a 4"

End Select

descuento = fondo + seguro + comision
DescuentoAFP = descuento

End Function

 

Por: De la Cerna Villavicencio

Un comentario

Deja una respuesta

Los campos requeridos estan marcados con *.