علي العراق قام بنشر أغسطس 18, 2009 مشاركة قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء ارجو مساعدتي حول : عند حقل تاريخ التعيين للموظف، أريد عند ادخال تاريخ التعيين يظهر في ثلاث خلايا مستقلة اليوم والشهر والسنة. واكون لكم شاكرا اخوكم علي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 18, 2009 مشاركة قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله كان من المفروض أن ترفق ملفك (جزء منه)... بالنسبة لمشكلتك أقترح عليك هذا الملف المرفق والذي وضعت فيه المطلوب في شكلين... أرجو أن يكون هذا طلبك... السلام عليكم ورحمة الله وبركاته اخواني الاعزاء ارجو مساعدتي حول : عند حقل تاريخ التعيين للموظف، أريد عند ادخال تاريخ التعيين يظهر في ثلاث خلايا مستقلة اليوم والشهر والسنة. واكون لكم شاكرا اخوكم علي Essai1.rar 1 رابط هذا التعليق شارك More sharing options...
علي العراق قام بنشر أغسطس 18, 2009 الكاتب مشاركة قام بنشر أغسطس 18, 2009 اخي العزيز مشكور على ردك ولكن نسيت ان اذكر ان المطلوب في الحقول الثلاثة مدة الخدمة الى تاريخ معين مثلا: تاريخ التعيين في 1/1/2008، تاريخ احتساب الخدمة لغاية تاريخ: 1/1/2009 يصبح اليوم: 0 ، الشهر: 0، السنة: 1 هذا الذي اردت واكون لك شاكرا وعذرا عن عدم ارفاق الملف لاني لم استطيع ان اجد الدالة التي تفي بالغرض اخوك علي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 18, 2009 مشاركة قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله حساب الفرق بين تاريخين ُيستعمل له الدالة DATEDIF (وهي من الدوال المخفية في إكسيل) وإليك طريقة العمل بها في الملف المرفق... Essai2.rar 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 18, 2009 مشاركة قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله حساب الفرق بين تاريخين ُيستعمل له الدالة DATEDIF (وهي من الدوال المخفية في إكسيل) وإليك طريقة العمل بها في الملف المرفق... ملف رائع أخي الكريم ودالة رائعة الغريب أنها غير موجودة في دوال الوقت والتاريخ وكنا نتغلب على ذلك بعمل دالة هي Function MyDuration(OldDate, NewDate) Dim Separator As String Separator = " - " If IsNull(NewDate) Then NewDate = Date End If If IsNull(OldDate) Or OldDate >= NewDate Then MyDuration = "" Exit Function End If Dim Y As Integer, M As Integer, D As Integer Dim Yn As Integer, Mn As Integer, Dn As Integer Y = DatePart("yyyy", [OldDate]) M = Month([OldDate]) D = DatePart("D", [OldDate]) Yn = DatePart("yyyy", NewDate) Mn = Month(NewDate) Dn = DatePart("D", NewDate) If Dn >= D And Mn >= M Then MyDuration = Yn - Y & Separator & Mn - M & Separator & Dn - D Exit Function ElseIf Dn < D And Mn <= M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 11) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn < D And Mn > M Then MyDuration = Yn - Y & Separator & (Mn - 1) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn >= D And Mn < M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 12) - M & Separator & Dn - D Exit Function End If End Function 1 رابط هذا التعليق شارك More sharing options...
علي العراق قام بنشر أغسطس 18, 2009 الكاتب مشاركة قام بنشر أغسطس 18, 2009 اخي العزيز hben مشكور جدا وجزاك الله خير الف خير، هذا هو المطلوب واشكر جهودك والسلام عليكم رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر أغسطس 18, 2009 مشاركة قام بنشر أغسطس 18, 2009 السلام عليكم جزاك الله خيرا أخي بن علية على الدالة الرائعة خبرتك في الإكسيل نحن بأمس الحاجة إليها الشكر موصول إلى الأخ mas123 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 19, 2009 مشاركة قام بنشر أغسطس 19, 2009 (معدل) السلام عليكم ورحمة الله هذا ردي الخامس في الموضوع (كلما أكمل كتابة الرد ينقطع التيار الكهربائي أو النت عندنا) ... أردت أن أشرح كيفية استعمال الدالة DATEDIF التي هي دالة مخفية في إكسيل تعمل بشكل صحيح ولكنها غير موجودة في قائمة الدوال... لها وظائف عديدة أهمها حساب الفرق بين تاريخين وصيغة هذه الدالة هي كما يلي: (DATEDIF(date1;date2;intervalle= حيث: date1 : تاريخ البداية date2 : تاريخ النهاية intervalle : المدة (الفرق بين التاريخين date1 و date2) وهي تأخذ إحدى القيم التالية: "y" : المدة بالسنين "m" : المدة بالشهور "d" : المدة بالأيام "ym": المدة بالشهور دون السنين (حذف السنين) "yd": المدة بالأيام دون السنين (حذف السنين) "md": المدة بالأيام دون السنين والشهور (حذف السنين والشهور ملحوظة: العلامة "" إجبارية لخاصية intervalle والله أعلم تم تعديل أغسطس 19, 2009 بواسطه hben 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 19, 2009 مشاركة قام بنشر أغسطس 19, 2009 مشكور أخي hben دالة رائعة فعلا 1 رابط هذا التعليق شارك More sharing options...
ahmedhafez قام بنشر أغسطس 19, 2009 مشاركة قام بنشر أغسطس 19, 2009 شكرا اخى الكريم على الشرح الجيد رابط هذا التعليق شارك More sharing options...
Maher00 قام بنشر يوليو 7, 2013 مشاركة قام بنشر يوليو 7, 2013 السلام عليكم ورحمة الله ارجو من الاخوة الافاضل توضيح طريقة عمل سجل لتوقيع الموضفين ........ على سبيل المثال عندما يدرج الموضف رقمه تلقائيا يتم ادراج اسم الموضف وتاريخ حضوره بالسنة وشهر واليوم والساعة والدقيقة........ ارجو عمل الطريقة باستخدام دوال الاكسيل ........... وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر يوليو 7, 2013 مشاركة قام بنشر يوليو 7, 2013 بن علية جامد السنين ( مجرم اكسيل ) بارك الله فيك ولك أستاذنا الكبير بن علية حاجى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.