Discussion :

[zpliz]

Merci encore pour vous différentes aides sur mes demandes.

Je vous solicite pour un truc tout con, mais que je ne connais point.
Voilà un code que j'ai créé pour le calcul d'un prix net. J'aimerais pouvoir faire un arrondi inférieur à 2 chiffres de ce dit calcul. Merci d'avance pour la syntaxe que je dois utiliser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
begin
 Result := FALSE;
 prixNet.Value := montantPrevu.Value / quantite.Value ;
 
end;

[Droïde Système7]

Salut,

[...] J'aimerais pouvoir faire un arrondi inférieur à 2 chiffres [...]

Je te propose le principe suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NewValue := FormatFloat('#,##0.00', StrToFloat(prixNet.Value));

@+

[zpliz]

Merci Droïde pour ta réponse.

Est-ce que simplement je peux concatener ce que tu m'as mis avec ma formule initiale de sorte à avoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

prixNet.Value := FormatFloat('#,##0.00', StrToFloat(montantPrevu.Value / quantite.Value))

D'ailleurs je viens de faire le test, mais l'arrondi qu'il me fait est en supérieur !!! donc ça me va pas trop ... faut vraiment que je puisse faire arrondi inférieur.

Merci encore ...

[Cl@udius]

Salut

Ou comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
uses Math;
 
begin
  // ...
  prixNet.Value := SimpleRoundTo(montantPrevu.Value / quantite.Value);
  // ...
end;

@+ Claudius

[peter27x]

D'ailleurs je viens de faire le test, mais l'arrondi qu'il me fait est en supérieur !!! donc ça me va pas trop ... faut vraiment que je puisse faire arrondi inférieur.

Il me semble en effet qu'aucune des deux solutions apportées ne coïncident avec ton pb d'arrondi INFERIEUR...

C'est ce qui me turlupine dans cette histoire.

Dans l'aide ils semblent indiquer que roundTo et simpleRoundTo arrondissent au supérieur...

[zpliz]

Y aurait-il du coup une formule qui me permettrait de tronquer ma valeur ?
au final ça reviendrait au même que de faire un arrondi inférieur ...

[peter27x]

Y aurait-il du coup une formule qui me permettrait de tronquer ma valeur ?
au final ça reviendrait au même que de faire un arrondi inférieur ...

Ha ben oui effectivement on l'attaquer par là.

Avec 32.28865 par ex:

- d'abord récupérer la partie décimale (0.28865 par ex)
- la multiplier par 100 (28.865)
- ne garder que la partie entière (28)
- puis la diviser par 100 (0.28)
- et l'ajouter à la partie entière initiale (32 + 0.28 = 32.28).

[Cl@udius]

Dans l'aide ils semblent indiquer que roundTo et simpleRoundTo arrondissent au supérieur...

SimpleRoundTo utilise "l'arrondi de banque".

Quant à RoundTo tu peux préciser le type de l'arrondi avec la fonction SetRoundMode. (rmNearest, rmDown, rmUp, rmTruncate).

[peter27x]

Peut-être une autre solution:

- multiplier ta valeur par -1
- faire l'arrondi avec simpleRoundTo comme indiqué par Claudius
- multiplier le résultat de nouveau par -1

Comme la valeur est négative, l'arrondi "supérieur" par défaut de la fonction devient finalement un arrondi "inférieur" pour nous tu vois le truc ?

Car -2.288 arrondi au supérieur donne -2.28 et non -2.29 ...

[peter27x]

SimpleRoundTo utilise "l'arrondi de banque".

Quant à RoundTo tu peux préciser le type de l'arrondi avec la fonction SetRoundMode. (rmNearest, rmDown, rmUp, rmTruncate).

Ha bon ben voilà tout est réglé !

[zpliz]

Bon j'ai opté pour la version "biceps" en faisant un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

prixNet.Value := Int(montantPrevu.Value / quantite.Value)+ Int(Frac(montantPrevu.Value / quantite.Value)*100)/100

Je dois pas avoir un vrai Delphi ou un vrai Pascal, parce qu'il reconnait pas les formules Round machin et SetMode ...

Donc autant y aller en costaud !!! Mais merci à tous !!!

[Cl@udius]

Je dois pas avoir un vrai Delphi ou un vrai Pascal, parce qu'il reconnait pas les formules Round machin et SetMode ...

As-tu ajouté l'unité Math dans tes uses comme dans mon précédent exemple ?

[peter27x]

As-tu ajouté l'unité Math dans tes uses comme dans mon précédent exemple ?

Exact, Spliz, lorsque tu as comme ça des fonctions que ton compilateur ne semble pas "connaitre" c'est parce qu'il faut que tu ajoutes l'unité (fichier .pas) qui les contient dans la commande "uses" (celle après la commande "implementation", et non pas celle avant).

Par ex. ici avec l'unité math.pas, tu dois ajouter "math" dans le uses.

Si on te donne parfois des fonctions (comme ici RoundTo, etc...) et que tu ne connais pas le nom de leur unité, c'est simple, tu écris le nom de la fonction dans ton éditeur Delphi, puis tu te mets dessus et tu fais F1, ainsi Delphi ouvrira l'aide correspondante, avec au début le nom de l'unité !