Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Tarea3 Macro, Ejemplo de If then Else aplicado a descuento por tardanzas

Ejemplo de If then Else aplicado a descuento por tardanzas

| 1 comentario

Esta macro determina si al trabajador se le descontará en dicho día de trabajo en caso haya llegado tarde (If_then_Else_descuentoxtardanzas)

Se cuenta con 10 minutos de tolerancia, pero en caso de que se exceda la tolerancia se procede a descontar los minutos completos. La hora de ingreso es a las 8:30am, por lo que los trabajadores pueden llegar sin que se les descuente hasta las 8:40am; no podrán llegar antes de las 8am y si llegaran pasado las 9am, ya no podrán presentarse a trabajar.

Abajo se muestra la hoja excel en la cual se selecciona la hora de ingreso…

Tarea3 Macro, Ejemplo de If then Else aplicado a descuento por tardanzas

A continuación se muestra una Macro que obtiene los minutos en los que llegó un trabajador y determina si tendrá algún descuento.

Sub If_then_Else_descuentoxtardanzas()
Dim llegada, descuento As Integer

MsgBox ("Seleccione la hora de ingreso del trabajador")
' El usuario debería seleccionar la hora a la que llegó el trabajador, por lo que la variable hora contendrá dicha información…

hora = ActiveCell.Value
llegada = Minute(hora)
' Se obtienen los minutos de la hora en la que llegó el trabajador para determinar si llegó a tiempo…

If llegada > 40 Then
descuento = llegada – 30
' Se determina el descuento

MsgBox "Se le descontará " & descuento & " minutos el día de hoy"
Else
MsgBox "Gracias por su puntualidad"

End If

End Sub

Descargar ejemplo de If Then Descuentoxtardanza

Un comentario

Deja una respuesta

Los campos requeridos estan marcados con *.