First Monday date calculation

[john9210]

FM 12, Adv. We have our meetings on the first Monday of each month. I’m trying to create a calculation field that returns the date of the first Monday in the month following the current date (system date). For example, if the current date is June 3, 2016 it would return June 6, 2016. Or, if the current date is June 17, 2016 it would return July4, 2016. Any suggestions?

[comment]

Try =

Let ( [
today = Get ( CurrentDate ) ;
monthStart = Date ( Month ( today ) ; 1 ; Year ( today ) ) ;
firstMon = monthStart + Mod ( 2 - DayofWeek ( monthStart ) ; 7 ) ;
nextMonthStart =  Date ( Month ( today ) + 1 ; 1 ; Year ( today ) ) ;
nextFirstMon = nextMonthStart + Mod ( 2 - DayofWeek ( nextMonthStart ) ; 7 ) 
] ;
If ( today < firstMon ; firstMon ; nextFirstMon )
)

Make sure the calculation is unstored.

 

Edited July 5, 2016 by comment

[john9210]

Thanks, it works great.