[مساعدة]

السلام عليكم

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

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

كود :

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