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

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

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

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

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


الملفات المرفقة
.rar   DateHijri.vb.rar (الحجم : 65.15 ك ب / التحميلات : 45)
الرد }}
تم الشكر بواسطة:
#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] حول تكرار البيانات في نفس التاريخ sher 2 133 15-06-22, 04:50 AM
آخر رد: سعود
  ترتيب العرض الشراء الاول ثم السداد في حالة تساوي التاريخ atefkhalf2004 2 202 26-05-22, 10:07 PM
آخر رد: atefkhalf2004
Heart [VB.NET] طلب مساعدة في ادخال التاريخ ؟ lionexxd 3 564 16-04-22, 06:41 AM
آخر رد: أبووسم
  التعامل مع الموبايل عن طريق الكمبيوتر ابو انس 2 431 14-04-22, 03:16 AM
آخر رد: ابو انس
  ظهور التاريخ على الفورم um_noor20 10 1,019 28-03-22, 12:10 AM
آخر رد: أبووسم
  مساعدة في تعديل صيغة التاريخ العطر الرايق 1 509 14-03-22, 05:35 AM
آخر رد: ابراهيم ايبو
  هل يمكن اضافة بيانات اخري عند الطباعه مع داتا جريد فيو مثل الاسم التاريخ رقم الفاتور ahmedhhh2 3 619 13-03-22, 06:03 PM
آخر رد: ahmedhhh2
  اسم الملف مستمد من اداة التاريخ datetimepicker atefkhalf2004 3 704 02-03-22, 10:57 PM
آخر رد: atefkhalf2004
  [VB.NET] طريقة اظهار احصائية محمد بوقزاحة 0 447 31-01-22, 01:43 PM
آخر رد: محمد بوقزاحة
  [VB.NET] طريقة اظهار احصائية محمد بوقزاحة 0 434 31-01-22, 01:42 PM
آخر رد: محمد بوقزاحة

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


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