Discussion :

[L.nico]

Bonjour à tous,
Saviez vous que la fonction Round est très bizarre en VB :
Si vous faites :

Code :

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

vba.Round(10.125,2)

le résultat est 10.12 au lieu de 10.13
êtes vous au courant de ce problème ??

Pour ceux que ca interesse une fonction Round qui marche :

Code :

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

1
2
3
Function Round(ByVal X As Double, ByVal N As Integer) As Double
    Round = Format(X, "0." & String$(N, "0"))
End Function

Si quelqu'un en sait plus, je suis très interessé.
Merci.

[shwin]

ca dépend des compilateur

exemple: en c++, le C++Builder peut arondir au plus haut tandis qu'avec Visual C++ ca peut arondir au plus bas.

[L.nico]

Merci de ta réponse.
Oui, mais justement n'y a t'il pas une norme française qui précise justement qu'on doit arrondir vers le haut ou vers le bas ... :

[shwin]

il y a bien une règle en math. Mais faut croire que les programmeur des compilo la connaissent pas

[L.nico]

il y a bien une règle en math. Mais faut croire que les programmeur des compilo la connaissent pas

Oui ...
Mais je crois que cette règle stipule vers le haut donc la solution 10.13.
il serait intéressant de savoir ce qui se passe dans les autres langages ....

[shwin]

si je me rapel bien (c'est loin dans ma petite tête )

si tu as un nombre comme ceci: 1.2356 et que tu veux arondir à 2 décimales.

-Si le chiffre apers le 5 est un chiffre pair alors vers le haut : 1.24
-Si le chiffre apres le 5 est un chiffre impair alors vers le bas: 1.22

[L.nico]

J'en ai discuté avec mes collègues et je crois pourtant que la règle mathématique c'est au dessus : 10.125 Donne donc 10.13.

encore pour info :
VB.DotNet donne 10.12
Windev9 donne 10.13

: :

[HPJ]

Ce problème a déjà été abordé: comme le disait L.nico il faut utiliser la fonction Format à la place de Round

[L.nico]

Merci de ton intervention HPJ ,
en fait ce qui m'interesse surtout, ce n'est pas la manière de contourner le problème, mais pourquoi ce problème existe dans certains langages ?
Est-ce un problème de conversion de types ?
...
J'hesite à déplacer le sujet dans '"Débat sur le développement" ...

[HPJ]

The Round function performs round to even, which is different from round to larger. The return value is the number closest to the value of expression, with the appropriate number of decimal places. If expression is exactly halfway between two possible rounded values, the function returns the possible rounded value whose rightmost digit is an even number. (In a round to larger function, a number that is halfway between two possible rounded values is always rounded to the larger number.)

Nous on veut du round to larger alors que la fonction VB retourne du round to even : c'est ce que disait Shwin

[L.nico]

OK Merci beaucoup
Le sujet est clos.