Case 3 'This Week
            StartDate = Now.Date.AddDays(-Now.Date.DayOfWeek)
            EndDate = Now.Date.AddDays(6 - Now.Date.DayOfWeek)
        Case 4 'This Month
            StartDate = Now.Date.AddDays(-(Now.Day - 1))
            EndDate = New DateTime(Now.Year, Now.Month, Date.DaysInMonth(Now.Year, Now.Month))