by Walter (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 26th October 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Between - Function
Dim vLowB, vUpB
On Error GoTo ERR_Betw
vLowB = IIf(firstBound > secBound, secBound, firstBound)
vUpB = IIf(secBound < firstBound, firstBound, secBound)
If varTerm > vLowB Then
If varTerm < vUpB Then
Between = True
End If
End If
ERR_Betw:
End Function