Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Function StringFormat(ByVal Input As String) As String
Dim CommaPos As Integer
CommaPos = Input.IndexOf(",")
If CommaPos = -1 Then CommaPos = Input.Length
Dim PointPos As Integer = CommaPos
While PointPos >= 4
Input = Input.Insert((PointPos - 3), ".")
PointPos -= 3
End While
Return Input
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Debug.Print(StringFormat("4435435454354435436558435454354365465342456367887564368765432456787654,325234"))
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.