Datetimepicker1 التاريخ الهجري والميلادي ،،

المشكلة أخي أنو الـ DateTimePicker إن كنت أذكر بشكل جيد دائما تعرض التاريخ بالميلادي وبقية التحكمات تعرضه بحسب الإعدادات الاقليمية في الجهاز أو يمكنك التحكم عند بدء البرنامج من تغييير الإعدادات الإقليمية الخاصة به

هذا الكلام 2005 و 2008 و النسخ الأقدم لا أدري لم أعد أذكر

ادخل على خصائص My Project ثم من صفحة Application اضغط View Application Events

من ملف الكود الذي يظهر لك أنشئ معالج للحدث Startup من MyApplicationEvents

My.Application.ChangeUICulture("Ar")

حيث يمكنك استبدال Ar باسم أي إعداد إقليمي مثل AR-SY أو EN-US

وهذه الأسماء ممكن الحصول عليها بسهولة من موقع مايكروسوفت أو مكتبة MSDN

الله يجزاك خير ،،

أنا غيرت حقل التاريخ في قاعدة الأكسيس من نوع تاريخ و وقت إلى نص string ،،

والآن أضيف التاريخ يحفظه كما هو ،،

هل هذه الطريقة ناجحة ،،

وبالنسبة للبحث أتوقع أنني لن أستطيع البحث بين تاريخين معينين ،،

بارك الله فيكـ ،،

دمت في حفظ الباري ،،

أشكرك على سعة صدركـ ،،

^^

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

والله يا الغالي حاولت ،،

ما نفعت ،،

الدات تايم بيكر الوقت فيها ميلادي ،،

والدات قريد فيو الوقت هجري ،،

وأتوقع إني أحول الحقل لنص أرتاح ،،

إلا إذا فيه مشاكل مستقبلية ما أعلمها ،،

ما راح أحتاج التاريخ إلا بالبحث في الحقول ،،

تحديد تاريخ معين وبحث السجلات المطابقة فقط ،،

إذا فيه مشاكل مستقبلية هذا شيء ثاني ،،

ودي أسألك سؤال خارجي ،،

بالنسبة لتقارير الكريستال ريبورت أنا أضفتها لبرنامجي ،،

أبغى أشغله في جهاز ثاني لا يوجد به الفيجوال ستديو ،،

ما الذي أحتاجه لكي تشتغل التقارير ،،

وهل هناك نصائح بالنسبة لنشر البرنامج ،،

أنا مدين لكـ أستاذي محمد ،،

جزاك الله خيراً،،

^^

مثل ما قلتلك أنا فشلت في تحويل الـ DateTimePicker ليأخذ التاريخ الهجري

أما بالنسبة لتغيير التقوم لبقية التحكمات جرب نفس طريقتي السابقة ولكن مع استبدال الكود السابق بالكود

			Dim Ar As CultureInfo = New CultureInfo("ar-SY")

			Thread.CurrentThread.CurrentCulture = Ar
			Ar.DateTimeFormat.Calendar = New GregorianCalendar

وفي نفس المكان في ApplicatioStartup

وبالنسبة للكريستال ريبورت ستحتاج إلى مكتبة خاصة وهي في الـ 2008 موجودة على المسار

وفي الـ 2005 موجودة على مسار مشابه

بالنسبة لموضوع توزيع البرنامج هناك ثلاث مواضيع لي تحدثت فيها عن هذا الموضوع

كيف نقوم بتوزيع مشروعنا باستخدام تقنية Click Once

نشر مشروعك باستخدام SetupWizard, VB2005

توزيع برنامج باستخدام Clickonce, VB2005

وجميعها تعمل على كلا نسختي 2005 و 2008 بشكل ممتاز

أما بالنسبة للنسخ ما قبل 2005 لا أدري

أستاذي محمد ،،

كل عام وأنتم بخير ،،

أدامه الله علينا وعلى المسلمين باليمن والبركات ،،

لا أدري كيف أشكركـ ،،

ويعجز لساني عن شكركـ ،،

ولي عودة للإستفادة من مواضيعكـ القيمة ،،

دمت في حفظ الباري ^_^

لا شكر على واجب أخي وأرجو أن تكون قد استطعت حل مشكلتك مع التقويم

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

من أجل التقويم الميلادي

			Dim Ar As CultureInfo = New CultureInfo(Thread.CurrentThread.CurrentCulture.Name)

			Thread.CurrentThread.CurrentCulture = Ar
			Ar.DateTimeFormat.Calendar = New GregorianCalendar

ومن أجل التقويم الهجري نستبدل السطر الأخير فقط بحيث يصبح

Ar.DateTimeFormat.Calendar = New HijriCalendar

نسيت شغلة صغيرة وهي أن هذه الأكواد بحاجة للاستيرادات التالية

Imports System.Threading
Imports System.Globalization

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