مساعده التاريخ الهجري والميلادي

تفضل هذه إجراءات التحويل بين التاريخين الهجري والميلادي

ستحتاج في البداية للاستيرادات التالية

Imports System.Threading
Imports System.Globalization

وهذا هو الكود

		Public Function GregorianToHijri(ByVal Year As Integer, _
			ByVal Month As Integer, ByVal Day As Integer) As DateTime

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

				Thread.CurrentThread.CurrentCulture = Ar
				Ar.DateTimeFormat.Calendar = New GregorianCalendar
				GregorianToHijri = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
				Ar.DateTimeFormat.Calendar = New 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 CultureInfo = New CultureInfo("ar-SY")

				Thread.CurrentThread.CurrentCulture = Ar
				Ar.DateTimeFormat.Calendar = New HijriCalendar
				HijriToGregorian = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
				Ar.DateTimeFormat.Calendar = New GregorianCalendar

			Catch ex As Exception
				ex = Nothing
			End Try

		End Function

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

اكون شاكر لك

بعتذر جدا

1- أنا بشتغل على 2008 و مارح بفتح معك البرنامج بعد ما اشتغل فيه

2 -السبب الأهم هو أنا ما فهمت أي شئ من ملفك المرفق

في الفورم المرفق خانة combobox لتغير التاريخ من هجري الى ميلادي والعكس وخانة masktextbox لادخال التاريخ وخانهtextbox لحساب العمر واظهاره بها

هل في احد من الخبراء يحل لي هذه المشكله

انتظر الردود