[VB.NET] Aggiungere zeri a valori numerici con virgola

[binos1979]

Ciao a tutti

Devo produrre la stampa di una fattura ..... il problema alla voce importo comtenuta in un textbox di nome imp
infatti se imp.text = 99,13 tutto è ok per la stampa ma se imp = 99 o imp = 99,1 allora devo aggiungere degli zeri (1 nel primo caso e due nel secondo + la virgola) per farlo in formato stampa
Consigli su come verificare la virgola (aggiungerla se non c'è)e aggiungere eventuali zeri ?

[binos1979]

trovat in giro quando non c speravo +
(imp di cui parlavo sopra sarebbe textbox4 nelle righe di codice qui sotto)

Dim s1 As String = TextBox4.Text
Dim i As Integer
Dim s2 As String = ","
i = s1.IndexOf(s2)
If i = -1 Then
TextBox4.Text = TextBox4.Text & ",00"
Else
i = i + 1
If i + 2 <> s1.Length Then
TextBox4.Text = TextBox4.Text & "0"
End If
End If

[power.mobile]

ciao binos... esiste una funzione di vb.net che fa quello che serve a te...

text1.text=text1.text.padright(5,"0")

padright l'ho scritto a testa... non sono sul computer su cui sviluppo.... ma dovrebbe essere giusto...