[محمد خيري]

(05-11-22, 04:49 PM)barawy كتب : السلام عليكم
اظن الكود التالى سيفى بالغرض 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim MyDay() As String = {"الأحد", "الأثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت"}

       If ComboBox1.Text <> Nothing And ComboBox2.Text <> Nothing Then

           Dim D1 As Date = DateValue("1/" & ComboBox1.Text & "/" & ComboBox2.Text)
           Dim D2 As Date

           If Val(ComboBox1.Text) < 12 Then
               D2 = DateValue("1/" & Val(ComboBox1.Text) + 1 & "/" & ComboBox2.Text)
           Else
               D2 = DateValue("1/" & "1" & "/" & Val(ComboBox2.Text) + 1)
           End If

           Dim J As Long = DateDiff(DateInterval.Day, D1, D2)

           If DataGridView1.Columns.Count > 0 Then
               DataGridView1.Columns.Clear()
           End If
           Dim mRow(J) As String

           For i = 1 To J
               D2 = DateValue(i & "/" & ComboBox1.Text & "/" & ComboBox2.Text)
               DataGridView1.Columns.Add("Col" & i, MyDay(Val(D2.DayOfWeek)))
               mRow(i - 1) = i & "/" & ComboBox1.Text
           Next

           DataGridView1.Rows.Add(mRow)

       Else
           MsgBox("من فضلك قم باختيار الشهر والسنة")
       End If


   End Sub

شكرا جزيلا اخي بارك الله فيك و في والديك كلو تمام و الحمد لله