Discussion :

[karkass59]

Bonjour à tous,

Dans l'exemple ci-dessous ; comment faire pour que la valeur du champ MONTANT (champ d'une table dbase numérique à 2 décimaux) renvoi 1.56 et non 1.55.

Table1.FieldByName('MONTANT').Value:=1.555;

Merci.

[ShaiLeTroll]

Essaye un truc genre

Code :

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

TFloatField(Table1.FieldByName('MONTANT')).Precision := 2;

Ton problème est que le champ est tronqué dans la Table (surement paradox) au lieu d'être arrondi ...

[karkass59]

Essaye un truc genre

Code :

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

TFloatField(Table1.FieldByName('MONTANT')).Precision := 2;

Ton problème est que le champ est tronqué dans la Table (surement paradox) au lieu d'être arrondi ...

Merci, mais ça ne fonctionne pas (j'ai toujour 1.55).
Le résultat n'est pas tronqué, car quand la valeur est 1.556 ; il renvoi bien 1.56.

[Eric Boisvert]

Merci, mais ça ne fonctionne pas (j'ai toujour 1.55).
Le résultat n'est pas tronqué, car quand la valeur est 1.556 ; il renvoi bien 1.56.

peut-être que la valeur initiale est:
1.5549
arrondi à 3 digits:
1.555
arrondi à 2 digits:
1.55
arrondi à 1 digits:
1.6

Bienvenue dans le monde des points flottants.

[JP.NUAGE]

Bonjour à tous

Envoyé par karkass59
Merci, mais ça ne fonctionne pas (j'ai toujours 1.55).

Ventre Saint gris, que ce pb est embétant. Je l'ai eu des dizaines de fois

Je ne sais pas si tu peux faire ce que je vais te proposer, mais voilà comment je procéde

Je prends la valeur 1.556, je la multiplie par 100 : j'obtiens 155.6. J'ajoute 0.5. Là j'obtiens 156.1 (mais 155.9 si j'avais par exemple 1.554) Je prends la valeur entière de 156.1, et j'obtiens 156, que je divise par 100 --> 1.56

Dans ce cas , de 1.550 à 1.554, j'ai toujours 1.55 à la fin. Et de 1.556 à 1.559 j'ai 1.56. Regarde si ce "truc" peut t'aider.

Bon courage

Je ne dis même pas le nombre de fois où le calcul de la TVA m'a obligé à cette piroutte !

[banban54]

bonjour

plus simple

Aide delphi
SimpleRoundTo utilise l'arrondi arithmétique asymétrique pour déterminer comment arrondir la valeurs qui se trouvent exactement au milieu des deux valeurs ayant le nombre de chiffres significatifs souhaité. Cette méthode arrondit toujours vers la valeur la plus grande.

donc:

Code :

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

Table1.FieldByName('MONTANT').Value := SimpleRoundTo(1.555, -2);

à+

[JP.NUAGE]

Alors ce dernier truc, je vais m'en servir, foie de JP.NUAGE