VB.NET – fonction de séparateur de millier sur le Leave malgré la région

Function separateurDeMillier(entree As String) As String

Dim al As New ArrayList

For Each s In entree

al.Add(s)

Next

Dim resultat As String = «  »

Dim count As Integer = 0

For i = al.Count – 1 To 0 Step -1

resultat = resultat.Insert(0, al(i))

If al(i) <> « , » And al(i) <> « . » Then

Select Case count

Case 3

resultat = resultat.Insert(0,  » « )

count = 0

End Select

Else

count = 0

End If

If count <= 3 Then

count += 1

End If

Next

Return resultat

End Function

Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s