adding 1 day to a date

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Simon - 30 Mar 2007 17:15 GMT

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

Reply to this Message

Ken Sheridan - 30 Mar 2007 17:36 GMT

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

> 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

Reply to this Message

KARL DEWEY - 30 Mar 2007 18:12 GMT

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))

Signature

KARL DEWEY
Build a little - Test a little

> 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

Reply to this Message

raskew - 30 Mar 2007 18:31 GMT

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

>Try this --
>IIf(Format([myday]+1,"w") Between 2 And
[quoted text clipped - 4 lines]
>>
>> Thanks

Reply to this Message