Códigos Para Una Planilla En Excel Y Visual Basic

Instrucciones: antes de iniciar tendrá que tener un botón para llamar el formulario

Al dar clic al botón tendrá que mostrar el siguiente formulario, (usted puede cambiar el diseño del formulario, utilice su creatividad para mejorar el diseño)

Código para el botón Procesar-----

'variable global

Dim cantidadseptimos As Integer

Private Sub CommandButton1_Click()

' variables enteras

Dim diaslaborados As Integer

Dim salariodiario As Integer

salariodiario = 68

Dim horasextras As Integer

'obtenemos la cantidad de horas extras del trabajador

horasextras = Val(TextBox4.Text)

'variables de tipo decimal

Dim salarioordinario, valorhorasextras, salarioextraordinario, valorseptimo, igss, bonificacion, total As Double

'verificamos si la los campos están llenos (nombre y mes operar)

If TextBox1.Text = "" Then MsgBox ("ingrese el nombre del empleado"): Exit Sub

If ComboBox1.Text = "" Then MsgBox ("Seleccione el Mes a operar"): Exit Sub

'llamamos al procedimiento valorextra para que verifique cuantos séptimos tiene la persona

Valorextras

'Días laborados ausencias 1 - ausencias 2

diaslaborados = 13 - Val(TextBox2.Text) - Val(TextBox3.Text)

TextBox5.Text = diaslaborados

'salario ordinario salario diario * los dias laborados

salarioordinario = 68 * diaslaborados

TextBox6.Text = salarioordinario

'valor de horas extras(salario diario / 8) * 1.5

valorhorasextras = (salariodiario / 8) * 1.5

TextBox7.Text = valorhorasextras

'Salario extra ordinario valor de horas extras * horas extras realizadas

salarioextraordinario = valorhorasextras * horasextras

TextBox8.Text = salarioextraordinario

'valor de los septimos ((salario ordinario + salario extrordinario)/13)*cantidad de septimos

valorseptimo = ((salarioordinario + salarioextraordinario) / 13) * cantidadseptimos

TextBox9.Text = valorseptimo

'IGSS (salario diario + salario extraordinario+ valor del septimo)*4.83%

igss = ((salariodiario + salarioextraordinario + valorseptimo) * 4.83) / 100

TextBox10.Text = Format(igss, "##0.00")

'Bonificación (250/30)*(dias laboradors + cantidad de septimos)

bonificacion = (250 / 30) * (diaslaborados + cantidadseptimos)

TextBox11.Text = Format(bonificacion, "##0.00")

'total salario ordinario + salario extraordinario+valor del septimo + bonificación - IGSS

total = salarioordinario + salarioextraordinario + valorseptimo + bonificacion - igss

TextBox12.Text = Format(total, "##0.00")

End Sub

Sub Valorextras()

'variables para obtener la cantidad de séptimos

Dim semana1, semana2 As Integer

semana1 = Val(TextBox2.Text)

semana2 = Val(TextBox3.Text)

...