Si un objet coute 100F, cela fait combien d'euros?

Si un objet de 100€ augmente de 3% par an, combien coûtera -t-il dans 10 ans.

Dim Prix As Decimal=100
Dim Taux As Decimal=3

Dim Periode As Integer=10
Dim i As Integer
For i= 1 to Periode
 Prix=Prix+(Prix*Taux/100)

Next i
 

On peut remplacer les 3 dernières lignes par:

Prix=Prix*(1+Taux/100)^Periode

Noter que l'on utilise des variables de type décimales, c'est une bonne habitude pour faire des calculs financiers (pas d'erreurs d'arrondis).

Remboursement d'un prêt.

Quel est le remboursement mensuel d'un prêt d'une somme S durant une durée D (en année) à un taux annuel T ?

R=S x T / 1-(1+T)^-D (ici avec T en % mensuel et D en mois

Dim R, S , D, T  As Decimal  

S=5000  '5000€

D=15    'Sur 15 ans

T=4     '4% par an

T=T/12/100 'Taux au mois

D=D*12     'Durée en mois

  R=S*T/(1-(T+1)^(-D))'Formule connue par tous bon comptable!!

Si on voulait afficher le résultat dans un label (on verra cela plus loin)

Label1.text= R.ToString("C")

Ici le résultat est transformé en chaîne de caractères (grâce à ToString) au format monétaire ("C"), on obtient '36,98€' que l'on met dans le label pour l'afficher.

Ultérieurement on verra un exemple plus complet utilisant les fonctions financières de VB.