Public Function RangeComp( _
ByVal vA As Variant _
, ByVal vX As Variant _
, ByVal vB As Variant _
) As Variant If X < A: Return -1.
If A <= X <= B: Return 0.
If X > B: Return 1.Examples: RangeComp(20, 10, 30) = -1
RangeComp(20, 20, 30) = 0
RangeComp(20, 25, 30) = 0
RangeComp(20, 50, 30) = 1See also: Chi Function
IsBetween Function
IsWithinPlusOrMinusOf Function
NumComp Function
FixUpVariantToRange SubroutinevA: The lower-bound of the range against which vX is compared. Function returns Null if vA is Null or cannot be fixed up to a number. vX: Number that is checked to see if it is below, within, or above the range from A through B inclusive. Function returns Null if vX is Null or cannot be fixed up to a number.
vB: The upper-bound of the range against which vX is compared. Function returns Null if vA is Null or cannot be fixed up to a number.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.