Sub GetPreviousDay(DayOfWeek As Int) As Long
Dim day As Int = DateTime.GetDayOfWeek(DateTime.Now)
If day <= DayOfWeek Then DayOfWeek = DayOfWeek - 7
Dim d As Long = DateTime.Add(DateTime.Now, 0, 0, DayOfWeek - day)
Return DateUtils.SetDate(DateTime.GetYear(d), DateTime.GetMonth(d), DateTime.GetDayOfMonth(d))
End Sub
Sub GetNextDay(DayOfWeek As Int) As Long
Dim day As Int = DateTime.GetDayOfWeek(DateTime.Now)
If day >= DayOfWeek Then DayOfWeek = DayOfWeek + 7
Dim d As Long = DateTime.Add(DateTime.Now, 0, 0, DayOfWeek - day)
Return DateUtils.SetDate(DateTime.GetYear(d), DateTime.GetMonth(d), DateTime.GetDayOfMonth(d))
End Sub