Рассчитать 2 даты, за исключением выходных дней VB net

Question

Я пытаюсь вычислить даты Due date in Date Return. И если срок возврата даты истекает через один день. там будет штраф.

Это мой код в вычислении

Dim st As Integer = MetroDateTime1.Value.Date.Subtract(Label9.Text).Days 

If (Label6.Text) > (MetroDateTime1.Value.Date) Then _ 
    MessageBox.Show("Date return must not below to date borrowed", _ 
    "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 

    MetroDateTime1.Focus() 

ElseIf (st > 0) Then 
    MetroTextBox7.Text = (st * 5).ToString() 
Else 
    MetroTextBox7.Text = 0 
End If 

«Metrotextbox7 является текстовым полем для штрафов. Но, как вычислить даты, исключая выходные?

Answer 1

«получить рабочих дней

Public Shared Function GetBusinessDays(startDay As DateTime, endDay As DateTime) As Integer 

    Dim today = Date.Today 
    Dim weekend = {DayOfWeek.Saturday, DayOfWeek.Sunday} 
    Dim businessDays = 
    From d In Enumerable.Range(0, (endDay.Date - startDay.Date).Days + 1) 
    Select day = today.AddDays(d) 
    Where Not weekend.Contains(day.DayOfWeek) 

    Return businessDays.Count() 

End Function 

already answered question