Polar Studio

BringInRange

Public Function BringInRange(ByVal Value As Variant, ByVal MinValue As Variant, ByVal MaxValue As Variant)

Brings a value within the specified range. Make sure the MaxValue >= MinValue to prevent unexpected results.

Value: The value to bring withing the specified range.
MinValue: The lower boundary of the accepted range.
MaxValue: The upper boundary of the accepted range.

Public Function CreateTime(pHour As Long, pMinute As Long) As Date
    Return TimeSerial(BringInRange(pHour, 0, 23), BringInRange(pMinute, 0, 59))
End Function

See also:

Max
Min