VB.NET - calcul du nombre de jours entre deux dates avec des exclusions

Je suis en train de compter les jours entre deux dates, à l'exclusion de samedi et dimanche. J'ai écrit ce code jusqu'à présent

Dim startDay As Integer
Dim endDay As Integer
Dim days As Integer
Dim count As Integer

startDay = dtpStartDate.Value.DayOfWeek
endDay = dtpEndDate.Value.DayOfWeek

For days = startDay To endDay
    If days = 0 Or days = 6 Then           'Sunday = 0, Saturday = 6
        count += 1
    End If
Next

    lblNoOfDays.Text = count

Il fonctionne très bien si vous choisissez les deux dates dans la même semaine. (ex: du 23 janvier au 27 janvier, donne le résultat 5)
Mais si je l'ai mis à dates dans plusieurs semaines, (ex : 23 Jan 30 Jan, donne le résultat 1), il donne des résultats incorrects.

Je sais que cela arrive à cause de la boucle, mais je ne peux pas penser à une façon de surmonter ce problème. Quelqu'un peut-il me donner une suggestion, une solution??

Merci

InformationsquelleAutor Isuru | 2012-01-29
  1. 7
    Dim count = 0
Dim totalDays = (dtpEndDate - dtpStartDate).Days

For i = 0 To totalDays
    Dim weekday As DayOfWeek = startDate.AddDays(i).DayOfWeek
    If weekday <> DayOfWeek.Saturday AndAlso weekday <> DayOfWeek.Sunday Then
        count += 1
    End If
Next

lblNoOfDays.Text = count
    • a fait un petit changement, (dtpEndDate.Value - dtpStartDate.Value).Days et Dim startDate As Date dans mon code, il fonctionne parfaitement! Merci beaucoup 🙂
    InformationsquelleAutor Dennis Traub
  2. 1

    Cette fonction calcule le non-week-end de jours entre deux dates:

        Public Shared Function WorkingDaysElapsed(ByVal pFromDate As Date, ByVal pToDate As Date) As Integer

        Dim _elapsedDays As Integer = 0
        Dim _weekendDays As DayOfWeek() = {DayOfWeek.Saturday, DayOfWeek.Sunday}

        For i = 0 To (pToDate - pFromDate).Days
            If Not _weekendDays.Contains(pFromDate.AddDays(i).DayOfWeek) Then _elapsedDays += 1
        Next

        Return _elapsedDays

    End Function
    InformationsquelleAutor pallares