Calcul d'un prêt

Télécharger le projet
Commenter

Description

ce programme calcul :
- la mensualité, si on connaît le capital, le taux et le nombre de mois,
- le taux si on connaît le capital, la mensualité et le nombre de mois,
- le nombre de mois si on connaît le capital, la mensualité et le taux d'intérêt.
la démonstration des formules de calcul sont dans les programmes sources.

Source / Exemple : 


démonstartion du calcul de la mensualité d'un prêt:
'C (1 + t) - M
'(C(1+t)-M )(1+t)-M
'C (1 + t) ^ 2 - M(1 + (1 + t))
'(C (1 + t) ^ 2 - M(1 + (1 + t))(1 + t) - M
'C (1 + t) ^ 3 - M(1 + (1 + t) + (1 + t) ^ 2)
'C(1+t)^n-M(1+(1+t)+(1+t)^2+(1+t)^3?(1+t)^n-1)
'La définition de la dernière échéance, c'est qu'à l'issue de celle-ci,
'le capital restant dû vient de s'annuler, ce qui s'exprime par la condition:
'C (1 + t) ^ n - M(1 - (1 + t) ^ n) / (1 - (1 + t)) = 0
'C (1 + t) ^ n = M(-1 + (1 + t) ^ n) / t
'M = Ct(1 + t) ^ n / ((1 + t) ^ n - 1)

Private Sub Commande23_Click()

Me!mensualité1 = Me!capital1 * (Me!taux1 / 1200) * Exp(Me!nombre_mensualité1 * Log(1 + Me!taux1 / 1200)) / (Exp(Me!nombre_mensualité1 * Log(1 + Me!taux1 / 1200)) - 1)

End Sub

Private Sub Commande36_Click()
Dim var_taux1, var_taux2
var_taux2 = 0
var_taux1 = 0.05
 'If (Forms!calcul_prêt_form!capital2 Is Null) Or (Forms!calcul_prêt_form!capital2 = 0) Then
 'Me!capital2 = 270000
'End If
Do While (var_taux1 - var_taux2) <> 0
var_taux2 = var_taux1
var_taux1 = Me!mensualité2 * (1 - Exp(-Me!nombre_mensualité2 * Log(1 + var_taux1))) / Me!capital2

Loop
 
Me!taux2 = 12 * 100 * var_taux1
End Sub

Private Sub Commande46_Click()
Dim var_nombre_mensualité As Integer

var_nombre_mensualité = -Log((Me!mensualité3 - Me!taux3 * Me!capital3 / 1200) / Me!mensualité3) / Log(1 + Me!taux3 / 1200)
Me!nombre_mensualité3 = var_nombre_mensualité
End Sub

Private Sub taux1_AfterUpdate()
' If Me!taux1 Is Null Then
' Me!taux1 = 0
' End If
  
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.