Dim NumSem As String NumSem = DatePart(DateInterval.WeekOfYear, DateTime.Now, FirstDayOfWeek.Monday).ToString