Programa que calcule la nomina de pago

Programa que calcule la nomina de pago: código, empleado, depto., puesto, salario bruto.
si sueldo>=6000: ars=0.02, afp=0.03, coop=0.01; si sueldo>=6001 and sueldo<=8500: ars=0.03, afp=0.06, coop=0.04. calcular el total de descuento y el sueldo neto. hay descuento que se llama "otrs" el cual varia.
Espero que me puedas explicar lo que tengo que hacer y me muestres un ejemplo
es urgente
por favor

1 respuesta

1
Respuesta de
No explicas el origen de los datos, por lo que supondré que lees el sueldo de un campo de texto de la pantalla (llamesmosle sueldo) y ejecutas el cálculo al pulsar un botón que, supongamos, se llama 'btnCalculaNeto' (por ponerle un nombre).
En tu código tendrías que poner:
sub btnCalculaNeto_Click()
    dim sueldo_Bruto as double
    dim sueldo_Neto as double
    dim porc_ARS as double
    dim porc_AFP as double
    dim porc_COOP as double
    dim imp_ARS as double
    dim imp_AFP as double
    dim imp_COOP as double
    sueldo_Bruto = me.salario_Bruto ' Copiamos del formulario a la variable el sueldo bruto
    if sueldo_Bruto <= 6000 then
        porc_ARS = 0.02
        porc_AFP = 0.03
        porc_COOP = 0.01
      else
        if sueldo_Bruto <= 8500 then ' Ya tiene que ser mayor que 6000 para entrar por el "else"
            porc_ARS = 0.03
            porc_AFP = 0.06
            porc_COOP = 0.04
          else ' No indicas cuales son cuando el sueldo es mayor de 8500. Pongo una burrada
            porc_ARS = 0.20
            porc_AFP = 0.30
            porc_COOP = 0.10
        end if           
    end if   
    ' Ya sabemos los porcentajes a descontar. Calculamos cada descuento redondeando a 2 decimales
    imp_ARS = round(sueldo_Bruto*porc_ARS,2)
    imp_AFP = round(sueldo_Bruto*porc_AFP,2)
    imp_COOP = round(sueldo_Bruto*porc_COOP,2)
    ' El sueldo neto será el bruto menos los descuentos
    sueldo_Neto = sueldo_Bruto - imp_ARS - imp_AFP - imp_COOP
    ' Presentamos el resultado en la ventana
' (supongamos que para ello tenemos 4 cuadros de texto llamados ARS, AFP, COOP y sueldoNeto)
    me.ARS = imp_ARS
    me.AFP = imp_AFP
    me.COOP = imp_COOP
    me.sueldoNeto = sueldo_Neto
    me.refresh ' Para actualizar lo que se ve en la ventana.
end sub
Espero haber sido de utilidad.
Un saludo
P.d.: muy bonito tu país
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje