XL 2016 fonction pour Calcul montant d'escompte

D

danielco

XLDnaute Accro

• 11 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

C

coronae35

XLDnaute Nouveau

• 11 Novembre 2019

• #3

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

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

 

Dernière édition: 11 Novembre 2019

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 11 Novembre 2019

• #4

Ah ?

module pour Calcul montant d'escompte

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

coronae35

XLDnaute Nouveau

• 11 Novembre 2019

• #5

danielco à dit:

Ah ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 11 Novembre 2019

• #6

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

coronae35 à dit:

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

Cliquez pour agrandir...

Il est souhaitable que tu partages ta solution.

 

Vote positif 0 Vote négatif

C

coronae35

XLDnaute Nouveau

• 11 Novembre 2019

• #7

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 11 Novembre 2019

• #8

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

 

Vote positif 0 Vote négatif