مديول تقويم أم القرى UmAlQura 1.0.2

[أبوالحارث]

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

الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن ولاه،

أما بعد فأقدم للأخوة في هذا المنتدى ميدول دوال تقويم أم القرى يقوم على التحويل بين تقويم أم القرى وتقويم الأوفيس ويعمل على جميع برامج أوفيس أو vb6

 وهو ليس مخصصًا للأكسس ولكن لجميع البرامج التي تقبل VBA.

وهذا رابط التحميل:

modUmAlQura_1.0.3.zip

المصدر

 

تم اضافة الملف السابق اعداده بواسطة أبو هادي لنفس الموضوع بواسطة محمد طاهر

UmAlQura_20050122-AbuHadi.rar

المصدر

[أبوالحارث]

وهنا شرح مختصر لها كنت قد نشرته في http://www.salafitech.net/bb/viewtopic.php?f=42&t=92

الأصل في عمل الدالة date2UQ هو داخلي من أجل إرجاع تاريخ أم القرى من  متغير من نوع date  مثال:

date2UQ date(),hy,hm,hd,hz
debug.print hd & "/" & hm & "/" & hy & "هـ"

فهذا يرجع تاريخ اليوم بالهجري
وhz هو رقم اليوم في السنة
ولاحظ أن كل المتغيرات إجبارية وإن لم تستعملها
لتحويل تاريخ يوم معين إلى هجري

date2UQ cdate("2015-1-1"),hy,hm,hd,hz
debug.print hd & "/" & hm & "/" & hy & "هـ"

أو

date2UQ dateserial(2015,1,1),hy,hm,hd,hz
debug.print hd & "/" & hm & "/" & hy & "هـ"

لتخزين تاريخ (تقويم أم القرى) معين في متغير من نوع date
 

mydate = UQdateserial(1436,9,1)

لعرض أي متغير تاريخ بتقويم أم القرى
 

mystr=UQFormat(mydate,"Long Date")

وإذا كنت تريد تاريخ اليوم

 

mystr=UQFormat(date,"Long Date")

 

[أبوالحارث]

وهنا مقارنة بين هذه الدالة الدوال التي نشرت سابقا في الموقع

 

[أبوالحارث]

7 ساعات مضت, Barna said:

السلام عليكم @أبو الحارث ...... ممكن مثال لتطبيق للمديول على الاكسس لو تكرمت

استخدم دوال تقويم أم القرى كما تستخدم الدوال الأصلية في Access مثلا إذا أردت أن تعرف العمليات التي جرت في رمضان استعمل عبارة SQL

SELECT * FROM theTable WHERE UQmonth(theDate) = 9;

أو مثلا أردت تجمع الفواتير حسب الشهر بتقويم أم القرى:

SELECT month(theDate) as m,count(*) FROM theTable Group by month(theDate);

بالنسبة للتقارير استخدم الدالة UQFormat لعرض التاريخ:

=UQFormat(thedate; "d mmmm yyyy") & "هـ الموافق " & format(thedate;"d-m-yyyy") & "م"

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

 

بالنسبة للنماذج فالأمر يحتاج إلى شيء من التفصيل سأوافيكم به حسب التفرغ

[Accessna]

ممكن نعرف مصدرك في بيانات أم القرى وخصوصا الفترة بين 1451 و 1500هـ ؟

[Accessna]

رد قديم ذو صلة لأبي هادي على اختصار/قصر الأكواد

- هل جودة الكود يقاس بطوله أو بقصره ؟

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

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

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

كما أني أود ألفت النظر إلى كل من يريد أن يدعم التقويم بالأمور التالية :

1 - أن لا يؤثر أي خطأ في سنة ما على نتائح باقي السنوات فليكن الخطأ محصورا في سنة واحدة فقط .

2 - أن لا يؤثر حذف أي سنة أو مجموعة سنوات من تسلسل السنوات على نتائج السنوات الأخرى .

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

4 - أن لا تؤثر الإضافات على سرعة المعالجة واستخراج النتائج .

مشاركة لأبي هادي

 

تم تعديل نوفمبر 11, 2018 بواسطه Accessna
إضافة

[Accessna]

مقارنة بين دوال Format :

.

DateTime      29/08/1318 1: 1 pm
Pic           c ww ddddd hh:nn:ss am/pm aa/pampmam/pm ttttt qq T ?E? ?CI?
  Format      29/08/1318 13:01:00 35 29/08/1318 شعبان:01:00 pm apPMpm 13:01:00 33 T ?E? ?29/08/1318 13:01:00I?
UmFormat      29/08/1318 01:01:00 PM 33 29/08/1318 01:01:00 pm apPMpm 13:01:00 33 T ?E? ?29/08/1318 01:01:00 PMI?
UQFormat      c ww 30/08/1318 شعبان:01:00 pm apPMpm 13:01:00 33 T ?E? ?29/08/1318 13:01:00I?

 

[محمد طاهر عرفه]

السلام عليكم

 

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

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

الأخ Aaccessna

أولاً ، ارجو منك تغغير اسم الظهور لما نستطيع مناداتك به بسهولة و أريحية اكثر

ثانيا: مرحبا بعودنك للمشاركة ، و نشكر الاخ ابو الحارث على موضوعه الذي اعادك للمشاركة بعد قرابة سبعة سنوات من الغياب ،

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

 

الي الأخوة جميعاً : 

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

مرحبا بطرح اي وجهة نظر تفيد النقاش و لكن مع مراعاة ما اعتدنا عليه من طريفة فى الحوار ، حتى و ان كنت متاكدا من وجهة نظرك ، فارجو طرحها برفق و بطريقة ملائمة. لكي نحافظ على طريفة الحوار فى المشاركات التالية

اننا فى مجال منتديات التبادل المعرفي كلها ، يفترض اننا لسنا فى منافسة او سباق ، و المعلومات متاحة للجميع ، للاستفادة منها و البناء عليها.

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

 

 

 

[أبوالحارث]

19 ساعات مضت, Accessna said:

ممكن نعرف مصدرك في بيانات أم القرى وخصوصا الفترة بين 1451 و 1500هـ ؟

.net framework

[أبوالحارث]

9 ساعات مضت, Accessna said:

مقارنة بين دوال Format :

.

DateTime      29/08/1318 1: 1 pm
Pic           c ww ddddd hh:nn:ss am/pm aa/pampmam/pm ttttt qq T ?E? ?CI?
  Format      29/08/1318 13:01:00 35 29/08/1318 شعبان:01:00 pm apPMpm 13:01:00 33 T ?E? ?29/08/1318 13:01:00I?
UmFormat      29/08/1318 01:01:00 PM 33 29/08/1318 01:01:00 pm apPMpm 13:01:00 33 T ?E? ?29/08/1318 01:01:00 PMI?
UQFormat      c ww 30/08/1318 شعبان:01:00 pm apPMpm 13:01:00 33 T ?E? ?29/08/1318 13:01:00I?

 

بالنسبة للمديول فإنه لا يتعامل مع رقم الأسبوع، وقد نبهت عليه سابقا في المقارنة، كما أنه الإصدار 1.0.2 يحتوي على علة في التواريخ التي تحتوي ساعات تم إصلاحها في الإصدار 1.0.3

ونشكرك على هذا التنبيه.

[Accessna]

5 ساعات مضت, أبوالحارث said:

net framework

ماذا نفهم من هالمصدر؟ .. بيانات أم القرى في المديولين لها ثلاث مصادر وأنا حاب أسمعها منك 🙂

[Accessna]

4 ساعات مضت, أبوالحارث said:

بالنسبة للمديول فإنه لا يتعامل مع رقم الأسبوع، وقد نبهت عليه سابقا في المقارنة، كما أنه الإصدار 1.0.2 يحتوي على علة في التواريخ التي تحتوي ساعات تم إصلاحها في الإصدار 1.0.3

ونشكرك على هذا التنبيه.

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

علما أن المديول من قسمين .. المديول الأصل الذي يحتوي على البيانات والتحويل بين أم القرى والميلادي ومديول دوال التقويم وهو تقويم داعم للأول.

[أبوالحارث]

19 ساعات مضت, Accessna said:

ماذا نفهم من هالمصدر؟ .. بيانات أم القرى في المديولين لها ثلاث مصادر وأنا حاب أسمعها منك 🙂

https://docs.microsoft.com/en-us/dotnet/api/system.globalization.umalquracalendar?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev15.query%3FappId%3DDev15IDEF1%26l%3DEN-US%26k%3Dk(System.Globalization.UmAlQuraCalendar);k(TargetFrameworkMoniker-.NETFramework,Version%3Dv4.6.1);k(DevLang-csharp)%26rd%3Dtrue&view=netframework-4.7.2

[أبوالحارث]

21 ساعات مضت, Accessna said:

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

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

21 ساعات مضت, Accessna said:

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

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

فدعنا نرجع إلى ادعائك أني أخذت مديول أبي هادي ونسبته لنفسي، أريد أدلتك على هذه الدعوى.

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

تم تعديل نوفمبر 13, 2018 بواسطه أبوالحارث
تصويب إملائي

[Accessna]

2 ساعات مضت, أبوالحارث said:

https://docs.microsoft.com/en-us/dotnet/api/system.globalization.umalquracalendar?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev15.query%3FappId%3DDev15IDEF1%26l%3DEN-US%26k%3Dk(System.Globalization.UmAlQuraCalendar);k(TargetFrameworkMoniker-.NETFramework,Version%3Dv4.6.1);k(DevLang-csharp)%26rd%3Dtrue&view=netframework-4.7.2

ممكن تختصر علينا وتوجهنا مباشرة للكلاس (الكود)؟
مع أني أعتقد أن مايكروسوفت إذا أخذت البيانات من القائمين على التقويم فلن يطبقوا المراحل الثلاث للتقويم كما فعلوا في موقع تقويم أم القرى حيث لا يتعامل إلا مع المرحلة الثالثة والأخيرة وحتى عام 1450هـ فقط.
وإذا أخذوها من الشطار اللي لا يعيرون أي اهتمام للحقوق الفكرية فسنجد المراحل الثلاث بالإضافة إلى الخمسين سنة الأخيرة من نتائج تقويم أبو هادي الفلكي للفترة بين 1451 و 1500هـ.

[Accessna]

2 ساعات مضت, أبوالحارث said:

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

فدعنا نرجع إلى ادعائك أني أخذت مديول أبي هادي ونسبته لنفسي، أريد أدلتك على هذه الدعوى.

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

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

[Accessna]

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

- من ما هو معلن أن أصل التقويم هو عمل خالص من أبي هادي لا احد له أي مشاركة فيه البتة وكان قد كتبه حتى قبل ظهور الأكسس وبعدة لغات ولكنه لم يظهره على أحد إلا عندما قرر في موقع الفريق العربي للبرمجة ، عدا أن أحد المشاركين اهتدى إلى موقع أم القرى واستطاع أن يأتي منه ببيانات 20 سنة كانت قد اختلفت عن ما كان أبو هادي يستخدمها وهو للمرحلتين الثانية والثالثة للسنوات بين 1431 إلى 1450هـ.

- أما من ما هو غير معلن أن مكتب مايكروسوفت تواصل مع أبي هادي بشأن التقويم ولكنهم اختفوا بسرعة غريبة وما هي إلا فترة بسيط حتى تم اعتماد التقويم في إصدارات الويندوز.

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

تم تعديل نوفمبر 13, 2018 بواسطه Accessna

[Accessna]

اقتباس

Remarks
The UmAlQuraCalendar class is nearly identical to the HijriCalendar class, except the Um Al Qura calendar uses a table-based algorithm licensed from the Saudi government to calculate dates, can express dates to the year 1500 A.H., and does not support the HijriAdjustment property. 

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

تم تعديل نوفمبر 13, 2018 بواسطه Accessna

[رمهان]

حيا الله الجميع

اعتقد افضل شي في الموضوع تشريف وعودة الاساتذه هنا 

نتمنى نشوف مواضيع جديدة مثمرة

موفقين ان شاء الله

[at_aziz]

بارك الله فيكم وجزاكم الله خير جميعا 

ونفع بكم 

 

الحقيقه مودل مهم جدا  يحتاجه كل مبرمج عربي

 

هل الامكان وضعه في  ملف ااكسس

حتى يسهل استخدامه

[أبوالحارث]

2 ساعات مضت, at_aziz said:

بارك الله فيكم وجزاكم الله خير جميعا 

ونفع بكم 

 

الحقيقه مودل مهم جدا  يحتاجه كل مبرمج عربي

 

هل الامكان وضعه في  ملف ااكسس

حتى يسهل استخدامه

افتح محرر فيجوال بيسك في الأكسس Alt+F11

ثم اضغط باليمين على شجرة مكونات ملف أكسس كما في الصورة

ثم Import File

ثم حدد مسار الملف

 

وتقد تعمل نفس الشيء في VB6 أو excell أو برامج الأوفيس الأخرى أو حتى corel Draw و   AutoCad التي تستعمل VBA

18 ساعات مضت, Accessna said:

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

أولاً: هل نقول أن دعواك انحصرت حاليا في بيانات أم القرى؟!

ثانيا: أنا مبرمج، وهل تظن أني سأعمل هذا يدويًّا، بريمج صغير ويحل الموضوع في ثوانٍ

[at_aziz]

بارك الله فيك وجزاك الله خير ابا الحارث 

 

بقي طلب صغير اذا تكرمت 

كيف يتم استدعاء التاريخ في حقل بالنموذج

شكرا لك اخي

[Accessna]

5 ساعات مضت, أبوالحارث said:

ولاً: هل نقول أن دعواك انحصرت حاليا في بيانات أم القرى؟!

ثانيا: أنا مبرمج، وهل تظن أني سأعمل هذا يدويًّا، بريمج صغير ويحل الموضوع في ثوانٍ

لا طبعا ، أنا وصفتك سابقا بالشاطر ولا زلت أقولها فأنت عندك قدرة جبارة في توظيف كل شيء لصالح موقفك .. وهذا الرد واحد منهم ، فأنا بردودي أساهم في تقديم حلول ومخارج لك.
سأتفرغ لك وسأثبت للجميع صحة "دعواي" ، كل مبرمج فاهم يعرف استخدامك لمعظم الأفكار والأكواد و "تصــــــــرفك" في المديولين الأصل البيانات والتحويل والدوال المساندة.

[أبوالحارث]

14 ساعات مضت, Accessna said:

لا طبعا ، أنا وصفتك سابقا بالشاطر ولا زلت أقولها فأنت عندك قدرة جبارة في توظيف كل شيء لصالح موقفك .. وهذا الرد واحد منهم ، فأنا بردودي أساهم في تقديم حلول ومخارج لك.
سأتفرغ لك وسأثبت للجميع صحة "دعواي" ، كل مبرمج فاهم يعرف استخدامك لمعظم الأفكار والأكواد و "تصــــــــرفك" في المديولين الأصل البيانات والتحويل والدوال المساندة.

أنا أدعو الاستاذ @محمد طاهر لعمل لجنة تحكيم من مشرفي الموقع للفضل في الموضوع.

18 ساعات مضت, at_aziz said:

بارك الله فيك وجزاك الله خير ابا الحارث 

 

بقي طلب صغير اذا تكرمت 

كيف يتم استدعاء التاريخ في حقل بالنموذج

شكرا لك اخي

الدالة الحالية لا يوجد بها دعم مباشر للنماذج، ولكن أنا حاليًّا أعمل على دالة تقرب الموضوع.

[محمد طاهر عرفه]

صراحة لم اتابع موضوع تقويم ام القري السابق بالتفصيل لاني لا استخدم التقويم

لذا اود التأكد هل هذا هو الملف النهائي لاخينا ابو هادي ؟