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:
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