تقويم أم القرى : كيف ؟؟

الأخ خالد الصالح .. بعد التحية

ممتاز جدا .. إذا أنصح بإحدى هذه الخيارات التالية :

1 - في حالة ما أردت أن تنزل الأداة بإسم أم القرى فيجب أن تتبع المراحل الثلاث التي ذكرتها حتى ولو اعتبرتها أخطاء ، علما أنه ليست أخطاء وكما أوضحتها أنت شخصيا هي طريقة حساب مختلفة .

2 - أما إذا أردت انزالها على أنها تقويم فلكي موافق لأم القرى فيفضل أن يبدأ هذا التقويم من تاريخ آخر تعديل وهو عام 1423هـ .

3 - وإذا أردت أن يكون تقويما فلكيا حسب مكة المكرمة ولتسمه أي إسم يروق لك فدعه كما هو .

أنا شخصيا أفضل أن يكون الخيار الأول .

تحياتي .

----

شكرا يا أبو ناصر

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

عموما لم يكن ردي عليك إهانة لك ولكن لما ذكرت أن هذا الكود من إحدى الجامعات استغربت وكأنك تريد أن تعطيه شهادة مرور دون مناقشة وقد وجدت فيه ما لا يرضي ككونه من جامعة ولكن لو أوضحت أن هذا الكود من عملك فتأكد لن أقبل أبدا أن أذكر ما ذكرت بل سوف أقوم بتقييم النتائج فقط وعدم التطرق للكود إلا إذا طلبت ذلك كما يفعل بعض المبرمجين وأنا واحد منهم ، (فكل عالم جاهل) أي لا يمكن لأي إنسان أن يكون عالما في كل شيء وحتى لو تخصص في علم واحد فقط فلن يحتويه بكل ما فيه وسوف يرى أن هنا من يملك من معلومات ما لا يملكه هو نفسه .

عموما أنا مسامحك ومتفهم سبب زعلك ، وتحتاج أن ترى كثير من المواضيع قد تراها جدا مفيدة وقيمة ولكن لا ترى ردا واحدا يجبر بخاطر كاتبها ، فتعود كما تعودنا واصبر وتأكد أن العمل الطيب لا يضيع أبدا وقد تتأخر نتائجه .

أخوك أبو هادي

أضفت رداً على الموضوع ولكنه أصبح يسبق بعض الردود ولا أدري ما المشكلة ، وقد أكون قمت بتعديل رد سابق لي ……… لا أدري …….. المهم

أحببت أن أؤكد على الأخ / خالد الصالح بأنه لتصبح هذه الأداة كاملة والكمال لله سبحان فيجب أن تشمل جميع مراحل التاريخ الثلاث إذا كان ذلك ممكناً .

تحياتي للجميع

عبدالله سليمان

الغريب سابقاً .

الأخ / خالد الصالح .. بعد التحية

لا زلت في انتظار التعديل .. ماذا جرى عليه ؟

لقد حاولت إنزال الملف مرة أخرى بافتراض أنه يحتوي على التعديل الأخير ولكن كل محاولاتي باءت بالفشل وقد حسبت أن المشكلة عندي أنا وحدي ولكن قد حدث ذلك لغيري كذلك .

آمل عمل الازم حيال حل هذه المشكلة .

تحياتي

الأخوة الكرام

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

اسمحوا لي أن أخبركم عن بعض الأخطاء بجدول تقويم أم القرى وهي محصورة في بداية السنة للسنوات الهجرية التالية :

1330

1331

1363

1364

1365

1397

1398

1399

والبيانات الصحيحة تجدونها في البرنامج التالي :

http://mypage.ayna.com/abbashmd/Umalqura.zip

كما أن هذا الخطا شمل محاولات الأخوة الذين قاموا بعمل تقاويم مشابهة والتي قد اعتمدوا فيها على تقويمي في الأكسس .

هذا وللجميع خالص تحياتي .

الأخ أبو هادي :

الوصلة لا تعمل ، علما بأني قد حملت ملفا من صفحتكم في أين بعنوان:

UmAlQura.zip

فهل هو المقصود أو غيره .

وجزاك الله كل خير على هذه الجهود ، وجعلها الله في موازين حسناتك.

الأخ حارث .. بعد التحية :

اسمح لي على هذا الخطأ .. الواحد فقد التركيز بالمرة .

الملف هو :

http://mypage.ayna.com/abbashmd/Calendar.zip

والخطوات كالتالي :

1 - اختيار صندوق تقويم أم القرى .

2 - كتابة التاريخ الأول من محرم للسنة المطلوبة .

3 - أخذ الناتج من صندوق التقويم الدولي International

أو صندوق التقويم الجريجوري Gregorian

تحياتي .

الأخ حارث .. بعد التحية

هل تمكنت من تصحيح الأخطاء ؟

آمل ذلك وإذا لم تتمكن من ذلك سأقوم إن شاء الله تعالى الجمعة القادم بتصحيح الجدول ووضع رابط له بالمنتدى .

تحياتي

قمت فقط بتعديل بدايات السنوات التي ذكرتها ، والجدول المعدل في الوصلة التالية :

http://mypage.ayna.com/harith66/CorHij.zip

فهل هذا هو اللازم ؟

أخي أبو هادي :

في دالة Greg2Um ما يلي :

Hijri = Greg2Hijri(DateSerial(yy, mm, dd))

yy = Val(Right(Hijri, 4))

بينما الدالة Greg2Hijri تحتوي على :

HijriFormat = "Short Date"

وهذا سبب لي خطأ في أحد الأجهزة التي كان تنسيق "Short Date" فيها بشكل dd/MM/yy

لذا فقد استبدلت هذه العبارة بالعبارة التالية :

HijriFormat = "dd/mm/yyyy"

وذلك لكي لا يرتبط الكود بتنسيق التاريخ في الجهاز .

ولدي سؤال : أظن أن سبب ربط دالة Greg2Um بدالة Greg2Hijri هو تسريع عمل الدالة، فهل هذا صحيح ؟

وجزاك الله خيرا على ما قدمته وتقدمه في هذا المنتدى الرائع .

الأخ حارث .. بعد التحية :

الدوال الخاصة بالتاريخ الهجري القياسي الخاص بالأكسس مأخوذة من موقع الفريق العربي وأعتقد من منتدى Visual Basic بالتحديد ، فقد أعجبتني كتابتها ورأيت أنه لا مشكلات بالنتائج وخصوصا أني واجهت مشكلات كبيرة عندما حاولت استخدام التقويم الهجري للأكسس مع أني أملك معادلاتي الخاصة لأربعة أنواع من التقاويم الهجرية القياسية .

أما عن وجود دالة الهجري في دالة التحويل إلى أم القرى فهي كما أعتقدت فهي للوصول إلى أقرب تاريخ إلى أم القرى وعادة الفرق لا يتجاوز يوم بالزيادة أو النقصان وبعد ذلك أبدأ بالوصول إلى المعلومة الدقيقة لتقويم أم القرى .

تحياتي

السلام عليكم

تحسين الكود الخاص بتحميل تقويم أم القرى

Sub LoadUmAlQura()

  Dim dbs As DATABASE

  Dim rst As Recordset

  Const hmd = 29

  Dim mm As Byte

  Dim Days As Long

  Dim m(1 To 12) As Byte

  Dim FRec As Long

  Dim LRec As Long

  

  On Error Resume Next

  

  Set dbs = CurrentDb

  Set rst = dbs.OpenRecordset("Um-AlQura", dbOpenDynaset)

  

  If rst.RecordCount = 0 Then

    rst.Close

    Set dbs = Nothing

    Exit Sub

  End If

  

  rst.Sort = "HY"

  Set rst = rst.OpenRecordset

   

  With rst

    .MoveLast:  LRec = !hy

    .MoveFirst: FRec = !hy

    ReDim Preserve UmAll(FRec To LRec) As UmRec

  

    Do While Not .EOF

      UmAll(!hy).yy = !hy

      

      Days = 0

      For mm = 1 To 12

        m(mm) = !["M" & '"& mm &"'] + hmd

        Days = Days + m(mm)

        UmAll(!hy).M2(mm) = Days

      Next mm

      

      UmAll(!hy).GS = !GS

      

      .MoveNext

    Loop

  End With

  

  rst.Close

  Set dbs = Nothing

End Sub

تحياتي

السلام عليكم

تم وبحمد الله حل مشكلة تقويم ام القرى والنتائج 100% وعلى ذلك تم تصميم برنامج وكذلك أداة من نوع ActiveX لا يتعدى حجمها 25 كيلو بايت اخذاً بالإعتبار الحجم عند حزم البرامج.

ومن مميزات البرنامج وكذلك الآداة :

1. سرعة التحويل.

2. قلة الحجم.

3.يمكن استخدام الأداة في أي بيئة تصميم.

برجاء تحميل البرنامج من المرفقات وابداء المرئيات اذا تكرمتم.

تحياتي

saudicalendar.zip

السلام عليكم

الأخ SimEX™ البرنامج يحتاج إلى العناية بالـ validation لليوم والشهر .. وبارك الله فيكم على جهودكم .

في ردود سابقة تطرق الأخ خالد إلى المراحل الثلاث التي مر بها تقويم أم القرى ، هل تملكون شرح أو تفاصيل تلك المراحل ؟ .. آمل تزويدنا بتلك المعلومات إن وجدت ولكم شكري سلفا .

تحياتي .

السلام عليكم

الأخ ابو هادي لم افهم قصدك من ناحيى الـvalidation ...برجاء التوضيح

وعلى فكرة البرنامج يحتوي على المراحل الثلاث لتقويم ام القري ...جربة واحكم بنفسك...اما من ناحية البرمجة لا تعير لها اهتمام ...الأهم هو المحتوى الان.

تحياتي

نعم أخي خالد .. أقصد الناحية البرمجية .. أما كفحص النتائج فالحقيقة لا أملك الوقت لأفحص تقويم من 200 سنة ولكن قمت بأخذ عينات عشوائية وكانت جميع النتائج سليمة .

أعتقد أني قمت بفحص نتائج أداة قديمة من إنتاجكم أو كانت لأخ آخر لا أتذكر إسمه الآن قمت بفحصها بكود عملته خاص لتلك الأداة وأبديت وقتها ملاحظاتي ، إذا أردتم مني فحص النتائج مقارنة مع تقويمي المعمول بالأكسس بشرط عثوري على الكود فلا مانع لدي وإن لم أعثر عليه فأني أعتذر شديد الإعتذار لعدم توفر الوقت في الوقت الراهن ، مع ملاحظة اختلاف النطاق بين البرنامجين .

تحياتي .

يمكنكم الحصول على تقويم أم القرى للسنوات القادمة من الموقع

http://ceri.kacst.edu.sa/index.php?l=a&p=e...=blank_menu.htm

التابع لمدينة الملك عبدالعزيز للعلوم والتقنية

وقد جمعت السنوات من 1431-1450 في ملفات وورد في الرابط التالي

http://www.pcpages.com/harith77/Taqweem.zip

أخي العزيز حارث

أنت نموذج رائع للإنسان المجتهد المثابر النشيط .. بارك الله فيك وفي جهودك .

20 سنة جديدة .. رائع جدا .. الحقيقة لقد أحسست أن تقويم أم القرى اقترب على التقاعد ولكن هذه المعلومات الجديدة ستبعث الروح فيه من جديد .

إذا لم تقم بالبدء في تحويل المعلومات للإستفادة منها في الأكسس فدع الموضوع لي . وإلا فنحن بانتظار كرمك المتواصل .

أخوك أبو هادي

أخي حارث

هذا ملف اكسل للحصول على خلاصة سنة واحدة لأم القرى :

الخطوات :

1- قم بنسخ ملف الوورد دفعة واحدة .

2 - قم بلصق محتويات ملف الوورد في Sheet1 .

3 - قم بتشغيل ماكور GetUmDetails .

4 - خذ الخلاصة من Sheet2 .

آمل أن يكون مفيدا .

أخوك أبو هادي

ملف معدل حيث الأول لم يتم فحص نتائجه جيدا وقد وجدت بعض المشكلات وتم تفاديها بهذه النسخة :

السلام عليكم

تم تحويل السنوات من 1334 إلى 1450 أما السنوات الثلاث الأولى فتنسيقهم مختلف ولم يتم تحويلهم حتى الآن .

لكل من حاول مع المثال وفشل في استخدامه آمل منه ملاحظة هامة للصق وهي أن يقف على الخلية الأولى A1 ثم يقوم باللصق وأن يتجنب التظليل للخلايا الأخرى .

النتائج موجودة في Sheet3 .

تحياتي للجميع

getumdetails.zip

جزاك الله خير ، دوما تأبى إلا أن تكون السابق .

أخذت النتائج من ملف الاكسيل ووضعتها في جدول أم القرى في الأكسس

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

بالنسبة للسنوات بعد 1450 لا يمكن استمدادها من الموقع السابق التابع لمدينة الملك عبدالعزيز وتظهر عبارة :

السنه المطلوبه غير متاحه لآن

تم إضافة الأعوام 1431 إلى 1450 إلى تقويم أم القرى على أحد أمثلة أبي هادي ، وهو الملف المرفق

abuhadiumalqura.zip