ضع هذا الكود في الفورم
Private Function GetFormatNumber(a As String) As String
Dim b = ""
For Each c As Char In a.ToCharArray
If Char.IsNumber( c ) Then b &= c
Next
Return CULng(b).ToString("D13")
End Function
ثم قم بالاستفاده منه بالشكل التالي
Dim t = "18.622,77"
Dim y = GetFormatNumber(t)
MsgBox(y)
Private Function GetFormatNumber(a As String) As String
Dim b = ""
For Each c As Char In a.ToCharArray
If Char.IsNumber( c ) Then b &= c
Next
Return CULng(b).ToString("D13")
End Function
ثم قم بالاستفاده منه بالشكل التالي
Dim t = "18.622,77"
Dim y = GetFormatNumber(t)
MsgBox(y)
