كيف اجعل البرنامج يستخدم التاريخ الميلادي ؟

معقولة مافي طريقة في الدت نت مع انها موجوده في فيجوال بيسك 6

هذه class بها كيفية التحويل من هيجري غلى ميلادي والعكس

وهذا الكود لاستدعائه

ضعه اينما تريد في حدث Form_load أو Intial او application Events مع أنني أفضل الأخير

Try

'لجعل البرنامج بالتاريخ الإنجليزي وليس الهجري

Dim Dt As New DateTime

Dt = db.GrgCalendar((Now.Year), (Now.Month), (Now.Day))

' جعل لوحة المفاتيج باللغة العربية - من اليمن الى اليسار

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New CultureInfo("Ar-SA"))

Catch ex As Exception

End Try

ClsCalender.txt

قم بإستخدام الفئه GregorianCalendar الموجوده داخل System.Globalization.

و الله ولى التوفيق

مشكورين يا شبابواعذروني صراحه حطيت الموضوع ونسيت في اي منتدى حطيته ....... على العموم انا الى الان ما عرفت اسويها

ياريت لو تقدر اخوي Muhammad alaa توضح لي اكثر انا اعرف ان GregorianCalendar الموجوده داخل System.Globalization خاصه بالتاريخ بس ما ارعرف كيف استخدامها

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

M.A.A.H كتب:

مشكورين يا شبابواعذروني صراحه حطيت الموضوع ونسيت في اي منتدى حطيته ....... على العموم انا الى الان ما عرفت اسويها

ياريت لو تقدر اخوي Muhammad alaa توضح لي اكثر انا اعرف ان GregorianCalendar الموجوده داخل System.Globalization خاصه بالتاريخ بس ما ارعرف كيف استخدامها

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

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

الفكرة هي مبنية على مفهوم الـ Localization المدعوم بواسطة الـ Dot Net ، على العموم يمكنك كتابة الكود مرة واحدة فقط في الـ Application Events Class في الحدث Startup

لفتح الكلاس ApplicationEvents.vb أضغط بالزر الأيمن على المشروع ثم Properities سيتم فتح نافذة باسم المشروع وتحتوي على Tabs في اول Tab وهي التي تظهر مباشرة أنزل إلي أسفل النافذة حتي تجد زر مكتوب عليه View Application Events قم بالضغط علية سيقوم بفتح الكلاس

قم بنسخ الكود التالي وألصقه تحت السطر Partial Friend Class MyApplication مباشرة

 Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
            Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("ar-eg")
        End Sub

والله الموفق

الف الف شكر استاذ عمار جعفر

فعلا جربتها وضبطت معاي

Ammar Gaffar كتب:

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

الفكرة هي مبنية على مفهوم الـ Localization المدعوم بواسطة الـ Dot Net ، على العموم يمكنك كتابة الكود مرة واحدة فقط في الـ Application Events Class في الحدث Startup

لفتح الكلاس ApplicationEvents.vb أضغط بالزر الأيمن على المشروع ثم Properities سيتم فتح نافذة باسم المشروع وتحتوي على Tabs في اول Tab وهي التي تظهر مباشرة أنزل إلي أسفل النافذة حتي تجد زر مكتوب عليه View Application Events قم بالضغط علية سيقوم بفتح الكلاس

قم بنسخ الكود التالي وألصقه تحت السطر Partial Friend Class MyApplication مباشرة

 

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
            Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("ar-eg")
        End Sub

والله الموفق

شكرا جزيلا اخي عمار طريقة ممتازة وفعالة

هل يمكن ان اطمع بسؤال  

اقتباس

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

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