Siguiendo con más de Macros - Excel resolveré un ejercicio sencillo de como hallar un descuento que hace un restaurante por cantidad específica de dinero consumido.
Bueno el problema es el siguiente: Crear una función que determine el importe a pagar en un Restaurante cuyas ofertas son:Mayor a 100 u.m. 30%
Mayor a 60 u.m. 20%
Mayor a 30 u.m. 15%
Hasta 30 u.m. 10%
Por ejemplo, si consumo 125 u.m. debo pagar sólo 87.5 u.m.
El resultado queda de la siguiente manera:
La columna "A" muestra los clientes, la segunda columna muestra el total consumido por el cliente sin hacer el descuento y la tercera columna muestra el total a pagar haciendo el descuento respecto a las ofertas.
La función a usar será CalculaDesc:
El Código será:
Function CalculaDesc(n As Double) As Double
Dim desc As Double
'Dim total As Double
'total = 0
If n <= 30 Then
desc = 0.1 * n
Else
If n < =60 Then
desc = 0.15 * n
Else
If n <=100 Then
desc = 0.2 * n
Else
desc = 0.3 * n
End If
End If
End If
CalculaDesc = n - desc
End Function
--------------------------------------------------------------------------------------------------------------------------------------------
Cualquier duda, déjenla en los comentarios.
Torlez.
