Imports System

'Algoritmo que calcula la utilidad que un trabajador recibe en el reparto anual de utilidades si este se le asigna como un porcentaje de su salario mensual que depende de su antiguedad en la empresa de acuerdo con lo siguiente:

'Menos de 1 año calcular 5% del salario.

'1 año o màs y menos de 2 años calcular 7% del salario.

'2 año o màs y menos de 5 años calcular 10% del salario.

'5 año o màs y menos de 10 años calcular 15% del salario.

'10 años o màs calcular 20% del salario.

​

Public Module Utilidad

    Public Sub Main()

        Dim salario, tiempo, utilidad, ganancia as single 

        Dim ISSS as single

        Dim AFP as single

        Dim ISR as single

        Dim Monto_sujeto as single

        Dim sin_retenciones as single

        Dim valor_recibido as single

        Dim retenciones as single

        Dim pago as single

        salario= 0

        tiempo= 0

        utilidad= 0     

        ISSS= 0.03

        AFP= 0.0725

        ISR= 0

        Monto_sujeto= 0

        sin_retenciones= 0

        valor_recibido= 0

        retenciones= 0

        ganancia= 0

        Console.Write("Ingresar salario: ")

        salario=Console.ReadLine()

        Console.Write("Ingrese el tiempo trabajado dentro de la empresa: ")

        tiempo= Console.ReadLine()

        ganancia= utilidad*salario

        if tiempo  < 1 Then

            utilidad= 0.05

        End if

        if tiempo < 2 Then

            utilidad= ganancia * 0.07

        End if

        if tiempo < 5 Then 

            utilidad= ganancia * 0.10

        End if

        if tiempo < 10 Then

            utilidad= ganancia * 0.15

        End if

        if tiempo > 10 Then

            utilidad= ganancia * 0.20 

        End if

        valor_recibido= ganancia + salario

        Console.Write("Valor recibido: ")

        Monto_sujeto= valor_recibido-ISSS-AFP

        Console.Write("Impuesto sobre la renta: ")

        ISR= Monto_sujeto

        if Monto_sujeto < 472.00 Then

            ISR= 0

        End if

        if Monto_sujeto < 895.24 Then

            ISR= salario * 0.10 + 17.67

        End if

        if Monto_sujeto < 2038.10 Then

            ISR= salario * 0.20 + 60.00

        End if

        if Monto_sujeto > 2038.10 Then

            ISR= salario* 0.30 + 288.57

        End if

        pago= Monto_sujeto-ISR

        Console.WriteLine("Salario recibido: ${0,5:N2}", salario)

        Console.WriteLine("Descuento: ${0,5:N2} ", Monto_sujeto)

        Console.WriteLine("----------------------------" )

        Console.WriteLine("Impuesto: ${0,5:N2}", ISR)

        Console.WriteLine(" Resultado: ${0,5:N2}", ganancia )

        Console.WriteLine("----------------------------" )

        Console.WriteLine("Pago: ${0,5:N2}", pago )

        Console.ReadLine()

    End Sub

End Module