Public Function IsNear(ByVal dValueToHave As Short, ByVal dValueToCompare As Short, ByVal dist As Short) As Boolean
Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Integer, ByVal dValueToCompare As Integer, ByVal dist As Integer) As Boolean
Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Long, ByVal dValueToCompare As Long, ByVal dist As Long) As Boolean
Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Single, ByVal dValueToCompare As Single, ByVal dist As Single) As Boolean
Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Double, ByVal dValueToCompare As Double, ByVal dist As Double) As Boolean
Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Decimal, ByVal dValueToCompare As Decimal, ByVal dist As Decimal) As Boolean
Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function