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

اكتب المعادلة التالية ("DATEDIF(E3, E4,"d= حيث ان e3 هو التاريخ الأقدم e4 هو الاحدث أما اذا اردت عدد الشهور استبدل d ب m

السلام عليكم ورحمة الله أخي الكريم مؤمن، أعتذر لهذا الخلل والمعذرة أكثر لأني لم أراقب عمل المعادلة في الملف، ولتصحيح الخلل يمكن مبدئيا تعديل المعادلة باستبدال العبارة "md" بالعبارة "m" في الجزء الخاص بالدالة DATEDIF مع تجربة المعادلة مع تنويع الأمثلة وأعلمني في حالة النتائج الخاطئة... وتجدني أعمل على الشروط الأخرى... أرجو أن تفي التعديلات بالمطلوب... أخوك بن علية

=DATEDIF(DATE(MID(J3,LEN(J3)-12,2),MID(J3,LEN(J3)-10,2),MID(J3,LEN(J3)-8,2)),TODAY(),"y")

السلام عليكم ورحمة الله بارك الله بالأخوة الكرام ولإثراء الموضوع يمكن استخدام المعادلة التالية =DATEDIF(TEXT(LEFT(B3;7)+17*10^6;"####-##-##");TODAY();"y") في امان الله

لو على قدر فهمي تفضل هذه المعادلة =DATEDIF(DATE(MID(B3;LEN(B3)-12;2);MID(B3;LEN(B3)-10;2);MID(B3;LEN(B3)-8;2));TODAY();"y")-100

اخى وليد جرب تغير شكل المعادلة الى الاتى =DATEDIF(DATE(MID(B3,LEN(B3)-12,3),MID(B3,LEN(B3)-10,3),MID(B3,LEN(B3)-8,3)),TODAY(),"y")

أستاذنا الكبير /حمادة باشا السلام عليكم ورحمة الله وبركانه كود رائع جداً وحل متميز جداً وهذا ما كنت أقصده أننا كعرب ننشئ دوال خاصة بالتقويم الهجري الخاص بهويتنا وهل يمكن جمع أيام أو شهرو على تاريخ بنفس الدالة وهل يمكن أن نجزأ تاريخ اليوم او أي تاريخ إلى يوم /شهر / سنة وتكون دالة ثابتة مثل دالة Datedif Hو غيرها من الدوال يكون هذا رائع جداً جداً .جزاك الله كل خير وجعلكم أنتم وعمالقة المنتدى ذخراً للأمة العربية والإسلامية وزادكم من فضله وعلمه.

الأستاذ / maro9400 السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / محمود الشريف جزاه الله خيراً وأعرفك أخي الكريم أن جميع الدوال الخاصة بالتواريخ على الأوفيس خاصة فقط بالتاريخ الميلادي مثل Datedif وغيرها من الدوال يوجد فقط تقويم ام القري التقويم الهجري فقط ولكن ليس له دوال خاصة به. جرب هذا الملف لعله يفيدك. ASA1.rar

حساب الفرق بين تاريخين | الدالة DateDif مايكروسوفت إكسل

اخي الفاضل المشكلة توجد الان في السنوات البسيطة التي بها شهر فبراير 28 يوم ولذلك اريد دالة تكون مدمجة بين datedif و days360

الاخ العزيز المرفق الخاص بك به دالة datedif انظر اخى الى هذا الرابط للاستاذ عبد الله المجرب وستجد به ما تريد : http://www.officena.net/ib/index.php?showtopic=42139 ومرفق ملفك بعد استخراج الايام بالدوال التى اوردها استاذنا الفاضل للتواريح المحددة فى ملفك الفرق بين تاريخين.rar

اشكرك جدا اخي على سرعة ردك ولكن ليس هذا هو المطلوب المطلوب هو استخدام دالة datedif ولكن على اساس عدد ايام السنة ولكم جزيل الشكر

أخواني الكرام:- أشكركم جزيل الشكر علي أهتمامكم وعلي ردودكم الرائعة. وإلي الأخ الكريم أبوأسامة الذي تعلمت منه الكثير والأخت سلمي أقدم لكم المعادلة datedif علي أكسيل 2003 وسوف أراعي في المشاركات القادمة أن تكون علي أكسيل 2003. datedif.rar أشكركم ألف شكر أخوكم في الله إسلام أسألكم الدعاء لوالدي رحمة الله عليه

أخواني الأعزاء لاأدري كيف أصف لكم مقدار سعادتي من ردودكم الجميلة والتي لم أكن أتخيل أن يصلني أجمل منها. أشكركم جمعيا علي أهتمامكم بموضوعي البسيط والله أسأل أن يجعلني عند حسن ظنكم. كما يشرفني أن أقدم لكم مشاركتي الثانية والتي أتمني أن تعجبكم وهي عبارة عن شرح للدالة DATEDIF مع تطبيق مفيد لها. datedif.rar كم سأكون سعيدا لوجأني رد وبه تطبيق عملي علي ما أقوم بشرحة فنحن هنا كما قلت من قبل لنتعلم سويا. أسألكم الدعاء لوالدي رحمة الله عليه

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

السلام عليكم ورحمة الله أخي الكريم، لا اعتذار في التعلم، والهدف من المشاركات هو التعلم، وأحب كثيرا من يقوم بالمحاولات للتعلم ولا أسميه تهجما بل هو عين العلم والتعلم... بالنسبة للتعديلات التي قمت بها تجدني لم أفهم التعديل على معادلة مدة التأخير (-1) ماذا تعني به؟ إذا كنت تعني به "1 شهر" فالمدة تحسب بالأيام فيجب أن يكون (-30) (والمعادلة في الخلية المعنية C14 تكتب على الشكل : =DATEDIF(C12;C13;"d")-C11 وأريد أن أعرف كيف يُعيّن تاريخ "آخر موعد للتسليم"؟ أليس اعتمادا على "مدة التسليم طبقا للتعميد"؟؟ أما فيما يخص طريقة احتساب غرامة التأخير وحسب ما فهمت من التعديلات التي قمتَ بها على المعادلة في الخلية C15 فإذا كانت نسبة الغرامة تُحتسب حسب ما يلي : - إذا كانت مدة التأخير أسبوعا فإن النسبة 1% - إذا كانت مدة التأخير أسبوعان فإن النسبة 2% - إذا كانت مدة التأخير 3 أسابيع فإن النسبة 3% - إذا كانت مدة التأخير 4 أسابيع فإن النسبة 4% - إذا كانت مدة التأخير 5 أسابيع فإن النسبة 5% - إذا كانت مدة التأخير 6 أسابيع فأكثر فإن النسبة 6% فإن المعادلة في الخلية C15 تكون أبسط وتكتب على الشكل : =IF(INT($C$14/7)>=6;6;INT($C$14/7))*$C$10/100 بدلا من الشكل : =IF(INT($C$14/7)>=6;6;CHOOSE(INT($C$14/7);1;2;3;4;5))*$C$10/100 أرجو أني أفدتك بهذه الملاحظات.... أخوك بن علية الملف المرفق وبه التعديلات التي اقترحتها : مذكرة إحتساب غرامة2.rar

السلام عليكم .............. حل آ خر بعد اذن استاذى الفاضل ... عله يفى بالمطلوب =DATEDIF(A1;B1;"m") =(YEAR(A9)-YEAR(A8))*12+MONTH(A9)-MONTH(A8) مرفق ملف به التطبيق

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

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

جميع النتائج صحيحة 100% .. ولكن لابد لك من معرفة شيء مهم عن الدالة DATEDIF .. وهي أنها تقوم بحساب السنوات والشهور والأيام المكتملة فقط .. وإذا أردت إضافة اليوم الحالي والغير مكتمل إلى الأيام المكتملة .. فقط تقوم بإضافة (1+) في نهاية الصيغة الخاصة بحساب الأيام. ولمعرفق المزيد عن الدالة DATEDIF .. راجع المشاركة رقم 2 من الرابط التالي: http://www.officena.net/ib/index.php?showtopic=8616 على كل حال تم التعديل على المرفق .. ليتماشى مع ما تريد، _______________.rar

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

الاستاذ علي السحيب المحترم اذا امكن ان تشرح لي هذه الدالة التي كتبتها انت في البرنامج اعلاه لاني لم افهمها رجاءا رجاءا =IF(OR(COUNT(Calc)<6;DATE(E3;D3;C3)>DATE(E6;D6;C6));"";DATEDIF(DATE(E3;D3;C3);DATE(E6;D6;C6);"Y")) وكذلك هذه الدالة =IF(OR(COUNT(Calc)<6;DATE(E3;D3;C3)>DATE(E6;D6;C6));"";DATEDIF(DATE(E3;D3;C3);DATE(E6;D6;C6);"Y")) ولك مني كل الشكر

ويمكننا أيضاً أخي هادي إستخدام الدالة DATEDIF .. مباشرة لحساب فرق الشهور بين فترتين. =DATEDIF(A2,B2,"m")+1

السلام عليكم استبدل كود حدث ورقة الطباعه بالتالي بعد التعديل 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