تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار اسم اليوم
#1
السلام عليكم ورحمة الله وبركاته

لدي تاريخ هجري مكتبو في اداة نص

1443/01/07

المطلوب اسم اليوم بالعربي يظهر في مربع نص آخر

يتغير حسب التاريخ الذي يكتب في مربع النص الخاص بالتاريخ الهجري
الرد }}}
تم الشكر بواسطة: ابو انس , خالد20
#2
وعليكم السلام ورحمة الله وبركاته
تفضل اخي
كود :
TextBoxX1.Text = Date.Today.ToString("dddd")
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: aftfm , aftfm , ابراهيم ايبو , خالد20 , salim0ham , salim0ham , egy_program , Miloud
#3
الف شكر اخي العزيز ابو انس

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

هذا الكود يعطي نتيجة ولكنها غير دقيقة حيث في الادارة 
ME.txtReturnDate
يتم كتابة التاريخ يدوياً بالهجري ولكن لحظت انها تعمل بالميلادي 
كيف احول التاريخ المكتوب في الاداة من هجري الى ميلادي على اداة label


 
كود :
Dim todaydate As String = String.Empty
        Dim hc As New UmAlQuraCalendar()
        Dim day As String = hc.GetDayOfWeek(Me.txtReturnDate.MyDate).ToString().ToLower().Trim()
        Select Case day
            Case "friday"
                day = "الجمعة"
                Exit Select
            Case "saturday"
                day = "السبت"
                Exit Select
            Case "sunday"
                day = "الأحد"
                Exit Select
            Case "monday"
                day = "الأثنين"
                Exit Select
            Case "tuesday"
                day = "الثلاثاء"
                Exit Select
            Case "wednesday"
                day = "الأربعاء"
                Exit Select
            Case "thursday"
                day = "الخميس"
                Exit Select
        End Select
        Me.txtDaysName.Text = day
الرد }}}
#4
السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل هذا الكود ووظفه كما تريد
كود :
Dim MyDate As Date = CDate(TextBox1.Text)
       MsgBox(MyDate.ToString("dddd"))
وان اردت اظهار اسم اليوم بالعربي استبدل السطر الثاني بهذا
كود :
MsgBox(MyDate.ToString("dddd", New CultureInfo("ar-AE")))
واستدعي المكتبة Imports System.Globalization
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو انس , aftfm , asemshahen5 , خالد20 , salim0ham
#5
الف شكر اخي العيزيز ابراهيم

تم تجبة الكود


كود :
MsgBox(MyDate.ToString("dddd", New CultureInfo("ar-AE")))


ولكن انا اكتب التاريخ في اداة بالهجري  09\01\1443

الكود يظهر الاسم بالعربي ولكنه معتبر التاريخ 09\01\1443 ميلادي 

كيف احول هذا التاريخ الى الميلادي

 ليكون اسم اليوم مطابق لنفس اليوم المطلوب بالهجري
الرد }}}
تم الشكر بواسطة: خالد20
#6
السلام عليكم ورحمة الله وبركاته
اخي الكريم هل تدخل دائما التاريخ الهجري ام ممكن تدخل تاريخ ميلادي ايضا؟
اذا كان الاثنين فهنا يجب ان نشير الى نوع التاريخ هجري ام ميلادي بوساطة CheckBox
وان كان هجريا فيجب تحويله الى ميلادي ليجلب اسم اليوم
وان كان ميلاديا يجلب اسم اليوم
تفضل المثال


الملفات المرفقة
.zip   NewDate.zip (الحجم : 133.66 ك ب / التحميلات : 15)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , خالد20 , salim0ham


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤا بخصوص تجيمع كميات المواد المباعة في اليوم momani33 2 131 07-04-24, 11:02 PM
آخر رد: momani33
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 406 09-01-24, 01:41 AM
آخر رد: Taha Okla
  اظهار كرستال ريبورت MOHAMMED ALZWI 0 334 24-08-23, 02:47 PM
آخر رد: MOHAMMED ALZWI
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 407 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 398 09-08-23, 09:39 PM
آخر رد: أبووسم
  اظهار السعر اسفل الصنف atefkhalf2004 2 404 28-07-23, 03:03 AM
آخر رد: atefkhalf2004
  اظهار الاسماء المختلفة من 2 داتا جريد فيو yosif 2 508 14-04-23, 03:50 PM
آخر رد: yosif
  [سؤال] اظهار اداة باكورد على فيجوال بيسك 2008؟ ؟ طالب تقنية المعلومات it 1 494 17-02-23, 10:16 PM
آخر رد: asmarsou
  [سؤال] اظهار بيانات عنصر محدد من DataGrdView في فورم ثاني HUNTER25 9 881 19-12-22, 05:55 PM
آخر رد: HUNTER25
  افضل طريقة لحساب المنتج المباع حسب اليوم او الاجمالي h2551996 1 603 08-12-22, 08:37 PM
آخر رد: h2551996

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


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