or
Public
Shared
Function
CheckForAlphaCharacters(
ByVal
StringToCheck
As
String
)
As
Boolean
Try
Dim
i
As
Integer
= 0
For
i = 0
To
StringToCheck.Length - 1
If
Char
.IsLetter(StringToCheck.Chars(i))
Then
Return
True
End
If
Next
Return
False
Catch
ex
As
Exception
Return
False
End
Try
End
Function
= MIR.Web.ZinsCheck.Hilfsfunktion.CheckForAlphaCharacters(
CStr
(Fields.Beschäftigungsverhältnis2)) =
True
= =
True