Help with Function: date range
datefield #12/34/5678# AND datefield #10/98/7651#
--
Wayne
Manchester, England.
"Bre-x" wrote:
Public Function my_dates(the_date As Date) As Integer
Select Case the_date
Case #7/31/2005# To #8/1/2006#
my_dates = 2006
Case #7/31/2006# To #8/1/2007#
my_dates = 2007
Case #7/31/2007# To #8/1/2008#
my_dates = 2008
Case #7/31/2008# To #8/1/2009#
my_dates = 2009
Case #7/31/2009# To #8/1/2010#
my_dates = 2009
Case Else
my_date = 0
End Select
End Function
Thank you!!!
.
|