Thread: Help with Function: date range
View Single Post
  #3  
Old April 14th, 2010, 09:07 PM posted to microsoft.public.access.gettingstarted
Wayne-I-M
external usenet poster
  
Posts: 3,674
Default 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!!!


.