Discussion :

[cach]

Boujour à tous,

Je viens de tomber sur un problème très bisard avec VB : , alors je parcour un tableau et je recherche dans ce tableau un double donc voici comment je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Do Until parcour_valeur = valeur_deb_parcour
              MsgBox(parcour_valeur)
            I = 1
            Do Until I = nb_releve
                If article.tableau_releves(I) = parcour_valeur Then
                    x(I) = article.tableau_releves(I)
                    n(I) = n(I) + 1
                End If
                I = I + 1
            Loop
            parcour_valeur = parcour_valeur + "0,1"
        Loop

Les variables parcour_valeur et tableau_releves(I) sont des double, donc je lance ma fonction, donc la premiere valeur affiché par MsgBox est 0, la deuxième 0.1 la troisième 0.2 ...

Jusque la ca va, mais arrivé a la 16ème valeur environ, il pète un plomb et m'affiche 0,16000000001??? à rien y comprendre.

@++
Merci

[Maniak]

Bienvenue dans le monde merveilleux de la virgule flottante et de sa précision toute approximative.

C'est pas pour rien qu'il ne faut jamais utiliser Single/Double pour stocker/traiter des données monétaires, et que Decimal/money ont été inventés :)

[cach]

Cool, merci Maniak