Problème arrondiRésolu

Question

Bonjour, 
Si quelqu'un peut m'aider Svp, mon problème j'arrive pa a avoir les arrondis correctement voici mon exemple:
Edit19.text= 78,9307
dbtext6 = 13497

X:= 0,029* strtofloat(edit19.text);
X:=round(x,4);
X:=x*(dbtext6.field.value);
X:=round(x,2);
Edit21.text:=flouâttostr(x);
Ça me donne le résultat suivant: 30894,5020791
Et mon opération doit me donner exactement ça en deux opérations 
0,029*78,9307 = 2,2890 (04 chiffres après la virgule)
13497*2,2890 = 30894,63 ( 02 chiffres après la virgule)
J'ai des centaines d'opérations de ce genre à additionner et le résultat final est vraiment loin, j'utilise delphi 7 entreprise 
Merci pour votre aide

sofloub · Answer

désolé erreur de saisie, c'est floatToStr

dubois77 · Answer

salut essaye cela
(en adaptant les edit et DB)

procedure TForm1.Button14Click(Sender: TObject);var X,Y : real;beginX:= 0.029* strtofloat(E1a.text);X:=roundto(x,-4);//X:=x*(dbtext6.field.value);x := x* strtofloat(E1b.text);X:=roundto(x,-2); //msg(floattostr(X)); exit;E1c.text:=floattostr(x);end;

chez moi ça fonctionne ok

Problème arrondi

2 réponses

Votre réponse

Discussions similaires