Public Shared Function GetLastDayOfThisMonth() As DateTime Dim now As DateTime = DateTime.Now Dim nbDays As Integer = DateTime.DaysInMonth(now.Year, now.Month) Return New DateTime(now.Year, now.Month, nbDays, 23, 59, 59, 999) End Function