كيف اعرف كم عدد أيام الجمع في شهر معين

السلام عليكم ورحمة الله وبركاته

حسب مافهمت من السؤال أنك تريد معرفة عدد مرات تكرار يوم معين فى الشهر ,, أليس كذلك؟

لو كان ما فهمت هو المطلوب فيمكنك استخدام هذه الوظيفة

Private Function GetRepetitionCount(ByVal month As Integer, ByVal year As Integer, ByVal dayName As DayOfWeek) As Integer
        Dim firstDay As Integer
        Dim ci As New System.Globalization.CultureInfo("en-US")
        For i As Integer = 1 To 7
            If (New DateTime(year, month, i)).ToString("dddd", ci.DateTimeFormat) = dayName.ToString Then
                firstDay = i
                Exit For
            End If
        Next

        Dim daysInMonth As Integer = DateTime.DaysInMonth(Year, Month)
        Dim counter As Integer

        For i As Integer = firstDay To daysInMonth Step 7
            counter += 1
        Next
        Return counter
    End Function

إن لم يكن هذا هو المطلوب فأرجو أن تخبرنى بذلك

ايه استاذي العزيز هو هذا مااقصده كم تكررت اليوم في الشهر

لكن اعذرني لم استطع ان اطبقه عملي حاولت انسخ والصق الكود بس ماقدرت

هل ممكن تعمل مثال صغير حتى استفيد منه او توضح اكثر

والله يبارك فيك

سأرفع لك مثالا اليوم عصرا بإذن الله بعد عودتى من العمل

هذه شاشة سريعة التحضير Take-Away :D توضح كيفية تطبيق الوظيفة السابقة

DayRepetitionCount.rar