f = lambda x,y,z:abs(x-y)<=abs(z)

function isNear($a, $b, $c)
{
    return (abs($a - $b) <= abs($c));
}

let delta = 0.01;;
let fabs a = if a < 0. then 0. -. a else a;;
let ( +- ) a b = fabs(b -. a) < delta;;

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