الميلادي = الهجري + 622 - ( الهجري/33 )
الهجري = الميلادي - 622 + (الميلادي - 622/ 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
التاريخ الميلادي = (التاريخ الهجري × 0.97) + 622
مثال: لمعرفة السنة الميلادية للعام 1408هـ
(1408 × 0.97) + 622 = 1987.76
وبما أن الرقم بعد الصفر أكبر من خمسة، فسنقوم بإضافة واحد للسنة لتصبح 1988.
ملاحظة : السنة الهجرية أقل من السنة الميلادية بأحد عشر يوماً.