امكانية تعديل التاريخ الهجري

انا محتاجها ضروري

يا اخوان انا محتاج الي هدا ضروري ارجوا المساعدة

الأخ الفاضل ...

DateConvert.zip

بأستخدام (Microsoft Access 2003)

توجد أداة جاهزة HijriCalendar.ocx من تصميم الأخ الفاضل محمد بدوي وهى خاصة بعرض التقويم الهجرى، كذلك يمكنك استخدام الدوال التالية فى عمليات التحويل من هجرى لميلادى والعكس:

' للتحويل من ميلادى لهجرى
Private Function Greg2Hijri(gDate As String) As Date
	Dim orgCal As Integer
	Dim nDate As Date
	Dim tStr As String

	orgCal = Calendar
	Calendar = vbCalGreg
	nDate = gDate
	Calendar = vbCalHijri
	tStr = nDate
	Calendar = orgCal
	Greg2Hijri = CDate(tStr)
End Function

' للتحويل من هجرى لميلادى
Private Function Hijri2Greg(hDate As String) As Date
	Dim orgCal As Integer
	Dim nDate As Date
	Dim tStr As String

	orgCal = Calendar
	Calendar = vbCalHijri
	nDate = hDate
	Calendar = vbCalGreg
	tStr = nDate
	Calendar = orgCal
	Hijri2Greg = CDate(tStr)
End Function

|

شكراً

اخواني بارك الله فيكم وارجو المزيد من الردود