Problème arrondi [Résolu]

Sofloub - 11 févr. 2014 à 23:26 - Dernière réponse : dubois77 689 Messages postés jeudi 17 avril 2008Date d'inscription 9 mars 2018 Dernière intervention
- 12 févr. 2014 à 12:19
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
Afficher la suite 

Votre réponse

3 réponses

dubois77 689 Messages postés jeudi 17 avril 2008Date d'inscription 9 mars 2018 Dernière intervention - 12 févr. 2014 à 11:54
+1
Utile
salut essaye cela
(en adaptant les edit et DB)

procedure TForm1.Button14Click(Sender: TObject);
var X,Y : real;
begin
X:= 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
Cette réponse vous a-t-elle aidé ?  
dubois77 689 Messages postés jeudi 17 avril 2008Date d'inscription 9 mars 2018 Dernière intervention - 12 févr. 2014 à 12:19
ne pas oublier :use math; !
Commenter la réponse de dubois77
sofloub 6 Messages postés samedi 27 août 2011Date d'inscription 25 février 2014 Dernière intervention - Modifié par sofloub le 11/02/2014 à 23:36
0
Utile
désolé erreur de saisie, c'est floatToStr
Commenter la réponse de sofloub

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.