تعديل على كود التاريخ الهجري

أقترح عليك استخدام الوظيفة التالية

Function HijriDate(Optional AdjVal As Variant = 0)
'-- preforming Hijri calendar date
    Calendar = vbCalHijri
    HijriDate = Format(DateSerial(Year(Date), _
    Month(Date), Day(Date) + (AdjVal)), "yyyy\هـ/mm/dd")
End Function

'-- لزيادة الأيام
YouField = HijriDate(+1)

'-- لنتنقيص الأيام
YouField = HijriDate(-1)

وهذا المثال

AdjustableHijriDate.accdb

بارك الله فيك .... هذا هو المطلوب