Bug CInt

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Bug CInt

floppyad

Bonjour,

Depuis Excel 2010, en VBA, j'obtiens ces résultats :
- CInt(17.1) = 17 : OK
- CInt(17.5) = 18 : OK
- CInt(18.1) = 18 : OK
- CInt(19.1) = 19 : OK
- CInt(19.5) = 20 : OK
Mais
- CInt(18.5) = 18 : C'est quoi cette valeur ? Et mon 19 ?

Une idée ?

Merci

---------------
Floppy

Publicité

Marc L

Bonjour, bonjour !

C'est normal car cette fonction suit une norme internationale, si, si ‼
Et comme indiqué pourtant dans l'aide VBA interne … :sarcastic:
Dans cette même aide de CInt (comme CLng) sont indiquées les fonctions classiques, suffit donc de la lire …

TotalRecall

Effectivement !

Citation :

When the fractional part of a value is exactly 0.5, the CLng function rounds to the closest even number. For example, 0.5 rounds to 0, 1.5 rounds to 2, and 3.5 rounds to 4. The purpose of rounding to the closest even number is to compensate for a bias that could accumulate when many numbers are added together.

CLng differs from the Fix and Int functions, which truncate, rather than round, the fractional part of a number.

Là est toute l'astuce même si effectivement c'est déroutant et sur des valeurs discrètes ça gêne parfois plus qu'autre chose...

Message édité par TotalRecall le 01-03-2016 à 16:20:43

---------------
Réalisation amplis classe D / T Topic .Net - C# @ Prog

patrice33740

Avec la réponse, c'est facile.

Il s'agit effectivement d'un problème d'arrondi (au pair le plus près),
alors que visiblement, tu t'attends à un arrondi arithmétique (celui qu'on apprend à l'école).
'Essaies ce code :

Code :

Sub test()
MsgBox CInt(ArrondiArithmetique(18.5))
End Sub
Public Function ArrondiArithmetique(ByVal Nombre, Optional ByVal Decimales = 0)
' Fonction Arrondi arithmétique [symétrique] : au plus prés, 0.5 vers les infinis
ArrondiArithmetique = Fix(Nombre * 10 ^ Decimales + Sgn(Nombre) * 1 / 2) / 10 ^ Decimales
End Function

---------------
Cordialement, Patrice

Marc L

Purée, autant pour moi, l'aide interne pourtant d'une version 2003 est fausse, j'aurais dû vérifier le résultat !

Bien vu Patrice !

Sinon en ajoutant un iota, les fonctions CInt & Round s'en sortent :

Code :

Sub Test()
Const IOTA = 0.00001, V = 2.5
Debug.Print CInt(V + IOTA), Int(V + IOTA), Fix(V + IOTA), Round(V + IOTA, 0)
' Résultat : 3 2 2 3
End Sub

Autre voie : Debug.Print Format(2.5, "0" ) …

Message édité par Marc L le 04-03-2016 à 18:44:26

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Bug CInt

Sujets relatifs
[Résolu]Bug du compilateur Gnat ?	[VBA] Créer une fonction "Recherche", "Bug liste déroulante" ...
Bug VBA : conversion .txt en .xlsx - Excel redémarre	Bug lors de récupération de données dans BDD
width + padding = Bug dans Chrome et Safari?	Bug avec boost::spirit::qi et flag -O2
Bug programme asm 8086	Bug module paybox
Programme répertoire téléphonique (BUG) HELP PLEASE !!!	Bug sur retour jour semaine
Plus de sujets relatifs à : Bug CInt

Page générée en 0.060 secondes