[ابو انس]

وعليكم السلام
تفضل

كود :

       Dim D1 As Date = DateTimePicker1.Value
       Dim D2 As Date = DateTimePicker2.Value
       Dim def As New TimeSpan()
       def = D2 - D1
       TextBox1.Text = def.Days + 1


       Dim Alldays As Integer = Val(TextBox1.Text)

       Dim list2 = Enumerable.Range(0, Alldays).Select(Function(i) _
                 New With {Key .Description = DateAdd(DateInterval.Day, i, D1), _
Key .Weekday = DatePart(DateInterval.Weekday, DateAdd(DateInterval.Day, i, D1))})

       Dim daysCount = (From x In list2 Where x.Weekday <> DayOfWeek.Friday And x.Weekday <> DayOfWeek.Saturday).Count()

       TextBox2.Text = daysCount
   End Sub

ارجو ان يكون الكود واضح