اذهب الي المحتوي
أوفيسنا

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


خليفة

الردود الموصى بها

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

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

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

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

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

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

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

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

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

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

اخوكم خليفه

رابط هذا التعليق
شارك

الاخ خليفة

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

الاخ العزيز CUHP

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

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

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

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

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

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

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

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

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

في امان الله

خليفه

رابط هذا التعليق
شارك

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

Dim CurrCal As Byte
CurrCal = Calendar
الآن اذا كان التقويم الموجود هجري و تريد استخدام الميلادي ضع :
  Calendar = vbCalGreg
و اذا كان ميلادي و تريد استخدام الهجري ضع :
  Calendar = vbCalHijri
و بعد تنفيذ العمليات المطلوبة , و حتى تعيد حالة التقويم الى تنسيقه الأصلي ضع في نهاية الكود
Calendar = CurrCal

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 8 months later...
للتبديل بين الهجري و الميلادي يمكنك استخدام الكود التالي

Dim CurrCal As Byte
CurrCal = Calendar
الآن اذا كان التقويم الموجود هجري و تريد استخدام الميلادي ضع :
  Calendar = vbCalGreg
و اذا كان ميلادي و تريد استخدام الهجري ضع :
  Calendar = vbCalHijri
و بعد تنفيذ العمليات المطلوبة , و حتى تعيد حالة التقويم الى تنسيقه الأصلي ضع في نهاية الكود
Calendar = CurrCal

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

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

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

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

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

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

للرفع

أخي الفاضل

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information