هل ممكن يكون التاريخ بهذه الطريقة

وليه لا يا ابو شاهر .. خذ هاتين الدالتين وبسم الله

ضع هاتين الدالتين في الوحدة النمطية الرئيسية للقاعدة :

Function toHijri(MiladyDatP As Variant) As String
' دالة لتحويل التاريخ الميلادي إلى هجري

Dim GregorianDate As String
Dim HijriDate As String
Dim HijriFormat As String
Dim HijriDat As String
On Error GoTo err
HijriDat = CStr(MiladyDatP)
GregorianDate = HijriDat ' Gregorian string to convert
HijriFormat = "Short Date" ' Format for Hijri date

'// Convert to Hijri date 7/8/1414 and return in Long Date format
HijriDate = ConvertToHijri(GregorianDate, vbCalGreg, vbCalHijri, HijriFormat)
toHijri = HijriDate
err:
Exit Function
End Function

Function ConvertToHijri(ByRef StringIn As String, ByRef OldCalendar As Integer, ByVal NewCalendar As Integer, ByRef NewFormat As String) As String
On Error Resume Next
Dim SavedCal As Integer
Dim d As Date
Dim s As String
'// Save VBA Calendar setting to restore when finished
SavedCal = Calendar
'// Convert date to new calendar and format
Calendar = OldCalendar ' Change to StringIn calendar
d = CDate(StringIn) ' Convert from String to Date
Calendar = NewCalendar ' Change to calendar of new string
s = CStr(d) ' Convert to short format String
ConvertToHijri = Format(s, NewFormat) 'Reformat
'// Restore VBA Calendar setting
Calendar = SavedCal
End Function

ثم حول التاريخ إلى هذه الدالة .. مثلاً ضع مربع نص غير منظم في التقرير وفي حدث عند الطباعة للتفصيل في التقرير ضع الكود التالي على اعتبار أن اسم حقل التاريخ المنظم dt1 واسم الحقل الغير منظم الذي سيتحول فيه إلى التاريخ الهجري المقابل dtH

Me.dtH=toHijri(Me.dt1)

اخي احمد الحربي اشكرك على ردك السريع

وماذا تقصد بالوحدة النمطية (الرئيسية) للقاعدة تحياتي

هي الموجودة ضمن الكائنات (جداول ، نماذج ، استعلامات ، تقارير ، صفحات ، وحدات ماكرو ، وحدات نمطية (وهي هذه)

لأن كل نموذج له وحدة نمطية خاصة به .. والوحدة النمطية التي في الكائنات هي القياسية والرئيسية

اشكررررررك

استاذي احمد الحربي سلام الله عليك

ياليت مثال بسيط واعذرني تحياتي لك

تمام استاذي احمد جزاك الله خير

الحمد لله يا أبو شاهر .. بيني وبينك (عاجبني اسم شاهر)

الله يحفظ لنا ولك وجميع الاخوان وسمي شاهر وابشر بالسمايه

تحياتي لك استاذي احمد

الله يحفظ لنا ولك وجميع الاخوان وسمي شاهر وابشر بالسمايه