Problème arrondi [Résolu]

Sofloub - 11 févr. 2014 à 23:26 - Dernière réponse : dubois77 692 Messages postés jeudi 17 avril 2008Date d'inscription 14 septembre 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

Meilleure réponse
dubois77 692 Messages postés jeudi 17 avril 2008Date d'inscription 14 septembre 2018 Dernière intervention - 12 févr. 2014 à 11:54
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

Merci dubois77 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

dubois77 692 Messages postés jeudi 17 avril 2008Date d'inscription 14 septembre 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
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.