1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Option Explicit
Function fmintot(taux As Double, dur As Integer, mt As Double, valresi As Double, tauxrefi As Double) As Double
Dim loyer As Double
loyer = Pmt(taux / 12, dur, -mt, valresi, 1)
fmintot = ((loyer * dur) - (mt - valresi)) * (taux - tauxrefi) / taux
End Function
Function fmintper(taux As Double, dur As Integer, mt As Double, valresi As Double, tauxrefi As Double, restit As Integer) As Double
Dim loyer As Double
loyer = Pmt(taux / 12, dur, -mt, valresi, 1)
fmintper = ((FV(taux / 12, restit, loyer, -mt, 1) - mt) + (loyer * restit)) * (taux - tauxrefi) / taux
End Function
Function fpenal(taux As Double, dur As Double, mt As Double, valresi As Double, restit As Double, tauxpen As Double) As Double
Dim loyer As Double
loyer = Pmt(taux / 12, dur, -mt, valresi, 1)
fpenal = ((FV(taux / 12, restit, loyer, -mt, 1))) * tauxpen
End Function |
Partager