Il est très agaçant d'avoir des formules toutes préparés d'avance fonctionnant très bien dans des tableurs et ne pas être capable d'effectuer les mêmes calculs et les mêmes réponses dans une situation anodine de la programmation. Une de ces remarquables fonctions, est celle du Lotus 1-2-3 et de Quattro Pro, elle se nomme la fonction IPaymt en anglais ou Interet en français. A l'aide du code source Visual Basic .NET (VB .NET) suivant, vous trouverez la réponse que vous souhaitez :
- Module Module1
-
- Sub Main()
- Console.WriteLine("Prêt hypothécaire de 30 ans à 15% de 200 000$:")
- Console.WriteLine(Str$(IPAYMT(0.15 / 12.0!, 2.0! * 12.0!, 30.0! * 12.0!, 200000.0!, 2.0!, 0.0!)))
- End Sub
-
- Function FVal(ByVal Rate As Double, ByVal NPer As Double, ByVal pmt As Double, ByVal PV As Double, ByVal PType As Double)
- Dim F As Double = Math.Exp(NPer * Math.Log(1.0! + Rate))
- If Math.Abs(Rate) < 0.000001 Then
- FVal = -pmt * NPer * (1.0! + (NPer - 1.0!) * Rate / 2.0!) * (1.0! + Rate * PType) - PV * F
- Else
- FVal = pmt * (1 - F) * (1 / Rate + PType) - PV * F
- End If
- End Function
-
- Function IPAYMT(ByVal Rate As Double, ByVal Per As Double, ByVal NPer As Double, ByVal PV As Double, ByVal FV As Double, ByVal PType As Double)
- IPAYMT = Rate * FVal(Rate, Per - PType - 1.0!, Paymt(Rate, NPer, PV, FV, PType), PV, PType)
- End Function
-
- Function Paymt(ByVal Rate As Double, ByVal NPer As Double, ByVal PV As Double, ByVal FV As Double, ByVal PType As Double)
- Dim F As Double = Math.Exp(NPer * Math.Log(1.0! + Rate))
- Paymt = (FV + PV * F) * Rate / ((1 + Rate * PType) * (1.0! - F))
- End Function
-
- End Module
on obtiendra le résultat suivant :
Prêt hypothécaire de 30 ans à 15% de 200 000$:-2490.45$
Dernière mise à jour : Samedi, le 22 octobre 2016