[AccessD] Six Month Review

You can do something like this...put in its own function or right where you
need it...

Select case datepart("w",YourDate)
	case 1		'Sunday
		YourDate = DateAdd("d", 1, YourDate)
	case 7		'Saturday
		YourDate = DateAdd("d", 2, YourDate)
End Select

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of David Mcafee
> Sent: Thursday, February 01, 2007 1:14 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Six Month Review
>
>
> I also agree with Rueben. I made a similar function for my wife's
> database.
> She required that patients records be reviewed 90 days from their
> admit date.
> I had to make sure the the date didn't fall on a Saturday or Sunday.
>
> Let me know if you want a copy of the function so I can dig it up for you.
>
> David
>
> ----- Original Message ----
> From: Reuben Cummings <reuben at gfconsultants.com>
> To: Access Developers discussion and problem solving
> <accessd at databaseadvisors.com>
> Sent: Thursday, February 1, 2007 8:26:20 AM
> Subject: Re: [AccessD] Six Month Review
>
> I agree.  But you should also make sure the new date falls into your work
> week rather than a week end.  Check if it's a Saturday or Sunday
> and add one
> or two days.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Tesiny, Ed
> > Sent: Thursday, February 01, 2007 10:44 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Six Month Review
> >
> >
> > I think the DateAdd function would do it...DateAdd("m",6,[DateReview])
> >
> > Ed Tesiny
> > EdTesiny at oasas.state.ny.us
> >
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > Hollis, Virginia
> > > Sent: Thursday, February 01, 2007 10:28 AM
> > > To: accessD at databaseadvisors.com
> > > Subject: [AccessD] Six Month Review
> > >
> > > I need to determine the next semi-annual review date. So if the review
> > > date is 2/22/2007, the next review should be 8/22/2007. I have
> > > DateReview & DateNxtReview fields - how do I get the DateNxtReview to
> > > add 6 months to the DateReview field?
> > >
> > >
> > >
> > > Virginia
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>