• Home
 · 
• String Manipulation
 · 
• - Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integ

- Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integ

- Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integer Value

Rate - Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integ

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function sys_IsNumChar(value As String) As Boolean
Dim x As Double

If IsNull(value) Then Exit Function  'Parameter ungültig

Select Case value
  Case "0" To "9"
    sys_IsNumChar = True
  Case Else
    sys_IsNumChar = False
End Select
    
End Function

' Wandelt alle numerichen Werte des Strings in einen Intergerwert um
Public Function sys_StrToInt(Str As String) As Integer
Dim i As Integer
Dim x As String
Dim NewStr As String

'Init
NewStr = ""
If IsNull(Str) Then ' String enthält keine Werte
  sys_StrToInt = 0
  Exit Function
End If

For i = 1 To Len(Str)
  x = Mid(Str, i, 1):  If sys_IsNumChar(x) Then NewStr = NewStr + x
Next i
  
x = Val(NewStr)
sys_StrToInt = CInt(x)

End Function