Public Shared Function TotalNumberOfSessions(ByVal weekdays As List(Of Integer), ByVal startDate As Date, ByVal endDate As Date)
Dim count As Integer = 0
Dim totalDays = (endDate – startDate).Days
For i = 0 To totalDays
Dim weekday As DayOfWeek = startDate.AddDays(i).DayOfWeek
If weekdays.Contains(weekday) Then
count += 1
End If
Next
Return count
End Function