كود تغيير نوع التقويم في اكسيس

[خليفة]

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

اخواني الاعزاء اعضاء المنتدى

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

كل عام وانتم بخير وتقبل الله منا ومنكم صالح الاعمال وصيامنا وقيامنا وعيدكم مبارك قبل الزحمة

اخواني يوجد لدي استفسار

كما هو معروف الوندوز والاوفيس وخصوصا الاكسيس لهما تقويمين

التقويم الميلادي يكون من النظام واذا اردت تغيره الي الهجري يكون ذلك بالذهاب الي ادوات ثم خيارات ثم نفتح الاعدادات الدولية ونضع علامة صح امام التقويم الهجري هذه تعتبر الطريقة التقليدية

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

جزاكم الله الف خير على لاطلاع على موضوعي

ولا تنسونا من خالص دعائكم

اخوكم خليفه

[خليفة]

اسف نسيت ارفق ملف توضيحي

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

خليفه

[خليفة]

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

ولم اتمكن من رفع الملف

[CUHP]

الاخ خليفة

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

اذا انا فهمت سؤالك يا اخي خليفة

اذا رغبت ان يكون التقويم هجري - ما عليك سوى أن

- اذهب الى ادوات - خيارات - اعدادات اقليمية

ومن الاسفل فعل أو أشر على -- استخدام التقويم الهجري

عسى ان يكون هو المطلوب -- تحياتي

[خليفة]

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

الاخ العزيز CUHP

الاخوة الاعزاء

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

اخي CUHP اشرك على ردك الجميل وجزاك الله خيرا

هذا ممكن بالحالات الاعتيادية ولكن المطلوب هو :

كيف يمكن اقدر اغير هذه القيمة برمجيا

وتوضيحا في نموذج

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

لوجود مربعات نص معظمها تحتوي على تاريخ ويكون نوعها هجري او ميلادي حسب مربع النص

الله يجزاكم خيرا جميعا

في امان الله

خليفه

[rudwan]

للتبديل بين الهجري و الميلادي يمكنك استخدام الكود التالي

Dim CurrCal As Byte
CurrCal = Calendar

الآن اذا كان التقويم الموجود هجري و تريد استخدام الميلادي ضع :

  Calendar = vbCalGreg

و اذا كان ميلادي و تريد استخدام الهجري ضع :

  Calendar = vbCalHijri

و بعد تنفيذ العمليات المطلوبة , و حتى تعيد حالة التقويم الى تنسيقه الأصلي ضع في نهاية الكود

Calendar = CurrCal

علما بأنك لاتستطيع استخدام حقل من نوع تاريخ الا لتنسيق واحد فقط اما هجري أو ميلادي , و اذا أردت استخدام تنسيق مزدوج

تستطيع استخدام الطريقة التالية :

أنشأ حقلين واحد من نوع تاريخ ( تنسيق هجري مثلا ) و تخزن فيه قيم التاريخ الهجري فقط

و حقل نصي تخزن فيه قيم التاريخ الميلادي اذا لم يكن متوفرا الهجري

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

و بذلك يكون لديك أخيرا حقل هجري مكتمل السجلات ( أو ميلادي اذا كانت الحالة معاكسة )

[نرجس الورد]

للتبديل بين الهجري و الميلادي يمكنك استخدام الكود التالي

Dim CurrCal As Byte
CurrCal = Calendar

الآن اذا كان التقويم الموجود هجري و تريد استخدام الميلادي ضع :

  Calendar = vbCalGreg

و اذا كان ميلادي و تريد استخدام الهجري ضع :

  Calendar = vbCalHijri

و بعد تنفيذ العمليات المطلوبة , و حتى تعيد حالة التقويم الى تنسيقه الأصلي ضع في نهاية الكود

Calendar = CurrCal

علما بأنك لاتستطيع استخدام حقل من نوع تاريخ الا لتنسيق واحد فقط اما هجري أو ميلادي , و اذا أردت استخدام تنسيق مزدوج

تستطيع استخدام الطريقة التالية :

أنشأ حقلين واحد من نوع تاريخ ( تنسيق هجري مثلا ) و تخزن فيه قيم التاريخ الهجري فقط

و حقل نصي تخزن فيه قيم التاريخ الميلادي اذا لم يكن متوفرا الهجري

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

و بذلك يكون لديك أخيرا حقل هجري مكتمل السجلات ( أو ميلادي اذا كانت الحالة معاكسة )

للرفع

أخي الفاضل

أين يتم وضع هذه الأكواد ؟!

فلدي استعلام يحتوي على حقل هجري أريد من الاستعلام تحويله إلى ميلادي

[نرجس الورد]

اطلعت على هذا الموضوع القيم

http://www.officena.net/ib/index.php?showtopic=367&st=15

وطبقت الوحدة النمطية للتحويل

وبعد التنفيذ تم تحويل التاريخ الميلادي فقط

أما التاريخ الهجري فلا يتم تحويله بطريقة سليمة !