VisualBasic Snippets  

Überprüfen ob ein Text als Integer interpretiert werden darf:
 

Die Funktion IsNumeric() ist sicher jedem bekannt, wenn es aber darum geht ob eine Zahl problemlos in eine Integervariable geschrieben werden kann müssen die Bordmittel von VisualBasic passen.
Die folgende Funktion hilft dann weiter:

Plaziere den folgende Code in ein Modul, diese Funktion steht dann sofort überall zur Verfügung.

Public Function IsInteger(strZahl As String) As Boolean

  IsInteger = False
  If Not IsNumeric(strZahl) Then Exit Function
  If CDbl(strZahl) > (2 ^ 15 - 1) Then Exit Function
  If CDbl(strZahl) < (-1 * (2 ^ 15)) Then Exit Function
  IsInteger = (CInt(strZahl) = CDbl(strZahl))

End Function

Viel Spass !!


   
 

© '2000 by T. Schindzielorz