معادلات datedif لاتعمل مع تاريخ قبل 1900

[طارق النخيلى]

معادلات datedif

لاتعمل مع تاريخ قبل 1900 هل من حلول  وسأضع مثال

اشخاص.xlsx

[Ali Mohamed Ali]

تفضل لا يمكنك العمل بهذه الدالة قبل 1900

ولكن هناك دالة معرفة وهى XDATEYEARDIF ..... وهذا هو كودها

Function XDATEYEARDIF(xdate1, xdate2) As Long
 Dim YearDiff As Long
 Dim i As Long, D1 As String, D2 As String
 D1 = xdate1
 For i = 1 To 7
 D1 = Replace(D1, Format(i, "dddd"), "")
 D1 = Replace(D1, Format(i, "ddd"), "")
 Next i
 D2 = xdate2
 For i = 1 To 7
 D2 = Replace(D2, Format(i, "dddd"), "")
 D2 = Replace(D2, Format(i, "ddd"), "")
 Next i
 YearDiff = Year(D2) - Year(D1)
 If DateSerial(Year(D1), Month(D2), Day(D2)) < CDate(D1) Then YearDiff = YearDiff - 1
 XDATEYEARDIF = YearDiff
End Function

اشخاص - 1.xlsm

[أحمد يوسف]

  طارق النخيلى

أين انت من  هذه الإجابة الممتازة؟!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!💙