Bonjour !
Voila j'ai un petit souci a faire arrondir correctement un chiffre avec 4 décimales..
Voici les détails :
Mon problème se trouve entre les lignes 9 et 12
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 'Call des variables Dim qteItem As String = datagridviewListeItems.CurrentRow.Cells(0).Value Dim prixItem As String = datagridviewListeItems.CurrentRow.Cells(4).Value ' < Le prix unitaire du produit Dim tauxTaxe1 As String = lblTauxTaxe1.Text / 100 Dim tauxTaxe2 As String = lblTauxTaxe2.Text / 100 Dim prixTotalItem As String = qteItem * prixItem ' < Multiplier la quantité du produit par le prix unitaire pour avoir le prixTotalItem a taxer 'Montant des taxes selon la configuration de l'item Dim montantTaxe1 As String = prixTotalItem * tauxTaxe1 montantTaxe1 = Format(CType(montantTaxe1, Double), "#0.00") 'Lorsque ce code est ajouté, le round ne se fait pas bien.. Dim montantTaxe2 As String = prixTotalItem * tauxTaxe2 montantTaxe2 = Format(CType(montantTaxe2, Double), "#0.00") 'Lorsque ce code est ajouté, le round ne se fait pas bien.. 'Calcul du prix total de l'item avec taxes Dim prixTotalAvecTaxes As String = Val(prixTotalItem) + Val(montantTaxe1) + Val(montantTaxe2) prixTotalAvecTaxes = Format(CType(prixTotalAvecTaxes, Double), "#0.00")
Lorsque je n'utilise rien pour arrondir mon chiffre voici les résultats: (Enleve ligne 9 et 11)
http://i.imgur.com/i00yp13.png
et lorsque je rajoute le code aux lignes 10 et 12 voici les résultats:
http://i.imgur.com/OyDf0Sm.png
Vérifier vis-a-vis T.P.S .. le chiffre après l'arrondissment est 8.52 .. mais il devrait rester a 8.51 .. mais celui vis a vis T.V.Q est correct... il est rester a 16.98 et non 16.99
Merci ! Si je ne suis pas assez claire, veuillez m'en aviser
Framework: 4.5.2 > Using VS2013
Partager