bonjour à tous ... bon ben voilà j'ai un petit souçis au niveau de la resolution d'un calcul ... simple avec la fonction interestrate
mon probleme se situe dans le fait que la réponse renvoyée par la var resultbis soit en exposant negatif exemple : -1,21602288839524E-10
Comment faire pour qu'il m'affiche un resultat normal ... ex: X,XX %
voilà le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
var
coutreel,equivalent,annuel,mensuel,result,result2,resultbis,resultbis1,result2bis: extended;
duree:integer;
 
begin
//tedit
duree:= strtoint (dureetotal.text); //duree credit en mois ex: 240 = 20 ans.
coutreel:=   strtofloat (tauxfinalcoutreel.Text); //cout total du credit.  ex: 129096,13€
equivalent:= strtofloat (tauxfinalequivalent.Text);// mensualitée équivalente ex: 537,90€
 
result:= interestrate (duree,equivalent,0,coutreel,ptstartofperiod);// calc % annuel
resultbis:= roundto((result/100),-3) ; // exemple : 3.68 % /100 = 0.0368 %
result2:= power(1+resultbis,(1/12))-1; // calc % mensuel
 
 
 
//affichage resultats
tauxfinalannuel.Text:= floattostr (resultbis);
tauxfinalmensuel.text:= floattostr (result2);
 
 
end;
enfin voilà, ... merci d'avance.