تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد كود اسم الشهر
#1
Wink 
السلام عليكم
اريد كود عند اختيار تاريخ يطلق اسم الشهر فى تكست

شكرا لكم

مثال
يناير/2018
الرد
تم الشكر بواسطة:
#2
اذا كنت تريد جلب الشهر والسنة الحالية للجهاز :


كود :
TextBox1.Text = Date.Now.ToString("yyyy/MMM")

اما اذا كنت تريد إعادة فورمات التاريخ بواسطة تكست بوكس :


كود :
TextBox2.Text = CDate(TextBox2.Text).ToString("yyyy/MMM")
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: elgokr , elgokr , عبد العزيز البسكري
#3
ينقل الموضوع الى القسم المناسب له

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#4
ويضا
كود :
Textbox1.text=now.month
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#5
هذا الكود المطلوب
كود :
   Private Sub ddat_chang()

       txt_year.Text = Format(ddet_date.Value, "yyyy")
       Dim mn As String
       Dim yy As String

       yy = ddet_date.Value.Year

       '1
       If ddet_date.Value.Month = 1 Then
           mn = "يناير -  "
           txt_month.Text = mn + yy
       End If
       '2
       If ddet_date.Value.Month = 2 Then
           mn = "فبراير - "
           txt_month.Text = mn + yy
       End If
       '3
       If ddet_date.Value.Month = 3 Then
           mn = "مارس -"
           txt_month.Text = mn + yy
       End If
       '4
       If ddet_date.Value.Month = 4 Then
           mn = "إبريل -"
           txt_month.Text = mn + yy
       End If
       '5
       If ddet_date.Value.Month = 5 Then
           mn = "مايو -"
           txt_month.Text = mn + yy
       End If
       '6
       If ddet_date.Value.Month = 6 Then
           mn = "يونيو - "
           txt_month.Text = mn + yy
       End If
       '7
       If ddet_date.Value.Month = 7 Then
           mn = "يوليو -"
           txt_month.Text = mn + yy
       End If
       '8
       If ddet_date.Value.Month = 8 Then
           mn = "أغسطس -"
           txt_month.Text = mn + yy
       End If
       '9
       If ddet_date.Value.Month = 9 Then
           mn = "ستمبر -"
           txt_month.Text = mn + yy
       End If

       '10
       If ddet_date.Value.Month = 10 Then
           mn = "أكتوبر -"
           txt_month.Text = mn + yy
       End If
       '11
       If ddet_date.Value.Month = 11 Then
           mn = " نوفمبر -"
           txt_month.Text = mn + yy

       End If
       '12
       If ddet_date.Value.Month = 12 Then
           mn = "ديسمبر -"
           txt_month.Text = mn + yy
       End If

   End Sub
الرد
تم الشكر بواسطة: new_programer


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد افكار لكيفية عرض افلام او مسلسلات دون تحديث للبرنامج ميدو الفنان 2 101 23-11-20, 04:01 PM
آخر رد: ميدو الفنان
  اريد كود جعل الفورم يحذف نفسة بعد الاغلاق freeviwer 25 5,550 23-11-20, 09:35 AM
آخر رد: Ban$Dos
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 13 736 10-11-20, 11:55 PM
آخر رد: rochdi191
  [VB.NET] اريد عمل مولد سيريال اوتوماتيك ميدو الفنان 5 573 30-09-20, 09:24 PM
آخر رد: ميدو الفنان
  اريد شرح مبسط عمور2016 2 342 28-09-20, 10:40 AM
آخر رد: amer2000
  [سؤال] لدي ملف hosts اريد استبداله jam3h 2 193 25-09-20, 09:24 AM
آخر رد: jam3h
  اريد كتابة ارقام فقط في الخلية -ما العمل ؟ khaled Mohammed 5 375 11-09-20, 02:34 PM
آخر رد: عبد الهادي بهاب
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 354 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
  [سؤال] اريد شويه أكواد عن قواعد بيانات الاكسس منه 2 361 27-08-20, 10:51 AM
آخر رد: منه
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 510 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم