هل من الممكن المقارنة بين تاريخين هجريين

طبعا يمكنك المقارنة بين تاريخين هجريين باستخدام عوامل المقارنة المنطقية

شكرا لك ولكن هل من الممكن ان تعطيني مثال على ذلك

بسم الله الرحمن الرحيم

تحية طيبة و بعد

استخدم الكود التالي

Private Sub Command1_Click()

  Dim A, b As Date

    VBA.Calendar = vbCalGreg

    A = CDate("10/10/1422")

    b = CDate("11/10/1422")

    If A > b Then

         MsgBox "a < b"

    ElseIf b > A Then

        MsgBox "b > a"

    Else

        MsgBox "a = b"

    End If

End

Sub

و غير قيم a و b حتى تجرب بنفسك جميعالحالات

شكرا اخي ولكن عذرا فيبدو انني لم اوفق في صيغة السؤال .. المقصود انني اريد ان احصر كل التواريخ الواقعة بين تاريخين .. لانها مشيت معاي بالتاريخ الميلادي ولكن بالهجري ما تمشي لان مكان اليوم بالميلادي يكون هو مكان السنة تقريبا في الهجري .. لذلك حصلت المشكله .. فهل من حل؟ إني منتظر

بسم الله الرحمن الرحيم

الرجاء أن توضح قصدك بمثال لأفهم ما تريده ، حتى لا يتكرر سوء الفهم

على كل حال إن فهمت قصدك ، فأنت تحتاج Format تستخدمها بعد تحديد نوع التاريخ vba.calendar بالنوع الهجري

ووضح مثالك

و الله الموفق

ربما إن كنت فهمت قصدك الآن

استخدم الدالة DateDiff() بعد تحديد نوع التاريخ vba.calendar بالنوع الهجري لتحصل على الفرق بين تاريخين

تحية تقدير واعجاب ل pcbat على جهده ،واشكره لأني استفدت فعلا منه

نعم اخي PCBat هذا هو ما اريد

الف شكر لك وجزاك الله خيرا

يوجد خطأ غير مقصود بلا شك ، واحب التنويه اليه

حيث وردت العبارة If A > b Then

والصحيح If A < b Then

وذلك في بداية المثال

مع ملاحظة انه يتعامل مع التاريخ الميلادي

فلو وضعنا 1/1/1422 ، 1/1/1423 لكان الفرق 365

أي لا يمكن تحديد عدد الأشهر والأيام إلا باستخدام معادلات منفصلة بالنسبة للفرق بين تاريخين هجريين

وأخيرا ياأخ مشـــــــــــــــــــــــــــــتاق

هل تتكرم بنسخ المثال لديك بعد التعديلات وعرضه هنا , لتعم الفائدة

بسم الله الرحمن الرحيم

أخوي مشتاق و عبدالله قائد حياكما الله و على الرحب و السعة و وفقكما الله