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

السلام عليكم

معادلة تحويل التاريخ من الميلادي الى الهجري وبالعكس
الميلادي = الهجري + 622 - ( الهجري/33 )
الهجري = الميلادي - 622 + (الميلادي - 622/ 33 )
ملاحظة
مابين الاقواس هو كسر عشري... يعني (الهجري على 33)

معادلة التحويل هي: التاريخ الميلادي = التاريخ الهجري * 0.970227 + 621.5774 ، مع ملاحظة أن الإختبار ليس في تطبيق هذه المعادلة ولكن عن طريق تحويل التاريخ بالأشهر والأيام والسنة الميلادية إلى اليوم والشهر والسنة الهجرية.

Function ConvertDate(ByRef StringIn As String) As String
    Dim SNabil As Integer
    Dim b As Date
    Dim n As String
  
    SNabil = Calendar
    Calendar = 1
    b = CDate(StringIn)
    Calendar = 0
    n = CStr(b)
    ConvertDate = Format(n, "dd/mm/yyyy")
    Calendar = SNabil
End Function

شكرا على المتابعة