XL 2016 fonction pour Calcul montant d'escompte

[coronae35]

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

 

[danielco]

Avec 1500 en A1, 10 en B1, 12/09/19 en C1 et 30/10/19 en D1 :

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]

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

Mais je pense avoir trouvé solution à mon problème 🙂

 

[danielco]

Ah ?

module pour Calcul montant d'escompte

 

[coronae35]

Ah ?

j'ai modifié : je voulais dire "fonction" mais je pense avoir trouvé solution au problème 🙂

 

[danielco]

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.

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]

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

 

[danielco]

Bravo pour un débutant ! Ou la réponse d'un autre forum ?