منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
زيادة السنين في أداة التاريخ DateTimePicker - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : زيادة السنين في أداة التاريخ DateTimePicker (/showthread.php?tid=18707)



زيادة السنين في أداة التاريخ DateTimePicker - أسامة السالمي - 06-01-17

عندي هذا الكود :

PHP كود :
DateTimePicker1.Value Today.AddYears(3

لكن المشكلة انه يضيف عدد من الأيام عن كل سنة  وبهذا فإن الأيام والأشهر ستتغير,
واللي أريده هو ان يغير السنين فقط دون الأيام والأشهر.

مثال:
(08/04/1438) - (08/04/1441)


RE: زيادة السنين في أداة التاريخ DateTimePicker - مساعدة - 06-01-17

السلام عليكم

الفجوال يتعامل بالتاريخ الميلادي حتى وإن ظهر في الأداة تاريخ هجري، لذلك الكود الذي استخدمته يزيد سنوات ميلادية لهذا تفاجأت بالنتيجة

تفضل الكود الذي يزيد سنوات هجرية بتقويم أم القرى إلى تاريخ اليوم
على افتراض ان تاريخ نظام التشغيل لديك على تقويم أم القرى
كود :
Dim UmAlQura As New Globalization.UmAlQuraCalendar
Dim d As Date = UmAlQura.AddYears( Today ,3)

DateTimePicker1.Value = d

او إذا أردت الزيادة على تاريخ الأداة نفسها إذا كان مختلف عن تاريخ اليوم مثل تاريخ الميلاد وما شابه
كود :
Dim UmAlQura As New Globalization.UmAlQuraCalendar
Dim d As Date = UmAlQura.AddYears( DateTimePicker1.Value ,3)

DateTimePicker1.Value = d

هناك تقويم هجري قد يختلف بزيادة أو نقصان يوم أو يومين عن تقويم أم القرى وهو
كود :
Dim Hijri As New Globalization.HijriCalendar



RE: زيادة السنين في أداة التاريخ DateTimePicker - أسامة السالمي - 06-01-17

مشكور,,
ما أعرف كيف ما جات على بالي Confused
لكن حقيقة انضمامك للمنتدى يعتبر نعمة لجميع الأعضاء Big Grin


RE: زيادة السنين في أداة التاريخ DateTimePicker - abomo3ath - 03-03-17

شكراً نفع الله بعلمك وزادك من فضله


RE: زيادة السنين في أداة التاريخ DateTimePicker - مساعدة - 03-03-17

جزاكم الله خير

إذا أردتم أن تعرفوا نظام الويندوز أي تقويم يستخدم خصوصاً نوع التقويم الهجري (هل هو UmAlquraCalendar أو HijriCalendar)
كود :
Dim sysCalendar As Globalization.Calendar = Globalization.CultureInfo.CurrentUICulture.Calendar

MsgBox(sysCalendar.ToString)



RE: زيادة السنين في أداة التاريخ DateTimePicker - hamode - 21-03-17

DateTime.Now.Year + 1