I would like to be able to display a date which will be one day more
than what i type in, but if the date i type in is a friday i would
like it to display Mondays date

Thanks

I assume you'd also want a weekend date to step forward to the following
Monday. Add the following function to a standard module:

Public Function NextWorkday(dtmDate As Date)

Dim dtmNextDay As Date

dtmNextDay = dtmDate + 1

Do While Weekday(dtmNextDay, vbMonday) > 5
dtmNextDay = dtmNextDay + 1
Loop

NextWorkday = dtmNextDay

End Function

In the AfterUpdate event procedure of the control put:

Dim ctrl As ctrl

Set ctrl = Me.ActiveControl
ctrl = NexWorkday(ctrl)

Ken Sheridan
Stafford, England

"Simon" wrote:

> I would like to be able to display a date which will be one day more
> than what i type in, but if the date i type in is a friday i would
> like it to display Mondays date
>
> Thanks
>
>

Try this --
IIf(Format([myday]+1,"w") Between 2 And
6,[myday]+1,IIf(Format([myday]+2,"w") Between 2 And 6,[myday]+2,[myday]+3))
--
KARL DEWEY
Build a little - Test a little


"Simon" wrote:

> I would like to be able to display a date which will be one day more
> than what i type in, but if the date i type in is a friday i would
> like it to display Mondays date
>
> Thanks
>
>

Hi -

From the debug (immediate) window:
pdte = date() '3/30/07
nwd = pdte + IIf(WeekDay(pdte) > 5, 9 - WeekDay(pdte), 1)
? nwd
4/2/07

KARL DEWEY wrote:
>Try this --
>IIf(Format([myday]+1,"w") Between 2 And
>6,[myday]+1,IIf(Format([myday]+2,"w") Between 2 And 6,[myday]+2,[myday]+3))
>> I would like to be able to display a date which will be one day more
>> than what i type in, but if the date i type in is a friday i would
>> like it to display Mondays date
>>
>> Thanks

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200703/1