مشكلة في تحويل التاريخ

أخي الكريم

المسئلة هذي شيبة راسي وكرمالعيونك خذ الفكرة

Public Function transdate(ByVal sDate As String, ByVal iType As Integer) As Date
Dim TempCurrentCalender As CultureInfo = My.Application.Culture
		Select Case iType
			Case 1 'From Melady To Hijri
				Dim x As Date
				x = CDate(sDate)
				Dim calHijri As New System.Globalization.HijriCalendar

				Return DateSerial(calHijri.GetYear(x), calHijri.GetMonth(x), calHijri.GetDayOfMonth(x))


			Case 2 'From Hijri To Milady
				Dim calHijri As New System.Globalization.HijriCalendar

				Dim x As Date
				x = CDate(sDate)

				Return calHijri.ToDateTime(x.Year, x.Month, x.Day, 0, 0, 0, 0)
		End Select
My.Application.ChangeCulture(TempCurrentCalender.Name)
	End Function

حبيبي هذي هي الفكرة

انه قبل ان تعمل اي شي تحفظ التاريخ الحالي للنظام ومن ثم بعد الانتهاء ترجعه الى حالته الطبيعية ولكن في حالة مثل حالتك يجب ان يكون النظام على التقويم الهجري عند بداية النظام

انت مشكلتك هنا ان بعد ان تحول من هجري الى ميلادي يتغير نوع التقويم للبرنامج تبعك اما لهجري او ميلادي بحسب جملة الselect تبعك.

رفع الله قدرك ,, ووفقك في عملك .. ويسر لك كل خير بإذن الله ...

الله يساعكم :lol: تاريخ :o ولا وبالعربي :D

بتوفيق (h)