Imports System

Public Module Module1

    Dim Dias as Integer

    Dim cuentadias as Integer

    Dim valor as double

    Dim Sumadias as double

    Dim Septimo as double

    Dim TotalSemana as double

    Dim opc, opcaso as integer

​

    Dim descuento as double

    Dim desc as double

    Dim ss as double

    Dim descu as double

    Dim opcbo as integer

    Dim bono as double

    Dim opcextra as integer

    Dim hextra as double

    Dim vporh as double

    Dim ts as double

    Dim horaex as double

    Dim liqui as double

    Public Sub Main()

        Console.WriteLine("-CÁLCULO PLANILLA SEMANAL-")

        Console.WriteLine(" ")

        Console.WriteLine("INGRESE LOS DÍAS LABORADOS DURANTE LA SEMANA")

        Dias= Console.ReadLine()

        If Dias = 7 Then

        For cuentadias = 1 to 6 Step 1

        Console.WriteLine("INGRESE VALOR DEL DÍA: " &cuentadias)

        Valor= Console.ReadLine()

        Sumadias += Valor 

        Next

        else

        For cuentadias = 1 to Dias Step 1

        Console.WriteLine("INGRESE VALOR DEL DÍA: " &cuentadias)

        Valor= Console.ReadLine()

        Sumadias += Valor

        Next

        end if 

    If Dias = 7 Then

        Septimo = Sumadias/6

    Console.WriteLine("EL VALOR DEL DIA 7 ES: " &septimo)

        TotalSemana = Sumadias + Septimo

        Console.WriteLine("EL TOTAL SEMANAL ES: Q" &TotalSemana)

        ts = TotalSemana 

    Else

        Console.WriteLine("EL TOTAL SEMANAL ES: Q" &Sumadias)   

            ts = Sumadias

    End if

​

    Console.WriteLine(" ")

    Console.WriteLine("¿DESEA REGISTRAR DESCUENTOS?")

    Console.WriteLine("1. SI 2.NO ")

    opc = Console.ReadLine()

​

    if opc = 1 then

        Console.WriteLine("1.ANTICIPO 2.PRESTAMO")

        opcaso= console.ReadLine()

        descuento = 0

        Select (opcaso)

            case 1

            Console.WriteLine("ANTICIPO")

            Console.WriteLine("INGRESE EL ANTICIPO QUE SE OBTUVO")

            descuento = Console.ReadLine()

            Console.WriteLine("*REGISTRADO*")

            Console.WriteLine(" ")

                ss= (ts*0.0483)/4

        Console.WriteLine("EL SEGURO SOCIAL (SEMANAL) ES DE: Q" &ss)

            if (descuento > ts) then

                Console.WriteLine("NO SE PUEDE REALIZAR LA OPERACION")

                    ss= (ts*0.0483)/4

        Console.WriteLine("EL SEGURO SOCIAL (SEMANAL) ES DE: Q" &ss)

            end if

            case 2

            Console.WriteLine("PRESTAMO")

            Console.WriteLine("INGRESE EL PRESTAMO QUE SE OBTUVO")

            descuento = Console.ReadLine()  

            Console.WriteLine("*REGISTRADO*")

            Console.WriteLine(" ")

                ss= (ts*0.0483)/4

        Console.WriteLine("EL SEGURO SOCIAL (SEMANAL) ES DE: Q" &ss)

            if (descuento > ts) then

                Console.WriteLine("NO SE PUEDE REALIZAR LA OPERACION")

                    ss= (ts*0.0483)/4

        Console.WriteLine("EL SEGURO SOCIAL (SEMANAL) ES DE: Q" &ss)

            end if

​

            End select

    Else

        ss= (ts*0.0483)/4

        Console.WriteLine("EL SEGURO SOCIAL (SEMANAL) ES DE: Q" &ss)

    end if

​

    Console.WriteLine(" ")

    Console.WriteLine("¿DESEA REGISTRAR UN BONO?")

        Console.WriteLine("1.SI 2.NO")

    opcbo = Console.ReadLine()

​

        Select (opcbo)

            case 1

            bono = 62.5

        Console.WriteLine("SU BONO (SEMANAL) ES DE: Q"& bono)   

            case 2

            bono = 0.00

        Console.WriteLine("SU BONO (SEMANAL) ES DE: Q"& bono)           

​

            End select

        Console.WriteLine(" ")

    Console.WriteLine("¿DESEA REGISTRAR HORAS EXTRA?")

        Console.WriteLine("1.SI 2.NO")

    opcextra = Console.ReadLine()

​

        Select (opcextra)

            case 1

        Console.WriteLine("¿CUANTAS HORAS EXTRA TRABAJO?")

    hextra = Console.ReadLine()

    if (hextra >20) then

        Console.WriteLine("EL VALOR DE LAS HORAS EXTRA ES MAYOR A LO PERMITIDO")

    else

        vporh = (ts / 7)/8

        horaex = (vporh * hextra)*2

        Console.WriteLine("EL VALOR DE LAS HORAS EXTRA QUE LABORÓ ES DE: Q" & horaex)

    end if

            case 2

        horaex = 0          

​

            End select

    liqui = ts - descuento - ss + bono + horaex

    Console.WriteLine("SU LIQUIDO A RECIBIR ES DE: Q" & liqui)

Console.WriteLine(" ")

Console.WriteLine("BENJAMIN VASQUEZ" )

    End Sub

End Module