Gruppe
UDF
Bereich
Numerisch
Thema
Prüfung, ob es sich um einen Integer-Wert handelt
Problem
Wie kann ich über eine benutzerdefinierte Funktion prüfen, ob es sich beim Eingabewert um einen Integer-Wert handelt?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function IntegerTest(dValue As Double) As Boolean
If dValue > -32769 And dValue < 32768 And _
dValue - Fix(dValue) = 0 Then
IntegerTest = True
Else
IntegerTest = False
End If
End Function