Now.tostring تظهر التاريخ بالهجري في مشروع واحد فقط؟؟

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

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

حسب ما أعتقد والله أعلم إن لغة الجهاز والدولة في إعدادات الويندوز لها علاقة ....

حاول ان تغير اللغة ...

وفقك الله ...

السلام عليكم

جزاك الله خيرا أخي الكريم..

الحمد لله عرفت سبب المشكلة والحل، ولكن لم أفهم لماذ؟

السبب هو أنني أستخدم هذا الكود للتحويل من التاريخ الميلادي إلى الهجري وبالعكس ولكن في قسم آخر من البرنامج:

	Public Function GregorianToHijri(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As DateTime
		Try
			Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-ae")
			System.Threading.Thread.CurrentThread.CurrentCulture = Ar
			Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar
			GregorianToHijri = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
			Ar.DateTimeFormat.Calendar = New Globalization.HijriCalendar
		Catch ex As Exception
			ex = Nothing
		End Try
	End Function

	Public Function HijriToGregorian(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As DateTime
		Try
			Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-SY")
			System.Threading.Thread.CurrentThread.CurrentCulture = Ar
			Ar.DateTimeFormat.Calendar = New Globalization.HijriCalendar
			HijriToGregorian = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
			Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar
		Catch ex As Exception
			ex = Nothing
		End Try
	End Function

يعني أنا أستخدم الكود للتحويل من الميلادي إلى الهجري في قسم بعيد من البرنامج وليس له علاقة بsub الذي أضع فيه Now.tostring فتظهر خطأ! بل في مكان آخر فلم أفهم ما علاقته بباقي البرنامج؟!

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

والحل طبعاً هو استخدام الجزء للتحويل إلى الميلادي بعد الانتهاء من التحويل إلى الهجري كالتالي:

		'''''إرجاع تعامل الثرد مع التاريخ الميلادي
		Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-ae")
		System.Threading.Thread.CurrentThread.CurrentCulture = Ar
		Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar
		'========================================

أتوقع أن السبب في السطر الثاني من الكود، والله أعلم..

لو في أحد يستطيع أن يوضح لي سبب هذه المشكلة فجزاكم الله خيراً

والسلام عليكم

ببساطة تخيل ان ما يقابل هذه الجملة

Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-ae")
		System.Threading.Thread.CurrentThread.CurrentCulture = Ar

هو تغير اعدادات الجهاز الموجودة في ال Regional and Language option لأعدادت الخاصة باللغة والتاريخ لدولة الامارات المتحدة

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

Ar.DateTimeFormat.Calendar = New Globalization.HijriCalendar

الحل هو بانشاء culture خاصة بك باستخدامات التحويل حتى لا تقوم بتغير اعدادات الجهاز الحالية ..

استخدم كود كالاتي .. وتأكد من صحته

 Public Function GregorianToHijri2(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As DateTime
		Try
			Dim MyCulture As New Globalization.CultureInfo("ar-ae")
			Dim MyRegion As New Globalization.RegionInfo("ar-ae")
			MyCulture.DateTimeFormat.Calendar = New Globalization.GregorianCalendar

			GregorianToHijri2 = New DateTime(Year, Month, Day, MyCulture.DateTimeFormat.Calendar)
			MyCulture.DateTimeFormat.Calendar = New Globalization.HijriCalendar
			GregorianToHijri2 = New DateTime(Year, Month, Day, MyCulture.DateTimeFormat.Calendar)

		Catch ex As Exception
			ex = Nothing
		End Try
	End Function

السلام عليكم

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

حاولت تغيير الكودبنفس الطريقة من قبل ووصلت إلى نتيجة خطأ؛ وأيضاً استخدمت الكود الذي كتبتيه أعلاه وكانت النتيجة خطأ؛ فتاريخ اليوم مثلاً يظهر فيه بعد التحويل بتاريخ: 15/09/2570

رغم أنه فعلياً لا يؤثر على بقية البرنامج ولا يسبب تحويل التاريخ للهجري..

لكن تبقى النتيجة حتى الآن غير صحيحة..

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

والسلام عليكم