اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

فرق بين تاريخين عايز اصيغة فى شكل رقم


Ali Tawfeek

الردود الموصى بها

اخوانى محتاج مساعدة منكم عندى عمودين بهم تاريخين و باعمل عمود اخر يظهر الفرق بين التاريخين و الفرق لازم يظهر عدد السنوات فقط فمحتاج التالى

ان يكون الناتج اللى هو فرق سنوات يكون بصيغة رقم حتى يمكنى تكوين معادلات علية

بالاضافةيكون الفرق ده مقرب الى اقرب رقم صحيح كعدد سنوات و التقريب يكون الى اتمام السنوات و ليس لاعلى

مرفق نموذج صغير لتفيدونى كيفية عمل هذا

Test.zip

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الكريم ، استعمل المعادلة التالية في الخلية C2 :

=DATEDIF(B2;A2;"y")

مع تغيير تنسيق الخلية من "مخصص" إلى "عادي" Standard كما في الملف المرفق...

أخوك بن علية

Test.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الكريم ، استعمل المعادلة التالية في الخلية C2 :

=DATEDIF(B2;A2;"y")

مع تغيير تنسيق الخلية من "مخصص" إلى "عادي" Standard كما في الملف المرفق...

أخوك بن علية

Test.rar

مشكور للغاية و كل عام و انت بخير بس في مشكلة هو انا لما نفذت المعادلة على ملفى الخاص بي او ملف اخر المعادلة اظهرت لى خطأ فهل لى اعرف ما هو سبب الخطأ

الملف مرفق

1.rar

تم تعديل بواسطه ali fathi
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

مشكور للغاية و كل عام و انت بخير بس في مشكلة هو انا لما نفذت المعادلة على ملفى الخاص بي او ملف اخر المعادلة اظهرت لى خطأ فهل لى اعرف ما هو سبب الخطأ

أخي الكريم، قمت بقلب التاريخين الدالة DATEDIF تطلب أولا "تاريخ البداية" (القديم) ثم "تاريخ النهاية" (الجديد) ومعادلتك يجب كتابتها بالشكل التالي:

=DATEDIF(B1;B2;"y")
وليس بالشكل:
=DATEDIF(B2;B1;"y")
كما في الملف... والمعادلة:
=TEXT(A2-B2;"y")

تعطي (في بعض الأحيان) أخطاء مثلا لو كان التاريخ في الخلية A2 هو 13/11/2010 والتاريخ في الخلية B2 هو 13/11/2008 فمن المفروض أن يكون الناتج 02 ولكن المعادلة تعطي 01

والله أعلم

أخوك بن علية

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

مشكور للغاية و كل عام و انت بخير بس في مشكلة هو انا لما نفذت المعادلة على ملفى الخاص بي او ملف اخر المعادلة اظهرت لى خطأ فهل لى اعرف ما هو سبب الخطأ

أخي الكريم، قمت بقلب التاريخين الدالة DATEDIF تطلب أولا "تاريخ البداية" (القديم) ثم "تاريخ النهاية" (الجديد) ومعادلتك يجب كتابتها بالشكل التالي:

=DATEDIF(B1;B2;"y")
وليس بالشكل:
=DATEDIF(B2;B1;"y")
كما في الملف... والمعادلة:
=TEXT(A2-B2;"y")

تعطي (في بعض الأحيان) أخطاء مثلا لو كان التاريخ في الخلية A2 هو 13/11/2010 والتاريخ في الخلية B2 هو 13/11/2008 فمن المفروض أن يكون الناتج 02 ولكن المعادلة تعطي 01

والله أعلم

أخوك بن علية

بالفعل اخى الكريم انا جربت و عكست الخلايا كما ذكرت

بس انا ليا تساؤل هو المعادلة الاخرى الخاصة بالاخ kemas لماذا تعطى اخطاء بالاضافة هل معادلتك ايضا لها نقط ضعف او اخطاء

تم تعديل بواسطه ali fathi
رابط هذا التعليق
شارك

اخوانى طبعا مشكورين للغاية على المساعدة و اريد اضافة شئ للمعادلة و هى

اذا كان الناتج صفر بين التاريخ يعنى الفرق شهور و ليس سنة فاكثر فاريد اظهار رسالة تحذير او عدم قبول الطرح ايهما اسهل

و ارجو ذكر المعادلة فى صفحة الرد

رابط هذا التعليق
شارك

مرحبا أخى

نأسف لأننا تركناك تنتظر

لكن نتأكد من الطلب

أنت تريد التاريخ مثلا

01/12/1978

يظهر

28825

هل هذا هو المطلوب؟

الأخ بن علية أعطاك المعادلة المطلوبة

يعنى لو الفرق بين التاريخين فى السنوات = 2 سنة كاملة

يكون

783

هل هذا ماتريده

تم تعديل بواسطه kemas
رابط هذا التعليق
شارك

مرحبا أخى

نأسف لأننا تركناك تنتظر

لكن نتأكد من الطلب

أنت تريد التاريخ مثلا

01/12/1978

يظهر

28825

هل هذا هو المطلوب؟

الأخ بن علية أعطاك المعادلة المطلوبة

يعنى لو الفرق بين التاريخين فى السنوات = 2 سنة كاملة

يكون

783

هل هذا ماتريده

اخى الكريم مشكور لردك و لكن ما ذكرتة ليسما اريده حيث انى فى اصل الطلب طلبت فرق بين تاريخين و الاخ بن علية اعطانى معادلة و انت يا اخى kemas امدتنى بمعادلة اخرى و بالفعل المعادلات فعالة

و لكن اريد اضافة الى معادلة و هى فى حالة مثلا طرح تاريخ 23-11-2010 من تاريخ 23-2-2010 الفرق كسنوات سيكون صفر من سنوات لذلك اريد عمل رسالة تحذيرية لتحذير ان فرق عدد السنوات هو صفر او رفض المعادلة الطرح

اتمنى ان سؤالى ان يكون اتضح و ارجو منك اذا امكن امدادى بهذه الاضافة ان تكون سريعة و لك جزيل الشكر

رابط هذا التعليق
شارك

لعل هذا ما تريده

اضغط الزر بالملف المرفق

لقد حملت الملف و لكنه لا يعمل بالاضافة انى لاحظت انك استخدمت الماكرو فهل من مراجعة الملف و شرح المعادلة باختصار

رابط هذا التعليق
شارك

أخى

كيف تقول الملف لا يعمل

و تقول

أننى استخدمت الماكرو

يمكنك الموافقة على تفعيل الماكرو فى بداية تشغيل الملف

أخى

استعمل المعادلة للطرح

=A2-B2

و سيظهر الناتج كرقم

إذا لم يظهر الناتج كرقم

غير تنسيق الخلية إلى رقم

بالتوفيق

رابط هذا التعليق
شارك

اخى الكريم لقد افادتنى مسبقا بالمعادلة التالية

("TEXT(A2-B2;"y=

و لقد جربت الماكرو فى المشاركة السابقة و لكن هذا ليس ما اريد بالظبط حيث اننى عايز استمر فى استخدام المعادلة السابقةمع اضافة رسالة تحذيرية فى رفض المعادلة اذا كان الناتج صفر علما انى عايز اضافة الميزة لانى سوف اضعها فى فورم يحتوى على مئات الخلايا سوف يقوم باجراء معادلات اخرى عليها لذلك اعتقد ان ماكرو و اضافة زر لتشغيل المعادلة ليس مفيد لى - عذرا و اذا كان لديك اضافة هذه الميزة

رابط هذا التعليق
شارك

أخي علي

كثيرا ما لا يحسن أحدنا التعبير عن مقصده بالضبط

فأتمنى منك مزيدا من التوضيح حتى نفهم ماذا تريد

ويبدو أنك على قدر كبير من العلم بالاكسل فأتمنى أن يكون مطلوبك منطقيا

ولا تغضب إن كنت قد قسوت عليك في كلامي هذا

وكل عام أنتم بخير

  • Like 1
رابط هذا التعليق
شارك

أخي علي

كثيرا ما لا يحسن أحدنا التعبير عن مقصده بالضبط

فأتمنى منك مزيدا من التوضيح حتى نفهم ماذا تريد

ويبدو أنك على قدر كبير من العلم بالاكسل فأتمنى أن يكون مطلوبك منطقيا

ولا تغضب إن كنت قد قسوت عليك في كلامي هذا

وكل عام أنتم بخير

مشكور اخى الكريم mas123 على توضيحك الهام

و مطلب هو انى قد طلبت معادلة فرق بين تاريخين بحيث ان ناتج يكون عدد سنوات فى صيغة رقم يمكن اجراء عليها و المعادلة التى امدنى بها الاخوة هى كالتالى

("TEXT(A2-B2;"y=

طلبى الان هو اذا كان ناتج طرح صفر سنوات فمثلا اذا حاولت طرح 25-نوفمبر-2010 من 25-يناير-2010 سيكون ناتج المعادلة صفر سنوات و لهذا اريد وضع رسالة تحذيرية لمستخدم المعادلة السابقة برفض او بتحذير ان ناتج فرق السنوات هو صفر او ان المعادلة تعطى خطأ بدون ناتج

ارجو ان مطلبى الان يكون قد تم ايضاحة و لكم جميعا جزيل الشكر

رابط هذا التعليق
شارك

أخي الكريم علي

ما توصلت إلى فهمه من خلال ما ذكرته هو أنك تريد عمل رسالة تنبيه إذا كان فرق السنوات بين التاريخين يساوي صفر أو طبعا بالسالب

يمكن عمل هذا بكود بسيط في حدث عند تغيير القيم في الشيت

Private Sub Worksheet_Change(ByVal Target As Range)

If Sheets("sheet1").Range("c2").Value < 1 Then

MsgBox "ضع نص رسالتك هنا"

End If

End Sub

أتمنى أن يكون هذا هو المطلوب

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information