Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 24 vistas

    Declaracion de Variables

    Cargado por

    Anthon Jazmany

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Declaracion de Variables

    Cargado por

    Anthon Jazmany
    24 vistas2 páginas

    Título original

    DECLARACION DE VARIABLES

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    24 vistas2 páginas

    Declaracion de Variables

    Cargado por

    Anthon Jazmany

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    Está en la página 1de 2

    ' DECLARACION DE VARIABLES

    Dim Nombre As String


    Dim SUELDO, BONO, SUELDO_RECIBIR As Double
    Dim F As Integer

    Private Sub btnEjecutar_Click()


    'ENTRADA
    Nombre = txtNombre.Text
    SUELDO = Val(txtSueldo.Text)
    'PROCESOS
    If SUELDO < 1000 Then
    BONO = SUELDO * 0.25
    Else
    If SUELDO >= 1000 And SUELDO <= 2500 Then
    BONO = SUELDO * 0.15
    Else
    BONO = SUELDO * 0.1
    End If
    End If

    SUELDO_RECIBIR = SUELDO + BONO


    'RESULTADOS
    lblBono.Caption = Format(BONO, "$0.00")
    lblTotal.Caption = Format(SUELDO_RECIBIR, "$0.00")

    End Sub

    Private Sub btnGrabar_Click()


    'UBICAR LA HOJA
    Sheets("BONO").Select

    'UBICAR LA ULTIMA FILA OCUPADA + 1


    F = ActiveSheet.UsedRange.Rows.Count + 1

    'GRABAR LOS DATOS EN CADA CELDA


    Cells(F, 1) = Nombre
    Cells(F, 2) = SUELDO
    Cells(F, 3) = BONO
    Cells(F, 4) = SUELDO_RECIBIR

    'GRABAR AL LIBRO AL SALIR


    ActiveWorkbook.Save

    End Sub

    Private Sub btnNuevo_Click()


    txtNombre.Text = ""
    txtSueldo.Text = ""
    lblBono.Caption = ""
    lblTotal.Caption = ""

    End Sub

    Private Sub btnSalir_Click()


    End
    End Sub

    También podría gustarte