Dim dt As Date = Date.TodayDim dy As Integer = dt.yearDim dm As Integer = dt.month
Dim LastDay As Date = New Date(dy,dm,20)Dim FirstDay As Date = LastDay.AddMonths(-1).AddDays(1)