XL 2016 calcul prix de location

[coronae35]

Bonjour,

J'ai un exercice dans le cas d'une agence de location de voiture.
Le prix de la location dépend du kilométrage réalisé, du nombre de jours de location et de la catégorie de la voiture.

Créer une fonction qui permette de calculer le prix de la location sachant que pour toutes les locations d’une durée supérieure à 30 jours, le prix de la location est de 75 € par jour.
Pour des durées inférieures, le prix est de :
- Pour les véhicules de la catégorie « Luxe » : 80 €/jour + 0,2€/km
- Pour les véhicules de la catégorie "Classique" : 70€/jour + 0,15€/km

J'aurais une colonne A avec le numéro de client, la colonne B avec la catégorie de voiture (Classique ou Luxe), en catégorie C la date de prise en charge, en catégorie la date de retour et en catégorie E le nombre de kilomètres parcours
Je sais qu'il y a l'histoire d'une fonction date diff pour calculer le nombre de jours de location

L'idée serait de pouvoir ajouter une colonne F "Prix" où je pourrai utiliser la fonction pour calculer ce que ça me coute.

Quelqu'un saurait comment procéder ?

Merci d'avance

 

[sylvanu]

Bonjour Coronae,
Il suffit de faire Date2-Date1 pour avoir le nombre de jours.
Ci joint un exemple qui devrait vous sortir d'affaire.

 

[coronae35]

Bonjour Coronae,
Il suffit de faire Date2-Date1 pour avoir le nombre de jours.
Ci joint un exemple qui devrait vous sortir d'affaire.

merci pour ton retour mais malheureusement je cherhce plutôt à créer une fonction et dans la fonction il y aurait un Select Case
je te joins le fichier

comme dans cet exemple

Function monttcase(pht As Double, cat As String) As Double
Select Case cat
Case "Luxe"
monttcase = pht * 1,33
Case Else
monttcase = pht * 1,2
End Select
End Function

 

[sylvanu]

Voila celui de location de voitures.

 

[coronae35]

thanks!