ValueAlmostOne

function ValueAlmostOne(val: double; epsilon: double = 0.001): Boolean;