Ejemplo de If then Else aplicado a descuento por tardanzas

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…

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