PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Calcul premiere mensualité d'un pret immobilier
Calcul premiere mensualité d'un pret immobilier
Iniciado por didier.cottaz, 11,ene. 2019 19:45 - No hay respuesta
Publicado el 11,enero 2019 - 19:45
Bonsoir,

J'ai besoin de calculer la première mensualité d'un prêt immobilier dans le cas ou la date de réalisation du prêt n'est pas le 1er du mois et que la première mensualité est décalée le mois suivant.
Exemple :
Réalisation du pret : 27/12/2018
Premier remboursement : 15/02/2019
Soit une période de 50 jours entre les 2 dates. Dans ce cas, le montant des intérets est supérieur.

J'utilise la formule de calcul prise dans un exemple de Windev.--> voir ci dessous

Auriez vous une idée ?

Merci d'avance

Procedure FinEchéancier(nCapital, nMensualités, nTaux, nNbPériode, sDatePremièreEchéance)

i est un entier
nMontantIntérêtsMensuel est un monétaire
nMontantIntérêtsAnnuel est un monétaire
nMontantIntérêtsCumulés est un monétaire
nMontantCapitalMensuel est un monétaire
nMontantCapitalAnnuel est un monétaire
nResteDû est un monétaire
dDateEchéance est une Date

TableSupprimeTout(TABLE_ECHEANCIER_MENSUEL)
TableSupprimeTout(TABLE_ECHEANCIER_ANNUEL)

// Première échéance
dDateEchéance = sDatePremièreEchéance

// Montant total à payer
nResteDû = nCapital

//Remplissage de l'échéancier
POUR i=1 A nNbPériode

// Calcul des intérêts pour la période
nMontantIntérêtsMensuel = FinIntérêtPériode(nCapital, nTaux, i, nNbPériode)
nMontantIntérêtsAnnuel += nMontantIntérêtsMensuel

// Intérêts cumulés
nMontantIntérêtsCumulés+=nMontantIntérêtsMensuel

// Calcul du capital pour la période
nMontantCapitalMensuel = nMensualités + nMontantIntérêtsMensuel
nMontantCapitalAnnuel += nMensualités + nMontantIntérêtsMensuel

// Reste dû
nResteDû -= nMontantCapitalMensuel

//Remplissage de la table mensuelle

TableAjouteLigne(TABLE_ECHEANCIER_MENSUEL, i, dDateEchéance, nMensualités, -nMontantIntérêtsMensuel,nMontantCapitalMensuel, nResteDû, -nMontantIntérêtsCumulés)