Format nombre VB.net

Version imprimable

30/01/2013, 16h34
ethocy

Format nombre VB.net

Bonjour,

Comment on fait pour formater un nombre avec 2 déciamles après la virgule et le séparateur de millier svp ?

J'ai le code suivant:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim Montant As Decimal = TextBoxMontant.Text

TextBoxProfit.Text = TextBoxMontant.Text - TextBoxCoût.Text

TextBoxRenta.Text = TextBoxProfit.Text / TextBoxMontant.Text

Que dois-je ajouter ?????

Merci

Bonjour,

Pour obtenir un décimal sous la forme 1 234 56,12, je te propose un petit bout de code, qu'il te faudra adapter en fonction de tes besoins :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
// dans les imports
Imports System.Globalization
 
// dans la classe
Private Function formater(ByVal val As Decimal) As String
     Dim formatNombre As NumberFormatInfo = New CultureInfo("fr-FR", False).NumberFormat
 
     Dim valString As String
     Dim valFinal As String
 
     valString = val.ToString("C", formatNombre)
     valFinal = valString.Substring(0, valString.ToString.Length - 1)
 
     Return valFinal
End Function

En espérant que ça te serve ;)

05/02/2013, 18h12
ethocy

Merci Maylin pour ta reponse, mais je n'y arrive pas. je suis novice (vb depuis 2 semaines). en fait mon code est le suivant:

Public Class Form2

Dim Durée, Montant, Coût, Profit As Integer

Dim Renta As Decimal

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Durée = TextBoxDurée.Text

TextBoxCoût.Text = Durée * 150

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Montant = TextBoxMontant.Text

TextBoxProfit.Text = TextBoxMontant.Text - TextBoxCoût.Text

TextBoxRenta.Text = (TextBoxProfit.Text / TextBoxMontant.Text) * 100

End Sub[/I][/I]

Et j'aimerais que dans ma textboxRenta, le résultat s'affiche en %age avec 2 décimal après la virgule.

ou c'est les imports et les classes ?
Pourrais-tu me préciser exactement ou je dois intégrer tes codes STP ???

MERCI A TOI

Voici comment se présente une classe VB.NET :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// tes imports
Imports System.Globalization
 
// ta classe
Public Class nomDeTaClasse
 
    // tes méthodes
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        // tes actions
    End Sub
 
    // les fonctions que tu créés, auxquelles tu vas faire appel dans ton code
    Private Function formater(ByVal val As Decimal) As String
        Return va
    End Function
End Class

Donc l'idée c'est que dans ta méthode Button2_Click, tu vas vouloir faire à la fonction qui converti ton string en décimal (formaté en 11, 11). Essaye quelque chose comme çà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Imports System.Globalization
 
Public Class Form2
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim duree, cout, profit as Integer
        Dim montant, renta as Decimal
 
        // test si ta textBox n'est pas vide 
        If String.IsNullOrEmpty(tTextBoxDurée.Text)
                duree = TextBoxDurée.Text
 
                cout = duree * 150
                TextBoxCoût.Text = cout 
        End If
 
        If String.IsNullOrEmpty(TextBoxMontant.Text)
                montant = TextBoxMontant.Text
 
                profit  = montant - cout
                TextBoxProfit.Text = profit
 
                renta = (profit / montant)  * 100
                // appel à ta fonction 'formater' avec le paramètre renta
                TextBoxRenta.Text = formater(renta)
        End If
End Sub
 
    // fonction qui transforme un décimal au format xx,xx
    Private Function formater(ByVal renta As Decimal) As String
        Dim formatNombre As NumberFormatInfo = New CultureInfo("fr-FR", False).NumberFormat
 
        Dim rentaString As String
        Dim rentaFinal As String
 
        rentaString = renta.ToString("C", formatNombre)
        rentaFinal = rentaString .Substring(0, rentaString.ToString.Length - 1)
 
        Return valFinal
    End Function
End Class

PS : j'ai fait quelques modifications dans ton code
- un seul bouton au lieu de deux (pourquoi en avoir deux ?)
- renommage des variables. Evite au maximum la majuscule au début des variables, et jamais d'accents également
- utilises des labels au lieu de textBox pour les zones ou tu veux un simple affichage (l'utilisateur ne peut rien écrire dedant)
- privilégie les variables locales (déclarées dans les méthodes/fonctions) au lieu des variables globales. Cela te facilitera le debug
- donnes des noms sémantiques à tes boutons, cela aide à la compréhension du code/relecture