علي العراق قام بنشر أغسطس 18, 2009 قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء ارجو مساعدتي حول : عند حقل تاريخ التعيين للموظف، أريد عند ادخال تاريخ التعيين يظهر في ثلاث خلايا مستقلة اليوم والشهر والسنة. واكون لكم شاكرا اخوكم علي
بن علية حاجي قام بنشر أغسطس 18, 2009 قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله كان من المفروض أن ترفق ملفك (جزء منه)... بالنسبة لمشكلتك أقترح عليك هذا الملف المرفق والذي وضعت فيه المطلوب في شكلين... أرجو أن يكون هذا طلبك... السلام عليكم ورحمة الله وبركاته اخواني الاعزاء ارجو مساعدتي حول : عند حقل تاريخ التعيين للموظف، أريد عند ادخال تاريخ التعيين يظهر في ثلاث خلايا مستقلة اليوم والشهر والسنة. واكون لكم شاكرا اخوكم علي Essai1.rar 1
علي العراق قام بنشر أغسطس 18, 2009 الكاتب قام بنشر أغسطس 18, 2009 اخي العزيز مشكور على ردك ولكن نسيت ان اذكر ان المطلوب في الحقول الثلاثة مدة الخدمة الى تاريخ معين مثلا: تاريخ التعيين في 1/1/2008، تاريخ احتساب الخدمة لغاية تاريخ: 1/1/2009 يصبح اليوم: 0 ، الشهر: 0، السنة: 1 هذا الذي اردت واكون لك شاكرا وعذرا عن عدم ارفاق الملف لاني لم استطيع ان اجد الدالة التي تفي بالغرض اخوك علي
بن علية حاجي قام بنشر أغسطس 18, 2009 قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله حساب الفرق بين تاريخين ُيستعمل له الدالة DATEDIF (وهي من الدوال المخفية في إكسيل) وإليك طريقة العمل بها في الملف المرفق... Essai2.rar 1
أ / محمد صالح قام بنشر أغسطس 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
علي العراق قام بنشر أغسطس 18, 2009 الكاتب قام بنشر أغسطس 18, 2009 اخي العزيز hben مشكور جدا وجزاك الله خير الف خير، هذا هو المطلوب واشكر جهودك والسلام عليكم
سالم شباني قام بنشر أغسطس 18, 2009 قام بنشر أغسطس 18, 2009 السلام عليكم جزاك الله خيرا أخي بن علية على الدالة الرائعة خبرتك في الإكسيل نحن بأمس الحاجة إليها الشكر موصول إلى الأخ mas123
بن علية حاجي قام بنشر أغسطس 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
Maher00 قام بنشر يوليو 7, 2013 قام بنشر يوليو 7, 2013 السلام عليكم ورحمة الله ارجو من الاخوة الافاضل توضيح طريقة عمل سجل لتوقيع الموضفين ........ على سبيل المثال عندما يدرج الموضف رقمه تلقائيا يتم ادراج اسم الموضف وتاريخ حضوره بالسنة وشهر واليوم والساعة والدقيقة........ ارجو عمل الطريقة باستخدام دوال الاكسيل ........... وجزاكم الله خيرا
ابو اياد ( الاسيوطى ) قام بنشر يوليو 7, 2013 قام بنشر يوليو 7, 2013 بن علية جامد السنين ( مجرم اكسيل ) بارك الله فيك ولك أستاذنا الكبير بن علية حاجى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.