A7MED1969 قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 ممكن لو سمحت معادلة حساب السن فى الاكسيل وازي اضفها
يوسف عطا قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 عزيزى الغالى المعادلة المطلوبة لها أكتر من شكل حسب طريقة العمل فى الملف الخاص بيك وأنصحك برفع ملفك وسيتم وضع المعادلة فيه ورفعها لك وكذلك طريقة الشرح لو أردت
محمد يحياوي قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 الاخ الفاضل استعمل المعادلة =INT((TODAY()-A1)/365.25)
جمال الفار قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 هذه هى احدى المعادلات لحساب السن وكما قال اخى يوسف عطا الافضل ارفاق الملف ELFAR.rar
جمال الفار قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 السلام عليكم تفضل اخى المعالة لحساب السن بشكل اخر تحياتى لاستاذى يحياوى ELFAR2.rar
يوسف عطا قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 الأخ الغالى يحياوى أولاً أشكرك جزيل الشكر على مرورك بالموضوع ومساهمتك فيه معادلتك ولا شك مية مية ولكن بحكم أن الأخ السائل مدرساً أعتقد أنه يريد حساب السن فى أول أكتوبر من عام معين وعلى ذلك فالمعادلة التى قمت حضرتك مشكوراً بكتابتها قد لا تحقق مطلبه الذى أعتقد أنه يقصده على كل حال لو أرفق لنا الملف سنستطيع أن نحدد بالضبط أى المعادلات تصلح له والله الموفق الاخ الغالى جمال بك الفار مشكور على مرورك وتعاونك وإسمح لى فقط أن أنبه على ضرورة تسمية الملف بما فيه ولا مانع من كتابة إسمك كذلك بجانب إسم الملف على سبيل المثال حساب السن جمال الفار الهدف من ذلك أن يسهل البحث عن الملف فى الجهاز عند الطلب
محمد يحياوي قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 الاخ الكريم يمكنك استعمال هذه الدالة ... اسميتها تفقيط العمر دالة تفقيط العمر.rar 1
يوسف عطا قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 الله ينور يا أخى الغالى يحياوى فكرة لذيذة ومفيدة
جمال الفار قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 اخى يحياوى عمل اكثر من رائع لا ياتى الا من عالم جليل وخبير ورائع مثلك وقد قمت بتجميع المعادلات فى ملف واحد وكانت لى ملحوظة ان الكود يقوم بزيادة يومان عن المعادلة نرجو القاء نظرة وقد جمعتهم فى ملف واحد لاثراء الموضوع ELFAR2.rar
عبدالله المجرب قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 وكانت لى ملحوظة ان الكود يقوم بزيادة يومان عن المعادلة نرجو القاء نظرة الاخ الفاضل جمال الفار شكراً على جمع المعادلات في ملف واحد بعد اذن ملك الاكواد الاستاذ المبجل محمد يحياوي بالنسبة لزيادة اليومين قمت بعمل تعديل بسيط على الدالة ارجو منك تجربته Function Age(Date1 As Date, Date2 As Date) As String Dim Y As Integer Dim M As Integer Dim D As Integer Dim Temp1 As Date Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1)) Y = Year(Date2) - Year(Date1) + (Temp1 > Date2) M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2)) D = Day(Date2) - Day(Date1) - 2 If Day(Date2) - Day(Date1) = 0 Then D = 0 End If If D < 0 Then M = M - 1 D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1 End If Age = Y & " ÓäÉ " & M & " ÇÔåÑ " & D & " íæã" End Function
جمال الفار قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 اخى عبدالله معادلة التفقيط مازلت تزيد يومان
عبدالله المجرب قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 اخى عبدالله معادلة التفقيط مازلت تزيد يومان جرب المرفق ELFAR2.rar
MAHMOUD ALI YOUSSEF قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 السلام عليكم اكواد قمة في الروعة جزاكم الله كل خير :fff:
محمد يحياوي قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 تحية تقدير و شكر الى الاخوة الافاضل ابو احمد - جمال الفار - يوسف عطا - و محمود عذرا تم تعديل المشاركة و تمت مراجعة الدالة اخي جمال ارجو مراجعة الدالة
حسام الدين الحسيني قام بنشر يوليو 14, 2012 قام بنشر يوليو 14, 2012 بارك الله فيك مجهود رائع جداااااااااااا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.