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

مرفق مثال للتعامل مع التاريخ الهجري في اضافة اسم اليوم حسب التاريخ

مع زيادة عدد الايام واحتساب الفرق 

واظهار اسم اليوم بعد الزيادة

آمل التعديل على المثال مع العلم ان في المثال توضيح للمطلوب


الملفات المرفقة
.rar   DateHijri.vb.rar (الحجم : 65.15 ك ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة:
#2
قم باستبدال كود منطقة 
DateTimePicker1_ValueChanged
بالكود التالى
كود :
Dim dateGregorian As Date = DateTimePicker1.Text
       Dim Y As String = dateGregorian.Year
       Dim M As String = dateGregorian.Month
       Dim D As String = dateGregorian.Day
       Dim ci As New Globalization.CultureInfo("ar-SA")
       Dim dateHijri As New DateTime(Y, M, D)
       Dim NameDay As String = dateHijri.ToString("ddd", ci)
       lblDayName.Text = NameDay
       '---إضافة عدد الايام للتاريخ الجديد
       lblDateAddDay.Text = DateTimePicker1.Value.AddDays(+txtAddDates.Text)

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: aftfm , sendbad100 , عبد العزيز البسكري
#3
جزاك الله خير على المشاركة

ولكن في اداة DateTimePicker يظهر تاريخ اليوم ومقابلة اليوم صحيح 
على سبيل المثال يوم 1439/10/10 يوافق يوم الاحد

وبعد تنفيذ الكود اعطاني ويم السبت

//////

وايظاً التاريخ بعد الزيادة اعطاني التاريخ بتنسيق 11/11/1439 
والمطلوب 1439/11/11

\\\\\\

ولم يعطني اسم اليوم المقابل له

بالنسبة للاخير اضفت 

 lblDateAddDay.Text = DateTimePicker1.Value.AddDays(+txtAddDates.Text).ToString("yyyy/MM/dd")

ومشي الحال

ايظاً الفقرة الاولى تم حلها 



dim dateGregorian as Date = me.DateTimePicker1.Value


كانت 

dim dateGregorian as Date = me.DateTimePicker1.Value.AddDays(-1)
الرد }}}
تم الشكر بواسطة:
#4
جرب هذا الكود 

كود :
       Dim dateGregorian As Date = Me.DateTimePicker1.Value
       Dim hijri As New UmAlQuraCalendar()
       Dim Y As String = dateGregorian.Year
       Dim M As String = dateGregorian.Month
       Dim D As String = dateGregorian.Day
       Dim dateHijri As Date = New Date(Y, M, D, hijri)
       Dim NameDay As String = dateHijri.ToString("dddd")
       Me.lblDayName.Text = NameDay

       '---إضافة عدد الايام للتاريخ الجديد
       Dim newdate As Date = DateTimePicker1.Value.AddDays(Val(txtAddDates.Text))
       lblDateAddDay.Text = newdate.ToString("yyyy/mm/dd")
       lblDayName.Text = newdate.ToString("ddd")
الرد }}}
#5
(30-05-18, 11:38 AM)aftfm كتب : جزاك الله خير على المشاركة

ولكن في اداة DateTimePicker يظهر تاريخ اليوم ومقابلة اليوم صحيح 
على سبيل المثال يوم 1439/10/10 يوافق يوم الاحد

وبعد تنفيذ الكود اعطاني ويم السبت

//////

وايظاً التاريخ بعد الزيادة اعطاني التاريخ بتنسيق 11/11/1439 
والمطلوب 1439/11/11

\\\\\\

ولم يعطني اسم اليوم المقابل له

بالنسبة للاخير اضفت 

 lblDateAddDay.Text = DateTimePicker1.Value.AddDays(+txtAddDates.Text).ToString("yyyy/MM/dd")

ومشي الحال

ايظاً الفقرة الاولى تم حلها 



dim dateGregorian as Date = me.DateTimePicker1.Value


كانت 

dim dateGregorian as Date = me.DateTimePicker1.Value.AddDays(-1)


بخصوص الخطاء الذى كان يحدث عند عرض اليوم

كان السبب فى استخدام hijri حيث يظهر التاريخ يزيد 1000 وكسور عام
لاكتشافي ذلك حولت الجزء الخاص السطر (dddd) الى (yyyy/MM/dd)
حتى يظهر التاريخ كاملاً بدلاً من اليوم كتابتاً

لذلك قمت بتغيير نمط استخدام التاريخ بالجزء
كود :
Dim NameDay As String = dateHijri.ToString("ddd", ci)

ومن ثم يحب جعل قيمة افتراضية فى 
PHP كود :
txtAddDates.Text 

حتى لا تظهر اى اخطاء عند استخدام المستخدم بدون ان يزيد اى ارقام
لذلك قم بجعل قيمته 0

وبالنهاية بخصوص
بعد عمل زيادة بالتاريخ لعدد الايام يجب اظهار اليوم
كل ما تحتاجه هو
استخدم نفس الكود
كود :
DateTimePicker1.Value.AddDays(Val(txtAddDates.Text))

لكن مع اضافة بسيطة فقط ليصبح
كود :
DateTimePicker1.Value.AddDays(Val(txtAddDates.Text)).ToString("ddd")
وهذا لقيمة اليوم بعد الاخر


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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: aftfm , عبد العزيز البسكري
#6
نبي مثال التاريخ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  التاريخ الهجرى mmaalmesry 9 1,075 07-12-23, 01:32 PM
آخر رد: kebboud
  استخراج الشهر الهجري kebboud 2 258 04-12-23, 07:51 PM
آخر رد: kebboud
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 338 16-11-23, 12:02 AM
آخر رد: بلال بلال
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 508 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  مطلوب كود جمع التاريخ Ahmed.vb 3 444 22-10-23, 08:32 AM
آخر رد: Ahmed5

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


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