DTP to show first Monday of the month

[Arg81]

How do I get a DTP to show this?

Basically, when my form loads, I need it to check whether it's the first Monday of the current month and then to do something.

I.e. if dtpUpdatePrices.value = 'first_monday Then 'go to updateform

 

[JohnH]

To find first monday in month you create a new date set to the first in month and check the integer value of DayOfWeek property, it ranges 0-6 for sunday to saturday. Calculate up to the first monday (which has a 1 integer value from DayOfWeek)

 

[Arg81]

I found some code on the web that looked like this;

Dim FirstMondayoftheMonth As Date = DateAdd(DateInterval.Weekday, DateDiff(DateInterval.Weekday, Date.MinValue, DateAdd(DateInterval.Day, 6 - DatePart(DateInterval.Day, Today()), Today())), Date.MinValue)

but that kept giving me a date of 24/08/0287 !

I'll have a go at what you have suggested, thanks for the info.

 

[Arg81]

I've just found this, and it seems to work nicely.

Dim d As Date = Today
        d = d.AddDays(1 - d.Day)
        d = d.AddDays((8 - d.DayOfWeek) Mod 7)