[AccessD] time window

On 12 Feb 2004 at 21:31, John W. Colby wrote:

> This appears to work:
> 
This seems easier to follow  to me.

 Function TimeIsBetween(dteTimeFrom As Date, dteTimeTo As Date, _
 dteTimeToCompare As Date) As Boolean

	If dteTimeTo < dteTimeFrom Then dteTimeTo = dteTimeTo + 1

	TimeIsBetween = (dteTimeToCompare >= dteTimeFrom) _
                               And (dteTimeToCompare <= dteTimeTo)

End Function
 
-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System 
Support.