Dim dow As Int = DateTime.GetDayOfWeek(oggi) '1 =dom, 2= lun...7=sab
Dim period1 As Period
period1.Initialize
If dow = 1 Then period1.Days = -6 Else period1.Days= dow-2
Dim lunC As Long = DateUtils.AddPeriod(oggi,period1)
If dow = 1 Then period1.Days = 1 Else period1.Days= 9-dow
Dim lunN As Long = DateUtils.AddPeriod(oggi,period1)
Log("Lunedì corrente: "&DateTime.Date(lunC))
Log("Lunedì prossimo: "&DateTime.Date(lunN))