XL 2016 fonction pour Calcul montant d'escompte

coronae35

XLDnaute Nouveau
Bonjour à tous,

J'espère que vous allez bien.
Etant novice sur VBA j'aurais besoin de votre aide pour créer une fonction calculant le montant de l’escompte pour une lettre de change. Il faudrait que je puisse saisir : le montant de la lettre de change, la date de la remise en banque, la date de l’échéance et le taux d’escompte.

Je pense qu'il y a une histoire de fonction "DateDiff"



Merci d'avance pour votre aide
 
Dernière édition:

danielco

XLDnaute Impliqué
Avec 1500 en A1, 10 en B1, 12/09/19 en C1 et 30/10/19 en D1 :
VB:
Sub test1()
  MsgBox [A1] * [B1] * ([D1] - [C1]) / 365 / 100
End Sub
Je ne sais pas pour le calcul de l'escompte. Est-ce qu'il faut considérer les années bissextiles ?
Daniel
 

coronae35

XLDnaute Nouveau
Bonjour,
Merci pour votre retour.
Non on part sur 365 jours.

Mais je pense avoir trouvé solution à mon problème :)
 
Dernière édition:

danielco

XLDnaute Impliqué
On aurait eu besoin de DateDiff s'il avait fallu prendre en compte les années bissextiles. Sinon, pour un nombre de jours, il suffit de soustraire les dates de début et de fin.

VB:
Function Esc(Mt, Taux, NbJours) As Double
  Esc = Mt * (Taux / 365) * NbJours / 100
End Function
j'ai modifié : je voulais dire "fonction" mais je pense avoir trouvé solution au problème :)
Il est souhaitable que tu partages ta solution.
 

coronae35

XLDnaute Nouveau
Function Escompte(Somme As Double, DateDebut As Date, DateFin As Date, taux As Single) As Double

Escompte = (Somme * taux * DateDiff("d", DateDebut, DateFin)) / 365

End Function
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas