no se en que falla

[virgi_93]

Hola, estoy haciendo un ejercicio y no se en que estoy fallando, es muy simple:
1. En una churrería venden churros a 20 céntimos la unidad. Por cada docena de churros completa, un churro sale gratis (por ejemplo: 11 churros cuestan 2.20€, 12 churros cuestan 2.20€, 13 churros cuestan 2.40€). Crea una función precio_churros que calcule el precio a partir del número de churros. Utilízala para en una hoja de excel.


lo que llevo hecho hasta ahora es esto:


Function Precio_churros(churros As Integer) As Double
churros = numero * Int(numero \ 12)
Precio_churros = churros * 0.2
End Function


Un saludo.

[Malenko]

Yo no empezaría a programar nada sin tener presente el algoritmo para resolverlo.

Primero define, paso por paso, que has de hacer para calcular el precio. Luego a cada paso le asignas las instrucciones de programación. Mira si algun paso no sabes hacerlo y nos comentas :)

[pkj]

Creo que esto es lo que intentas hacer:

Código vb:

Function Precio_churros(churros As Integer) As Double
  churros = churros- Int(churros / 12)
  Precio_churros = churros * 0.2
End Function
 

Saludos

PD:
Pero de ese modo la variable churros se modifica y despues de ejecutar la función pierde su verdadero valor.
Lo mejor es usar byVal en la declaración de la función o cambiarla por:

Código vb:

Function Precio_churros(churros As Integer) As Double
  Precio_churros = churros - Int(churros / 12)
  Precio_churros = Precio_churros * 0.2
End Function