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

لدي كود في ملف اكسل يحسب الفرق بين التواريخ الهجرية .. واجهتني مشكلة في احد التواريخ انه يزيد مدة شهر في الاحتساب ..

مرفق ملف اكسل يحتوي على مثال توضيحي للحالة..

وهذا الكود

Function ContDate(MyDate1 As Date, MyDate2 As Date, YMD As String)

D1 = Day(MyDate1): D2 = Day(MyDate2)

M1 = Month(MyDate1): M2 = Month(MyDate2)

Y1 = Year(MyDate1): Y2 = Year(MyDate2)

If D1 > D2 Then Dr = D2 + 30 - D1: M = -1 Else Dr = D2 - D1

If M1 > M2 Then Mr = M2 + M + 12 - M1: Y = -1 Else Mr = M2 - M1

Yr = Y2 - Y1 + Y

If YMD = "D" Or YMD = "d" Then ContDate = Dr

If YMD = "M" Or YMD = "m" Then ContDate = Mr

If YMD = "Y" Or YMD = "y" Then ContDate = Yr

End Function