Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Sep 14, 2002

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 interface

Function 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 If
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date