تقييم الموضوع :
  • 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] اريد ربط البرنامج مع xampp 0theghost0 2 111 06-02-19, 09:04 PM
آخر رد: aljzazy
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 4 123 26-01-19, 08:54 PM
آخر رد: سمير جمال
  [سؤال] اريد الترجمة من خلال الفيجوال بيسك هل هذا متاح ؟ dametucorazon 2 80 22-01-19, 01:06 AM
آخر رد: dametucorazon
  سوءال استخلاص فواتر الماء بحسب الشهر والسنة Adil Idabdellah 1 99 19-01-19, 02:54 AM
آخر رد: sendbad100
  سوءال استخلاص فواتر الماء بحسب الشهر والسنة Adil Idabdellah 3 147 18-01-19, 04:45 AM
آخر رد: Adil Idabdellah
  [سؤال] اريد تجزئة حقل التاريخ عاشق الرسول 5 272 11-01-19, 11:03 AM
آخر رد: larbihamri
  اريد كود عرض السجل الاخير فى الفورم فى اللود سمير جمال 1 103 07-01-19, 11:42 PM
آخر رد: elgokr
  [سؤال] اريد كود يختار سجل من جدول في قاعدة البيانات عشوائيا ويعرض في النموذج abdalla89 7 992 07-01-19, 04:31 PM
آخر رد: elgokr
  اريد كود الحذف والتعديل بدون الداتا جريد فيو سمير جمال 2 140 06-01-19, 07:31 PM
آخر رد: سمير جمال
  اريد جلب روابط من سورس صفحة ابو روضة 0 92 26-12-18, 03:01 AM
آخر رد: ابو روضة

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


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