سؤال كيفية احتساب ايام اجازة - نسخة قابلة للطباعة

PHP كود :

public static int GetBusinessDays(DateTime startDay, DateTime endDay)
{
    var today = DateTime.Today;
    var weekend = new[] { DayOfWeek.Saturday, DayOfWeek.Friday };
    var businessDays = from d in Enumerable.Range(0, (endDay.Date - startDay.Date).Days + 1)
                       where !weekend.Contains(day.DayOfWeek)
                       select today.AddDays(d);

    return businessDays.Count();
}

PHP كود :

Function FindDays(ByVal fromdate As Date, ByVal todate As Date)
        Dim AmountofDaysTaken As Integer = 0
        If todate.Date < fromdate.Date Then Exit Function
        While fromdate.Date <= todate.Date
            Select Case fromdate.DayOfWeek.ToString()
                Case "Monday"
                    If mondaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
                Case "Tuesday"
                    If tuesdaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
                Case "Wednesday"
                    If wednesdaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
                Case "Thursday"
                    If thursdaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
                Case "Friday"
                    If fridaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
                Case "Saturday"
                    If saturdaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
                Case "Sunday"
                    If sundaychk.Checked Then AmountofDaysTaken = AmountofDaysTaken + 1
            End Select
            Debug.Print(fromdate.Date & " " & todate.Date & " " & fromdate.DayOfWeek.ToString())
            My.Application.DoEvents()
            fromdate = fromdate.AddDays(1)
        End While
        Return AmountofDaysTaken
    End Function