Penalización después de un plazo
Estoy haciendo la base de datos de un videoclub (ejemplo personal para aprender) y no sé como obtener el siguiente resultado:
Si devuelve en dos días sólo se le cobra la película pero si tarda más tendrá una penalización por día de 2 euros.
Gracias
Si devuelve en dos días sólo se le cobra la película pero si tarda más tendrá una penalización por día de 2 euros.
Gracias
1 respuesta
Respuesta de fibonnaci
1
Private Sub Diferencia_Horas()
Dim a As Date
Dim b As Date
On Error GoTo err1
a = CDate(InputBox("Fecha A ?", "Introduce la fecha"))
b = CDate(InputBox("Fecha B ?", "Introduce la fecha"))
If DateDiff("h", a, b) >= 24 Then
MsgBox "recargo 2 euros"
Else
MagBox "Sin recargo"
End If
Exit Sub
err1:
MsgBox "error en calculo diferencia horas"
End Sub
=====================================
Te propongo este código para que lo modifiques según tus necesidades.
Si necesitas más ayuda me lo dices
Dim a As Date
Dim b As Date
On Error GoTo err1
a = CDate(InputBox("Fecha A ?", "Introduce la fecha"))
b = CDate(InputBox("Fecha B ?", "Introduce la fecha"))
If DateDiff("h", a, b) >= 24 Then
MsgBox "recargo 2 euros"
Else
MagBox "Sin recargo"
End If
Exit Sub
err1:
MsgBox "error en calculo diferencia horas"
End Sub
=====================================
Te propongo este código para que lo modifiques según tus necesidades.
Si necesitas más ayuda me lo dices
