Berechnen Sie 2 Daten ohne Wochenenden VB net

Question

Ich versuche, die Daten des Fälligkeitsdatums in das Datum zurückgegeben. Und wenn die Datumsrückgabe das Fälligkeitsdatum an einem Tag überschreitet. Es wird eine Strafe geben.

Dies ist mein Code in die Berechnung

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 die Textbox für Geldbußen. Aber wie berechnet man die Daten außer den Wochenenden?

Answer 1

Geschäftstage

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