Problème arrondi [Résolu]

- - Dernière réponse : dubois77
Messages postés
692
Date d'inscription
jeudi 17 avril 2008
Dernière intervention
14 septembre 2018
- 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

2 réponses

Meilleure réponse
Messages postés
692
Date d'inscription
jeudi 17 avril 2008
Dernière intervention
14 septembre 2018
1
Merci
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

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 104 internautes ce mois-ci

dubois77
Messages postés
692
Date d'inscription
jeudi 17 avril 2008
Dernière intervention
14 septembre 2018
-
ne pas oublier :use math; !
Commenter la réponse de dubois77
Messages postés
6
Date d'inscription
samedi 27 août 2011
Dernière intervention
25 février 2014
0
Merci
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.