OVH Cloud OVH Cloud

[WD9] Calcul de TEG

2 réponses
Avatar
Philippe
Bonsoir,

Qq aurait-il un exemple de code pour le calcul de TEG. C'est urgent.

Merci.

2 réponses

Avatar
e-pluriel
VOICI UN CODE TIRE DES EXEMPLES WINDEV

i est un entier
i=0
gTaux=1
gLa=1
SI gTauxRefuse ALORS
Info("Taux = à 0 ou négatif, revoyez votre échéance !")
TEG=0
RepriseSaisie("MtEcheance")
RETOUR
FIN

SELON PERIOD
CAS 1
gPeriod=(1200/1)
CAS 2
gPeriod=(1200/3)
CAS 3
gPeriod=(1200/6)
CAS 4
gPeriod=(1200/12)
FIN
Sablier(Vrai)
TANTQUE i<7
SI (MTECHEANCE-CalcEch(DUREE,KAPITAL,gTaux)>0) ALORS
gTaux=gTaux+gLa
SINON
gTaux=gTaux-gLa
gLa=gLa/10
i++
FIN
FIN
Sablier(Faux)
TEG=gTaux
Avatar
Philippe
Merci je vais tester cela

Sinon j'avais codé comme cela, ca a l'air de fonctionner:

Mensualité=Montant*Taux/12/(1-Puissance(1+(Taux/12/100), -NombreMois))/100
MensualitéAvecAssurance=Mensualité+MontantAssurance
Interets=Mensualité*NombreMois-Montant
Assurance=MontantAssurance*NombreMois
CoutCrédit=(MensualitéAvecAssurance)*NombreMois-Montant+Frais

i est un réel=Taux/100
j est un entier=0
Capital est un réel=0

BOUCLE
Capital=0
SI DansTEG ALORS Capital=Frais
POUR j=1 A NombreMois
Capital+=((MensualitéAvecAssurance)/Puissance((1+i),j/12))
FIN
SI Capital<Montant ALORS
SORTIR
FIN
i+=0.0001
FIN

i-=0.0001
TegAnnuel=i*100
TegMensuel=i*100/12