Pour info
1.1 --> OK 1,1 --> KO
Sur mon ordinateur il faut evites d'utilise les anciennes focntions Vb VAL,MID,..... Elles ont des equivalents qui permet d'avoir un code plus objet . Val(objet) d'etre etre ecrite objet.val pour etre plus objet
Et Dim f As Double = Convert.ToDouble(TextBox1.Text) MessageBox.Show(f.ToString()) est inversé
Voila un code qui pourrais t'aider a comprendre le
Dim numberSeparator As String = System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberDecimalSeparator Dim d As Double If (numberSeparator = ",") Then d = Convert.ToDouble(TextBox1.Text.Replace(".", ",")) Else d= Convert.ToDouble(TextBox1.Text.Replace(",", ".")) End If
ou en plus propre
Dim numberSeparator As String = System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberDecimalSeparator Dim f As Double
If (numberSeparator = ",") Then Dim n As System.Globalization.NumberFormatInfo = New CultureInfo("en-US", False).NumberFormat f = Convert.ToDouble(TextBox1.Text, n) Else f = Convert.ToDouble(TextBox1.Text) End If
|