Problème calcul décimal [Résolu]

Signaler
Messages postés
174
Date d'inscription
vendredi 26 mai 2006
Statut
Membre
Dernière intervention
9 avril 2014
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Bonjour à tous,

Je rencontre un problème dans la fonction suivante :

function TEcartArticle.GetValo: Extended;
begin
  Result := (- EcartMoins + EcartPlus) * P;
end;

Dans cette fonction EcartMoins et EcartPlus sont de type Extended et P de type double.

Mon problème est que le resultat renvoyé est toujours arrondi à l'entier alors que je voudrais 2 chiffres après la virgule

Quelqu'un pourrait-il m'éclairer ?

D'avance merci !

3 réponses

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
Attention! Format n'arrondit pas les valeurs, il les tronque (tout comme Trunc)!

pour arrondire il faut utiliser RoundTo, Round, Ceil, Floor.

<hr size="2" width="100%" />
Messages postés
174
Date d'inscription
vendredi 26 mai 2006
Statut
Membre
Dernière intervention
9 avril 2014
5
Mes variables sont bien en extended et pourtant ça ne marche pas !
Messages postés
174
Date d'inscription
vendredi 26 mai 2006
Statut
Membre
Dernière intervention
9 avril 2014
5
C'est bon, j'ai trouvé c'était mon FORMATFLOAT qui n'était pas bon dans mon affichage !