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:
(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
01/08/2014 a las 4:12 pm
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