السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله



أقدم لكم دالة معرفة تقوم بتحويل التاريخ الميلادي إلى هجري ، والدالة المعرفة User-Defined Function توضع في موديول عادي مثل الأكواد ، ويمكن استخدامها من خلال إجراء فرعي أو يمكن استخدامها بشكل مباشر في خلايا ورقة العمل مثل دوال الإكسيل

خطوات العمل :
قم بوضع الدالة المعرفة في موديول عادي ، اضغط Alt + F11 من لوحة المفاتيح للذهاب إلى محرر الأكواد ، ومن قائمة Insert قم بإدراج موديول عادي Module ، والصق الدالة المعرفة التالية

Function DHijri(dtGegDate As Date) As String<br />
&nbsp; &nbsp; VBA.Calendar = vbCalHijri<br />
&nbsp; &nbsp; DHijri = dtGegDate<br />
&nbsp; &nbsp; VBA.Calendar = vbCalGreg<br />
End Function<br />
<br />

لاستخدام الدالة : نفترض أن لديك تاريخ ميلادي في الخلية A1 ، والمطلوب الحصول على التاريخ الهجري لهذا التاريخ في الخلية B1 .. قم بوضع المعادلة التالية في الخلية B1 ليتحقق المطلوب ، ويتم تحويل التاريخ الميلادي إلى هجري

=DHijri(A1)<br />

ولربط الموضوعات ببعضها ، يوجد موضوع آخر لتحويل التاريخ الهجري إلى ميلادي من هنا

حمل الملف من هنا

إعداد وتقديم / ياسر خليل أبو البراء