Dim d3 As Date = New Date(Date.today.Year, Date.Today.Month, Date.DaysInMonth(Date.today.Year, Date.Today.Month))