تاريخ اليوم تحويل التاريخ التقويم الشمسي التقويم الهجري التقويم الميلادي



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

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

التاريخ الميلادي
التاريخ الهجري
يوم الأسبوع
يوم جوليان

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

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

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