Excel Avanzado

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

Excel Avanzado
Logo Excel Avanzado

UDF Descuento AFP

| 1 Comment

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

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

One Comment

  1. Excelente ejemplo para el calculo de las AFP, Yo tengo un ejemplo muy similar a este, pero en JAVA. , me gustaría que publicaras el código de tu macro, para ver si podríamos optimizarlo de alguna manera, para poder postearlo luego en una aplicación sencilla de interacción directa con los nuevos estudiantes. Saludos

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5