السلام عليكم
الفجوال يتعامل بالتاريخ الميلادي حتى وإن ظهر في الأداة تاريخ هجري، لذلك الكود الذي استخدمته يزيد سنوات ميلادية لهذا تفاجأت بالنتيجة
تفضل الكود الذي يزيد سنوات هجرية بتقويم أم القرى إلى تاريخ اليوم
على افتراض ان تاريخ نظام التشغيل لديك على تقويم أم القرى
كود :
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
شكراً نفع الله بعلمك وزادك من فضله
جزاكم الله خير
إذا أردتم أن تعرفوا نظام الويندوز أي تقويم يستخدم خصوصاً نوع التقويم الهجري (هل هو UmAlquraCalendar أو HijriCalendar)
كود :
Dim sysCalendar As Globalization.Calendar = Globalization.CultureInfo.CurrentUICulture.Calendar
MsgBox(sysCalendar.ToString)
