find the date of Friday

[Newbie]

Hi,

I want to be able to set the default date of a date/time picker to the
Friday date for either the current week or the next week dependant on when
the report is run.
i.e if I open the form on monday/tuesday or Wed 7th, 8th, 9th June I want
the date to be the Fri of the same week i.e 11th June.
If I open the form on Thursday or Friday 10th/11th June I want the date to
be the Friday of the following week i.e. 18th June.

How would I achieve this?

Thanks

 

[Nikos Yannacopoulos]

Try the following piece of code in the form's On Open event:

Dim wday As Integer, fday As Date

wday = Weekday(Date(), vbSaturday)
If wday >= 6 Then wday = wday - 7
fday = Date() - wday + 7

Me.ActivexCtl1 = fday

Just change ActivexCtl1 to the actual name of your Date/Time Picker control.

HTH,
Nikos

 

[Newbie]

Brilliant! works a treat

Thanks for your help

Try the following piece of code in the form's On Open event:

Dim wday As Integer, fday As Date

wday = Weekday(Date(), vbSaturday)
If wday >= 6 Then wday = wday - 7
fday = Date() - wday + 7

Me.ActivexCtl1 = fday

Just change ActivexCtl1 to the actual name of your Date/Time Picker control.

HTH,
Nikos

 

[Chris Large]

Not sure about the dtPicker control, but for a text box
can set the Default value property to:-

Date()+9-Weekday(Date(),5)

which gives you the date you wanted.

hth

Chris