السادة الكرام
بعد التحية :
هذه الدالة لتحويل تايخ هجري إلى ميلادي "تقريبي"
إن شاء الله تحوز على رضاكم
Function Hijri2Greg(Hijri As String) As Date
Dim YYYY, MM, dd As Integer
Dim Y30, YD2, MD As Integer, YD1 As Long, Hz As Double
Dim Days As Long
If IsNull(Hijri) Then Exit Function
YYYY = Right(Hijri, 4)
MM = Mid(Hijri, 4, 2)
dd = Left(Hijri, 2)
'---------------------------------------
Hz = 354.367
Y30 = Fix((YYYY - 1) / 30)
YD1 = Fix(Y30) * 10631
YD2 = CLng(((YYYY - 1) - (Y30 * 30)) * Hz)
MD = CLng((MM - 1) * 29.51)
Days = (YD1 + YD2 + MD + dd) - 466581
'---------------------------------------
Hijri2Greg = Days
End Function