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

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

قدمت موضوع فيه دالة لتحويل التاريخ الميلادي إلى هجري من هنا ، والآن أقدم لكم الدالة التي تقوم بالعكس ، أي الدالة التي تقوم بتحويل التاريخ الهجري إلى ميلادي



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

Function DGregorian(ByRef sDate As String) As String
    Dim s As String, d As Date, c As Integer
    
    c = Calendar
    Calendar = 1
    d = CDate(sDate)
    Calendar = 0
    s = CStr(d)
    DGregorian = Format(s, "dd/mm/yyyy")
    Calendar = c
End Function

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

=DGregorian(A1)<br />

رابط الملف من هنا

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