تحويل التاريخ

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

الميلادي = الهجري + 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.

ملاحظة : السنة الهجرية أقل من السنة الميلادية بأحد عشر يوماً.