[moftah70]

السلام عليكم ورحمة الله وبركاتة
تحية طيبة للجميع
اخوتي الكرام احتاج مساعد في كتابة كود لإيجاد اسامي الاشهر المحصورة بين تاريخين سواء كانت بالارقام مثل 1 2 3 4 5 .... الخ او تسمية كتابية مثل يناير فبراير مارس ابريل ..... الخ
بالمرفقات يوجد مثال للتعديل علية يوجد به كود يظهر اسامي الاشهر في مسج بوكس ولم اتمكن من تحويل القيم في المسج بوكس الي التيكست بوكس
ياريت الافادة لمن له القدرة لاني عجزت بصراحة
وبارك الله فيكم مقدماً

[Taha Okla]

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

هذا الكود بشكل مفصل (ولكن لا تنسى تعديل مكان تموضع التكست بوكس كل واحدة تحت الرقم الذي يشير إليها) :

كود :

       Dim RealFromDate = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)

       While RealFromDate <= DateTimePicker2.Value
           'MsgBox(RealFromDate.ToString(" MMM"))

           Select Case Val(RealFromDate.ToString("MM"))
               Case 1
                   TextBox1.Text = RealFromDate.ToString("MMMM")
               Case 2
                   TextBox2.Text = RealFromDate.ToString("MMMM")
               Case 3
                   TextBox3.Text = RealFromDate.ToString("MMMM")
               Case 4
                   TextBox4.Text = RealFromDate.ToString("MMMM")
               Case 5
                   TextBox5.Text = RealFromDate.ToString("MMMM")
               Case 6
                   TextBox6.Text = RealFromDate.ToString("MMMM")
               Case 7
                   TextBox7.Text = RealFromDate.ToString("MMMM")
               Case 8
                   TextBox8.Text = RealFromDate.ToString("MMMM")
               Case 9
                   TextBox9.Text = RealFromDate.ToString("MMMM")
               Case 10
                   TextBox10.Text = RealFromDate.ToString("MMMM")
               Case 11
                   TextBox11.Text = RealFromDate.ToString("MMMM")
               Case 12
                   TextBox12.Text = RealFromDate.ToString("MMMM")
           End Select

           RealFromDate = RealFromDate.AddMonths(1)
       End While

[moftah70]

(20-10-22, 02:32 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

هذا الكود بشكل مفصل (ولكن لا تنسى تعديل مكان تموضع التكست بوكس كل واحدة تحت الرقم الذي يشير إليها) :

كود :

       Dim RealFromDate = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)

       While RealFromDate <= DateTimePicker2.Value
           'MsgBox(RealFromDate.ToString(" MMM"))

           Select Case Val(RealFromDate.ToString("MM"))
               Case 1
                   TextBox1.Text = RealFromDate.ToString("MMMM")
               Case 2
                   TextBox2.Text = RealFromDate.ToString("MMMM")
               Case 3
                   TextBox3.Text = RealFromDate.ToString("MMMM")
               Case 4
                   TextBox4.Text = RealFromDate.ToString("MMMM")
               Case 5
                   TextBox5.Text = RealFromDate.ToString("MMMM")
               Case 6
                   TextBox6.Text = RealFromDate.ToString("MMMM")
               Case 7
                   TextBox7.Text = RealFromDate.ToString("MMMM")
               Case 8
                   TextBox8.Text = RealFromDate.ToString("MMMM")
               Case 9
                   TextBox9.Text = RealFromDate.ToString("MMMM")
               Case 10
                   TextBox10.Text = RealFromDate.ToString("MMMM")
               Case 11
                   TextBox11.Text = RealFromDate.ToString("MMMM")
               Case 12
                   TextBox12.Text = RealFromDate.ToString("MMMM")
           End Select

           RealFromDate = RealFromDate.AddMonths(1)
       End While

بارك الله فيك ورحم الله والديك واسأل الله ان يحفظك ويحميك انت مبدع ماشاء الله تبارك الله الله يزيدك من علمه ويسدد خطاك لما فيه الخير والصلاح
هذا مااريده بالضبط الله ينور عليك ويرحم والديك

[Taha Okla]

وهذا كود آخر إن فهمته فهو أفضل، ولكن الأول هو أبسط للفهم :

كود :

       Dim RealFromDate = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)

       Dim x As Integer

       While RealFromDate <= DateTimePicker2.Value

           For Each c As TextBox In Me.Controls.OfType(Of TextBox)()
               x = Val(Replace(c.Name, "TextBox", ""))
               If x = Val(RealFromDate.ToString("MM")) Then
                   c.Text = RealFromDate.ToString("MMMM")
               End If
           Next

           RealFromDate = RealFromDate.AddMonths(1)
       End While

[moftah70]

(20-10-22, 02:50 PM)Taha Okla كتب : وهذا كود آخر إن فهمته فهو أفضل، ولكن الأول هو أبسط للفهم :

كود :

       Dim RealFromDate = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)

       Dim x As Integer

       While RealFromDate <= DateTimePicker2.Value

           For Each c As TextBox In Me.Controls.OfType(Of TextBox)()
               x = Val(Replace(c.Name, "TextBox", ""))
               If x = Val(RealFromDate.ToString("MM")) Then
                   c.Text = RealFromDate.ToString("MMMM")
               End If
           Next

           RealFromDate = RealFromDate.AddMonths(1)
       End While

بصراحة اجد نفسي عاجزاً عن شكرك فمهما انتقيت من كلمات لن اوفيك حقك ولكن لا يمكنني الا ان اقول رحم الله البطن التي انجبتك