إجمالي مرات مشاهدة الصفحة

السبت، 21 مايو 2016

دالة لتحويل التاريخ الميلادي إلى تاريخ هجري Gregorian Hijri Converter

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


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

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

Function DHijri(dtGegDate As Date) As String
    VBA.Calendar = vbCalHijri
    DHijri = dtGegDate
    VBA.Calendar = vbCalGreg
End Function


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

=DHijri(A1)

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

هناك 8 تعليقات:

  1. شكرا اخى الكريم Yasser Khalil الله يبارك فى عمرك ويحفظك من كل سوء
    لك كل الاحترام والتقدير

    ردحذف
  2. أخي الفاضل أحمد السيد بارك الله فيك ، وسلمت من كل سوء ، ومشكور على مرورك العطر بالمدونة

    ردحذف
  3. جزاكم الله كل خيرا

    ردحذف
  4. وجزيت خيراً بمثل ما دعوت لي أخي الكريم محمد خالد

    ردحذف
  5. رائع اخي ياسر
    وكرما استفسار لو سمحت لي

    اذا اردت ان اطبقها على يوزرفورم بحيث اذا كان textbox1 فيه التاريخ الميلادي وارغب ان يكون textbox2 التاريخ الهجري.؟ اتمنى اجد لديك الاجابه. وشاكر لك مقدما

    ردحذف
  6. أخي الكريم نعم يمكن ذلك باستخدام الدالة المعرفة بحيث تضع اسم الدالة يليها قيمة صندوق النص الأول الذي يحتوي على التاريخ الميلادي

    ردحذف
    الردود
    1. بارك الله فيك ونفع بك وزادك من فضله اللهم امين

      حذف
  7. مشكور عزيزي طيب كيف يعمل هالموقع تحويل التاريخ الهجري الى ميلادي بنفس الدالة ؟

    ردحذف