VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Um Fehler bei der Verarbeitung von numerischen Datenfeldern zu vermeiden, welche potenziell auch Null enthalten können, bleibt einem meist nichts anderes übrig als auf Null zu testen. Ich selbst benutze folgende Funktion, welche alle Probleme wie Null, Empty, nicht-Zahlen umgeht:

Function CLng0(ByRef Value As Variant) As Long
  On Error Resume Next
  CLng0 = CLng(Value)
End Function