Discussion :

[pierrot810]

Voila, encore un ptit problème.

Mon programme est une caisse de magasin. J'ai un champ qui m'indique le total de la commande, puis un champ ou j'introduis le montant recut, puis j'appuie sur un bouton pour faire le calcul. En général tout se passe bien, avec n'importe quel calcul, sauf 1 seule combinaison. Quand j'ai 2,6 en total, et que j'introduis 2,6 comme montant recut, il ne m'indique pas 0 comme il devrait, mais 4,44089209850063E-16
Qu'est ce que c'est que ce truc bizare ?
Quelqu'un à une idée ?
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim str2 As String
    Dim fin2 As String
 
    'test si le champ est vide
    If txtRecu.Text = "" Then
        MsgBox "Vous n'avez pas rempli le champ Recu"
    Else
        'calcul du prix a rendre
        If txtRecu.Text < total Then
            MsgBox "Le montant recut est inférieur au total"
        Else
            str2 = CStr(txtRecu.Text)
            fin2 = Replace(str2, ".", ",")
            recu = fin2
            rendre = recu - total
            txtRendre = rendre & " €"
            cmdRetablir.Enabled = True
        End If
    End If

[Delbeke]

La représenttion des nombres dans un format binaire n'est pas si aisée que l'on croit.
Il faut que tu utilise un arrondi apres le calcul

Code :

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

rendre = Format(recu - total,"0.00")

De plus tu passes joyeusement du mode texte au mode numérique en laissant a vb le soin de deviner ce que tu veux. Pas bon plan, çà te joueras de tours.
Definis proprement des variables en les typant.
Le type currency entre autre, a été spécialementétudié pour des valeurs monétaires avec arrondi automatique à 5 décimales.

Code :

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

1
2
3
Dim Rendre as Currency
Dim Recu as Currency
Dim Total as Currency

[pierrot810]

Merci pour ta correction, j'ai plus d'erreur.
Mais mes variables sont toutes déja définies comme ceci :

Code :

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

1
2
3
dim total as double
 dim recu as double
 dim rendre as double

Dois-je laisser comme ca ou changer en currency comme tu le disait ?
il n'y a que la variable recu ou je récupère la valeur d'un champ texte ou l'on ne sait introduire que des nombres

merci a toi

[real_achilles]

salut
bah change les tous vue qu'il s'agit que de la money