Plantillas
Instrucciones: antes de iniciar tendrá que tener un botón para llamar el formulario
El código del botón es el siguiente
Sub Botón1_Haga_clic_en()
UserForm1.Show
End Sub
Elcódigo del botón es el siguiente
Sub Botón1_Haga_clic_en()
UserForm1.Show
End Sub
Al dar clic al botón tendrá que mostrar el siguiente formulario, (usted puede cambiar el diseño delformulario, utilice su creatividad para mejorar el diseño)
Código para el botón Procesar-----
'variable global
Dim cantidadseptimos As Integer
Private SubCommandButton1_Click()
' variables enteras
Dim diaslaborados As Integer
Dim salariodiario As Integer
salariodiario = 68
Dim horasextras As Integer
'obtenemos la cantidad de horas extras deltrabajador
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 ("Seleccioneel 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 2diaslaborados = 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...
Regístrate para leer el documento completo.