Problème arrondi [Résolu]

- - Dernière réponse : dubois77
Messages postés
693
Date d'inscription
jeudi 17 avril 2008
Dernière intervention
19 février 2019
- 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
693
Date d'inscription
jeudi 17 avril 2008
Dernière intervention
19 février 2019
19
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 120 internautes nous ont dit merci ce mois-ci

dubois77
Messages postés
693
Date d'inscription
jeudi 17 avril 2008
Dernière intervention
19 février 2019
19 -
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.