البحث في الموقع

أستخدم هذه المعادلة وأسحبها لأسفل ستحقق لك المطلوب =IF($C3<>"";DATEDIF(C3;TODAY();"y");"")

أخى ( معاذ ) أى صف وأى عملية طرح غير دقيقة المتعلقة بالتواريخ ، أم الساعات إذا كانت متعلقة بالتواريخ ، ممكن أصدقك لأن المعروف إن دالة ( days360 ) تتعامل مع الشهور وفقا للأنطمة الأمريكية والأنجليزية على إعتبار إن الشهور كلها ( 30 يوم ) فإذا كنت تتطلب دقة الفارق بين تاريخ البداية والنهاية ممكن إستخدام هذه الدالة بهذه الكيفية ، ووضعها فى الخلية (E4 ) وسحبها لأسفل =DATEDIF(A4;C4;"d") أما غير ذلك ياريت مزيدا من التوضيح

أخي الكريم // أحمد فؤاد بارك الله فيك وجزاك خيرا بالنسبة للتاريخ الهجري جاري المعالجة حتي نصل لادق النتائج وان كانت هناك اية مقترحات تفضل بعرضها حتي ناخذها بالحسبان وبالنسبة لمعادلات الحساب الخاصة باليوم والشهر والسنة حسب التاريخ الهجري مارايك بالمعادلات التالية =DATEDIF(B8*365/354;F8*365/354;"ym") =DATEDIF(B8*365/354;F8*365/354;"md") =DATEDIF(B8*365/354;F8*365/354;"y")

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال الدالة DATEDIF أو حتى الفرق بين التاريخين: تاريخ الخلية E9 و التاريخ المتحصل عليه بالصيغة (DATE(YEAR(E9);MONTH(E9)+1;6.... أخوك بن علية المرفق : 100.rar

أخى العزيز (على ) إذا كنت تعمل على office 2007 هناك دالة تعادل datedif وهى: =yearfrac(a1;b1;0) 1- حيث ( 1 ) start date 2- حيث (2 ) end date 3- حيث ( 0 ) النظام الأمريكى حيث يعتبر السنة 360 يوم ،ورقمى ( 1، 2 ،4 ) أيضا أما رقم ( 3) تعتبر السنة ( 365 ) , ويسمى الشرط الثالث هذا ( basis) أما دالة datedif فهى من الدوال الممتازة لحساب العمر وهى موجودة فى إكسيل 2007 ولكن لم تظهرها فى هذا الأصدار ولكن يتم كتابتها

السلام عليكم استبدل كود حدث ورقة الطباعه بالتالي بعد التعديل Private Sub Worksheet_Change(ByVal Target As Range) 'بواسطة ابو نصار أ. عبــاد On Error Resume Next Set MYRNG = Sheets("البيانات").[A1:AG1000] If Not Intersect(Target, [B8]) Is Nothing Then With Application For I = 1 To 35 c = Choose(I, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19) Cr = Choose(I, 2, 20, 27, 6, 4, 12, 7, 23, 24, 25, 26, 18, 33, 19, 22) If c = Null Or Cr = Null Then GoTo 0 Cells(Target.Row + c, 2) = IIf(IsError(.VLookup(Target, MYRNG, Cr, 0)), "", .VLookup(Target, MYRNG, Cr, 0)) 0 Next .EnableEvents = False '************* Ali_Ddif [B25], [B28] '************* .EnableEvents = True End With Set MYRNG = Nothing End If End Sub Private Sub Ali_Ddif(ByVal Target As Range, R As Range) Dim Dif_A%, I_a%, m_a%, N_a%, I% '******************************************************* On Error Resume Next If IsDate(Target.Value) Then Dif_A = Target - Date If Dif_A < 0 Then '******************************************************* I_a = Dif_Ali(Format(Target, "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "md") m_a = Dif_Ali(Format(Target, "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "ym") N_a = Dif_Ali(Format(Target, "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "y") '******************************************************* With R .Font.Color = IIf(N_a >= 0 And m_a >= 0 And I_a >= 0, RGB(255, 0, 0), RGB(0, 176, 80)) .Value = " الإقامة أنتهــت منـذ " & N_a & " سنة , " & m_a & " شهور و " & I_a & " يوم ." End With Else '******************************************************* I_a = Dif_Ali(Format(Date, "mm/dd/yyyy"), Format(Target, "mm/dd/yyyy"), "md") m_a = Dif_Ali(Format(Date, "mm/dd/yyyy"), Format(Target, "mm/dd/yyyy"), "ym") N_a = Dif_Ali(Format(Date, "mm/dd/yyyy"), Format(Target, "mm/dd/yyyy"), "y") '******************************************************* With R .Font.Color = IIf(N_a = 0 And m_a = 0 And I_a <= 0, RGB(255, 0, 0), RGB(0, 176, 80)) .Value = " الأقامة تنتهي بعد " & N_a & " سنة , " & m_a & " شهور و , " & I_a & " يوم . " End With End If End If End Sub Private Function Dif_Ali(ByVal Fr_D As String, ByVal Sc_D As String, ByVal St_D As String) As Long Dif_Ali = Evaluate("DATEDIF(DATEVALUE(""" & Fr_D & """),DATEVALUE(""" & Sc_D & """),""" & St_D & """)") End Function أرجو التجربه

السلام عليكم جرب هذا الكود فرضاً عمود تاريخ الإنتهاء هو "A" يبدء من "A2" عمود النتيجة "C" Public Sub Ali_Ddif() Dim m_r As Range, my_r As Range Dim Dif_A%, I_a%, m_a%, N_a%, I% With ActiveSheet '******************************************************* Set my_r = .Range("A2") ' عمود تاريخ الإنتهاء '******************************************************* Set m_r = .Range("C2") ' عمود النتيجة '******************************************************* On Error Resume Next For I = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1 If IsDate(my_r.Offset(I, 0)) Then Dif_A = my_r.Offset(I, 0) - Date If Dif_A < 0 Then '******************************************************* I_a = Dif_Ali(Format(my_r.Offset(I, 0), "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "md") m_a = Dif_Ali(Format(my_r.Offset(I, 0), "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "ym") N_a = Dif_Ali(Format(my_r.Offset(I, 0), "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "y") '******************************************************* With m_r.Offset(I, 0) .Font.Color = IIf(N_a >= 0 And m_a >= 0 And I_a >= 0, RGB(255, 0, 0), RGB(0, 176, 80)) .Value = " الإقامة أنتهــت منـذ " & N_a & " سنة , " & m_a & " شهور و " & I_a & " يوم ." End With Else '******************************************************* I_a = Dif_Ali(Format(Date, "mm/dd/yyyy"), Format(my_r.Offset(I, 0), "mm/dd/yyyy"), "md") m_a = Dif_Ali(Format(Date, "mm/dd/yyyy"), Format(my_r.Offset(I, 0), "mm/dd/yyyy"), "ym") N_a = Dif_Ali(Format(Date, "mm/dd/yyyy"), Format(my_r.Offset(I, 0), "mm/dd/yyyy"), "y") '******************************************************* With m_r.Offset(I, 0) .Font.Color = IIf(N_a = 0 And m_a = 0 And I_a <= 0, RGB(255, 0, 0), RGB(0, 176, 80)) .Value = " الأقامة تنتهي بعد " & N_a & " سنة , " & m_a & " شهور و , " & I_a & " يوم . " End With End If End If Next I End With End Sub Private Function Dif_Ali(ByVal Fr_D As String, ByVal Sc_D As String, ByVal St_D As String) As Long Dif_Ali = Evaluate("DATEDIF(DATEVALUE(""" & Fr_D & """),DATEVALUE(""" & Sc_D & """),""" & St_D & """)") End Function أرجو التجربه وبلغنى بالنتائج أفضل أن الطلب يكون في موضوع منفصل لسهولة البحث عنه وكي يستفيدو منه الأخوه الأعضاء تحياتي Datdif_A.rar

السلام عليكم ورحمة الله وبركاته الأخ الكريم أ. عباد أبو نصار أستاذن منك ولي طلب أخر وشكرك مسبقا عندي معادلة في الخلية (B28) لايجاد صلاحية الاقامة من خلية التاريخ (B25) بالشكل التالي =IFERROR(IFERROR(" الأقامة تنتهي بعد "&DATEDIF(TODAY();$B$25;"y")&" سنة, "&DATEDIF(TODAY();$B$25;"ym")&" شهور و "&DATEDIF(TODAY();$B$25;"md")&" يوم ";" الإقامة أنتهــت منـذ "&DATEDIF($B$25;TODAY();"y")&" سنة, "&DATEDIF($B$25;TODAY();"ym")&" شهور و "&DATEDIF($B$25;TODAY();"md")&" يوم ");"") تحويلها الي كود ان أمكن وجزاك الله خيرا وبارك لك

حساب السن فى 2016/10/1 الفيديو المعادلة الاولى =IF(ISNUMBER(C7);DATEDIF((DATE(E7;C7;C7));(DATE("2016";"10";"1"));"MD");"") معاددلة اليوم =IF(ISNUMBER(D7);DATEDIF((DATE(E7;D7;C7));(DATE("2016";"10";"1"));"YM");"") معادلة الشهر =IF(ISNUMBER(E7);DATEDIF((DATE(E7;D7;C7));(DATE("2016";"10";"1"));"Y");"") معادلة العام المعادلة الثانية اليوم =IF($I7<>"";DATEDIF($I7;$J$5;"MD");"") الشهر =IF($I7<>"";DATEDIF($I7;$J$5;"ym");"") العام =IF($I7<>"";DATEDIF($I7;$J$5;"y");"") ملف الاكسل بالطريقتين الخطوة الثالثة.rar حساب السن فى 1.rar

جزاك الله خيرا أخي : الأستاذ هاني عدلي و لقد اضفت للمعادلة التي ادرجتها الدالة AND =IF(AND(B6<>"";C6<>"");DATEDIF(B6;C6;"md");"") =IF(AND(B6<>"";C6<>"");DATEDIF(B6;C6;"ym");"") =IF(AND(B6<>"";C6<>"");DATEDIF(B6;C6;"y");"")

فرق الايام يساوي تكتب في الخلية D4 =DATEDIF(B4;C4;"md") فرق الاشهر يساوي ثم تكتب في الخلية E4 =DATEDIF(B4;C4;"ym") فرق السنوات يساوي ثم تكتب في الخلية F4 =DATEDIF(B4;C4;"y") حيث تكتب في الخلية B4 تاريخ البداية و في الخلية C4 تاريخ النهاية

إستخدم أخي العزيز دالة ( datedif ) فهي الأنسب لما تقولة ورغم تقديم الحل أللي أتمني أن يحقق ماتريد إلا أن هذه المشاركة مخالفة لأداب المشاركة وخاصا أنها ليست مشاركتك الأولي لأن عنوان المشاركة لابد وأن يعبر عن مضمون الطلب هذا ولابد أيضا ألا يتضمن إستعجالا لمقدم المساعدة حساب السن.rar

ممكن المعادلة تكون كده بس التساؤل لو الشهور=6 سيتم تقريبها لأسفل أم لأعلي لوكانت لأعلي سيتم إضافة (=) بجوار (>=) حتي تضاف ألي السنة هي الأخري أما لو أضيفت للأقل ستظل المعادلة كما هي مكتوبة =IF(DATEDIF($B$2;$A$2;"ym")>6;DATEDIF($B$2;$A$2;"y")+1;DATEDIF($B$2;$A$2;"y")) فرق بين تاريخيين 2.rar

السلام عليكم لدى ملف به التواريخ التالية تاريخ اليوم و تاريخ الميلاد و اريد طرح التواريخ و استخراج الناتج فى صورة عدد سنوات ليتم طرحها بعد ذلك و استخدم الدالة التالية لطرح فى صورة سنوات =DATEDIF(B2;A2;"y") فما اريدة هو تقريب عدد سنوات الى اقل سنة لو كان عدد شهور اقل من 6 و الى اعلى سنة لو كان عدد الشهور اكبر من 6 فمثلا اليوم 21- اغسطس-2012 و تاريخ الميلاد 3-يناير-1997 و الفارق هو 15 سنة و 7 شهور لذلك المفروض ان يحسبها 16 سنة فما اريده هو التقريب اولا ثم طرح الرقم من عدد 30 مثلا لينتج الفارق المتبقي 30- 16= 14 سنة date.rar

اخي دالة DateDif تعمل مع 2007 ولكنها ليست ضمن الدول ولا بد من كتابتها

السلام عليكم. اعلم بان سؤالي مكرر ولكن انا لا ارغب بالحساب لتاريخ معين ارغب بان يكون الحساب لتاريخ اليوم الذي انشئ فيه التقرير من عمر الموظف بالسنه والشهر وللاطفال الشهورفقط. لاني اقوم باعداد قائمة اكسل لاحدى جهات التامين الطبي و لم اجد داله تستطيع حساب العمر كما ارغب و الداله DateDif لا تعمل بشكل صحيح في اصدار 2007. و الداله التي استخدمها كالتالي:- INT((TODAY()-H2)/365.25)= هذه الداله تزودني بعمر الموظف بالسنه فقط. استفسار.rar

السلام عليكم قمت بعمل دالة للتعرف على التاريخ الهجري وتحويله الى ميلادي للتعامل معه الدالة DATEDIF Function MyDate(MyCel As String) Calendar = vbCalHijri If IsDate(MyCel) Then MyDate = CDate(MyCel) End Function جرب المرفق الفرق بين تاريخين.rar

الحمد لله رب العالمين أن وفقني في الحل وجعلة معينا لك في عملك أماعن شرح المعادلة فهي معادلة تستخدم للمقارنة بين تاريخيين هما تاريخ البداية( start date) وتاريخ النهاية( end date) ولها معامل ثالث ( يسمي المحدد )أو(interval)وهما علي التوالي (md) ومعناها إحضار الأيام المتبقية في الشهر ، (ym) ومعناها إحضار الشهور المتبقية في السنة ، (y) لتشير إلي عدد السنوات، وبذلك تكون المعادلة ذو ثلاث معاملات وتكون كالأتي : =datedif(startdate;enddate;"iterval") وتلاحظ أخي أن ال "interval" يوضع بين عمليتي تنصيص أما التطبيق فموجود لديك في المرفق وشكرا أخي الفاضل وأنا تحت أمر حضرتك ويشرفني معرفتك بالأضافة لما سبق ممكن أن تتخذ الشكل التالي: =DATEDIF("1/1/2000",TODAY(),"Y")&" سنة "&DATEDIF("1/1/2000",TODAY(),"ym")&" شهر "&DATEDIF("1/1/2000",TODAY(),"md")

بسم الله الرحمن الرحيم الحمد لله و الشكر له اذي أنعم علينا بنعم لاتعد و لاتحصى ومن هذه النعم وجود هذا المنتدى القيم وانعم علينا بوجود هذه الزمرة المتميزة في المنتدى التي تعمل وتقدم الخير ولاتنتظر إلا الجزاء من الله عز وجل كافأهم الله بكل خير وأنعم علينا أيضا بوجود ساحر الاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير وهو من أحب الناس إلى قلب اخيه الأستاذ / محمدي عبد السميع عبد الغني حفظه الله ورعاه وحفظ الجميع من كل سوء ......... آمين يارب العالمين وبعد : أقدم هذا العمل الفذ وهو عبارة عن تجميع لأكواد معينة والشرح لكي نحصل في النهاية على عمل ولا أروع منه في مجال أعمال الكنترول الخاص برجال التربية والتعليم وسنطلق على هذا العمل " درة أعمال الكنترول " بسم الله نبدأ أولا : عند تصميم أي برنامج لأعمال الكنترول نحتاج الى صفحة بيانات أساسية وفي هذه الصفحة نحتاج الى *** حساب العمر عند يوم واحد أكوبر من العام الدراسي القادم وتوجد معادلات كثيرة لكن أفضلها وأسهلها على الإطلاق هذه المعادلات =IF($E7<>"";DATEDIF($E7;$J$5;"Y");"") لحساب عدد السنوات =IF($E7<>"";DATEDIF($E7;$J$5;"Ym");"") لحساب عدد الشهور =IF($E7<>"";DATEDIF($E7;$J$5;"MD");"") لحساب عدد الأيام أما إذا كنت من هواة الأكواد فهذا الكود للبطل الهمام بضم الهاء وفتح الميم الأولى عبد الله ياقشير '============================================" ' دالة حساب العمر بالتقويم الميلادي تاريخ الميلاد Mydate_Birth التاريخ الذي تريد حساب العمر عنده Mydate اذا كان فارغا سيتم احتساب اليوم '============================================" Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now, Optional Y_M_D As String = "Y_M_D") Dim MyDate As Date Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, d As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then MyDate = Mydate_Now Else MyDate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(MyDate) Then D_1 = Day(MyDate): D_2 = Day(Mydate_Birth) M_1 = Month(MyDate): M_2 = Month(Mydate_Birth) Y_1 = Year(MyDate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then d = D_1 - D_2: M = 0 Else d = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D = "Y_M_D" Then kh_count_y_m_d = d & "d-" & M & "m-" & Y & "y" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = d End If End Function *** ونحتاج أيضا الخلية النشطة : وهي آخر حلية مكتوب فيها في آخر صف و تسهل لنا الوصول الى الصف الأخير الفارغ لإضافة بيانات أخرى إذا أردنا Sub nasheta() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 If U = LastRow Then Range("B7").Select Else Range("B" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub ماعليك إلا أن تربط زر بهذا الكود وهذه هي Sub kh_Hidden() With Range("A2:A5") If .EntireRow.Hidden Then .EntireRow.Hidden = False Else .EntireRow.Hidden = True End If End With End Sub *** سنجتاج أيضا إلى Private Sub Worksheet_Activate() Set WW = Application.WorksheetFunction SS = WW.CountA(Range("B7:B1000")) + 6 EE = WW.CountA(Range("C7:C1000")) + 6 Application.ScreenUpdating = False Range("B7:Z1000").Sort [c7], xlAscending Range("B7:Z1000").Sort [D7], xlDescending For U = 7 To EE Cells(U, 4).NumberFormat = "yyyy/mm/dd" Next Range("B7:B1000").ClearContents [B7] = 1 [B8] = 2 Range("B7:B8").Select On Error Resume Next Selection.AutoFill Destination:=Range("B7:B" & EE) Application.GoTo [B7] 'Application.ScreenUpdating = True End Sub حساب العمر.rar حساب السن بالكود.rar كود اخفاء الصفوف.rar الخلية النشطة.rar طريقة ربط زر بكود اختر أي زر يعجبك منظره ثم اضغط عليه بيمين الماوس واختر نسخ ( copy) ثم حدد المكان الذي تريد اللصق فيه أو إنشاء الزر فيه واضغط بيمين الماوس واختر لصق ( past ) حرك الماوس في اتجاه الإطار الموجود حول الزر الذي لصقته ستظهر علامة الزائد و في كل اتجاه من علامة الزائد يوجد ايضا علامة زائد أخرى ثم اضغط بيمين الماوس واختر تعيين ماكر و ستطهر اسماء الماكروهات اختر الماكرو المطلوب ثم أوكي طريقة تحريك زر ملحوظه عند وجود علامة الزائد و في كل اتجاه منها يوجد ايضا علامة الزائد يمكنك الضغط بيسار الماوس وأنت مستمر بالضغط حركها إلى أي مكان جرب عمل ذلك واحمد الله *** سنجتاج أيضا الى كود يخفي عدد من الأسطر حتى نجصل عل أكبر مساحة ممكنه من الصفحة للرؤية و الكتابه بها وهذا هو الكود الخاص بذلك " كود الاخفاء" كود لعمل المسلسل أوتوماتيكي وهذ الكود سنضعه في حدث الورقة لكي يتم التسلسل بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية بدون الضفط على أية أزرار وسنضيف عليه كود لترتيب الطلاب حسب النوع أولا ثم ترتيب الطلاب تصاعديا بدون زر في نفس اللحظة وهذا الكود سنضعه في حدث الورقة لكي يتم الترتيب بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية وهذا هو الكود الخاص بذلك " كود التسلسل الاوتوماتيكي والترتيب الهجائي"

السلام عليكم أخي العزيز بفرض أن التاريخ الأصغر في الخلية A2 والأكبر في الخلية B2 إستخدم الصيغ التالية =DATEDIF(A2,B2,"d") لحساب الفارق بالأيام =DATEDIF(A2,B2,"m") لحساب الفارق بالشهور

السلام عليكم ورحمة الله أخي الكريم، إليك الحل في الملف المرفق باستعمال دالة DATEDIF... أرجو أن تجد في الملف بعض المطلوب... أخوك بن علية حساب الوقت بشروط.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل في الملف المرفق (بنسخة 2003) باستعمال الدالة DATEDIF ... أخوك بن علية منظومة رواتب شهر2.rar

السلام عليكم اخي سعيد جرب هذه =IF(DATEDIF(A2;B2;"Y")>=30;"له الحق";"ليس له الحق")

السلام عليكم ورحمة الله أخي الكريم، يمكن معرفة عمل المعادلة باستعمال خاصية التقييم Evaluation وأعطيك بعض الشرح الجزء : DATEDIF(A1;B1;"d") يحسب الفرق بين التاريخين الموجودين في الخليتين A1 و B1 بالأيام الجزء : SUMPRODUCT(((WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=5)+(WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=6))*1) وأصله كان : SUMPRODUCT((WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=5)*1)+SUMPRODUCT((WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=6))*1) وشرح الجزء : SUMPRODUCT((WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=5)*1) هي عبارة عن دالة صفيف تقوم بإنشاء مصفوفة (جدول) متكونة من التواريخ من تاريخ البداية الموجود في الخلية A1 إلى تاريخ النهاية الموجود في B1 ثم تأخذ الدالة WEEKDAY (المستعملة بالطريقة العادية أنظر الشرح الذي وضعه أخي الحبيب طارق في موضوع سؤالك عن هذه الدالة) رقم اليوم لكل تاريخ في المصفوفة... والتي يتحقق عليها الشرط =5 (رقم يوم الخميس) يُعطي لها الرقم 1 والباقي (من المصفوفة) يعطي لها 0 والدالة SUMPRODUCT تجمع أرقام المصفوفة الجديدة المتكونة من الرقمين 0 و 1 فقط... وتكون نتيجة هذا الجزء من المعادلة عدد أيام الخميس بين التاريخين.... والشيء نفسه يتكرر بالنسبة ليوم الجمعة الذي رقمه 6... الجزء *1 غير ضروري ويمكن الاستغناء عنه من المعادلة... أرجو أن يكون بعض هذا الشرح مفيدا ومفهوما. ملاحظة: اسمي "بن علية" وليس "علية" أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم جرب المعادلة التالية: =DATEDIF(A1;B1;"d")-SUMPRODUCT(((WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=5)+(WEEKDAY(ROW(INDIRECT(A1&":"&B1)))=6))*1)+1 مع في A1 تاريخ البداية وفي B1 تاريخ النهاية... أخوك بن علية