KeepInRange – Ensure that a value is in a given range

KeepInRange – Ensure that a value is in a given range

' Keep the first argument in the range [lowLimit, highLimit]' If the value is adjusted, the fourth (optional) argument is set to True'' This function works will all basic data types and with objects ' that implement the IComparable interfaceFunction KeepInRange(ByVal value As Object, ByVal lowLimit As Object, _    ByVal highLimit As Object, Optional ByRef OutOfRange As Boolean = False) As _    Object    ' we leverage the IComparable interface    Dim icomp As IComparable = DirectCast(value, IComparable)    If icomp.CompareTo(lowLimit) < 0 Then        OutOfRange = True        Return lowLimit    ElseIf icomp.CompareTo(highLimit) > 0 Then        OutOfRange = True        Return highLimit    Else        OutOfRange = False        Return value    End IfEnd Function


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist