جمال الفار قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 بسم الله الرحمن الرحيم السلام عليكم ورحمة اله وبركاته لقد قمت بعمل بسيط جدا ارجو ان ينال استحسانكم وقبولكم وهو عبارة عن ملف قمت بعمله ليسهل على السائل حيث وجدت السؤال فى هذا الموضوع كثير وهو حساب السن ففكرت فى تجميع اشهر المعادلات والاكواد عن حساب السن ورفعها ليستفيد منها السائل وهى اهداء الى اخوانى الاعزاء فى اوفيسنا لا تنسونا من دعائكم ملحوظة لابد من تنخفيض الماكرو من قائمة ادوات ثم ماكرو ثم الامان ثم منخفض واذا كانت الاوفيس انجليزى فسندخل tools -----macro ------security---low كلمة المرور 146 ELFAR2.rar 1
عبدالله المجرب قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 السلام عليكم ملف تحفة تسلم يدك اخي جمال على هذا الملف الروعة بصراحة هداياك قيمة شكراً لك
الزير قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 أحسنت أستاذ جمال الفأر على هذا الملف القيم شكرا لك تقبل مروري أبووائل
جمال الفار قام بنشر نوفمبر 12, 2011 الكاتب قام بنشر نوفمبر 12, 2011 السلام عليكم ملف تحفة تسلم يدك اخي جمال على هذا الملف الروعة بصراحة هداياك قيمة شكراً لك توقعت اخى المايسترو /عبدالله المجرب ان تكون اول من يرد على لانك دائما سباق بالوجب والعطاء وهذا الملف لا يساوى شى بجانب تحفك وابداعاتك جزاك الله خيرا اخى المايسترو/ عبدالله المجرب :signthankspin:
هشام شلبى قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 السلام عليكم ======= تجميعة هايلة لايمكن معها السؤال ثانيا ودليل على ان المنتدى مليان متفجرات ويحتاج الى search شكرا اخى جمال واتوقع منك فى التجميعة المقبلة القوائم المنسدلة وكيفية جلب البيانات بواسطتها او بواسطة قوائم التحقق من الصحة Validation LIST شكرا ابو احمد على التثبيت
edkawy قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 جزاك الله خير استاذ جمال وجعلة الله فى ميزان حسناتك محمد سعد
mhrrd قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 ودليل على ان المنتدى مليان متفجرات ويحتاج الى search لالا يا اخي عمليه البحث ليست على مايرام في هذا المنتدى الرائع
جمال الفار قام بنشر نوفمبر 12, 2011 الكاتب قام بنشر نوفمبر 12, 2011 أحسنت أستاذ جمال الفأر على هذا الملف القيم شكرا لك تقبل مروري أبووائل اخى العزيز الغالى ابو وائل جزيت خيرا على الكلام النابع من القلب وجزاك الله خيرا على المرو الطيب
جمال الفار قام بنشر نوفمبر 12, 2011 الكاتب قام بنشر نوفمبر 12, 2011 تم تثبيت الموضوع لعموم الفائدة اخى المايسترو /عبدالله المجرب لفته جميلة من شخص اجمل بارك الله فيك وسدد خطاك
دغيدى قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 أخى الفاضل / جمال الفار ذوق .. فن .. علم .. خلق .. هدف .. رائع
ابو الآء قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 اخى الحبيب جمال بارك الله فيك عمل متميز من انسان متميز مبدع بحق نتظر التجميعة التالية ولتكن سلسلة تعليمية ومرجعية نحتفظ بها للرجوع اليها وقت الحاجة
naderwatfa قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 أخي جمال توقعت قبل أن أفتح الملف أن يكون كاملاً و كانت توقعاتي في محلها بارك الله جهدك الرائع و أثابك به خير الثواب
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 السلام عليكم ======= تجميعة هايلة لايمكن معها السؤال ثانيا ودليل على ان المنتدى مليان متفجرات ويحتاج الى search شكرا اخى جمال واتوقع منك فى التجميعة المقبلة القوائم المنسدلة وكيفية جلب البيانات بواسطتها او بواسطة قوائم التحقق من الصحة Validation LIST شكرا ابو احمد على التثبيت اخى الستاذ العلامة الاستاذ الخلوق هشام شلبى وجودك فى الموضوع اسعدنى وكللامك اخجلنى جزيت خيرا وانشاء الله فى القرريب العاجل ساقوم بعمل الذى توقعته منى
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 جزاك الله خير استاذ جمال وجعلة الله فى ميزان حسناتك محمد سعد اخى فى الله محمد سعد جزاك الله خيرا على الدعوة الطيبة وجزاك الله خيرا على مرورك الطيب بوركت وبورك مسعاك
أ / محمد صالح قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 ما شاء الله تجميعة رائعة أخي جمال وفقك الله وأضيف لابداعات الإخوة دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن datedif الموجودة في الإكسل) حيث يتم حساب السن عندنا بطرح أيام التاريخ الأحدث - أيام التاريخ الأقدم وإذا كان الناتج بالسالب يتم استلاف شهر (30 يوم كقاعدة ثابتة) ونفس الكلام مع الشهور مع استلاف 12 شهر في حالة شهور التاريخ الأحدث أقل من شهور التاريخ القديم والناتج مجمع كله في خلية واحدة Function date_diff(oldd As Date, newd As Date) As String Dim years, months, days As Integer years = Year(newd) - Year(oldd) If Month(newd) < Month(oldd) Then years = years - 1 months = (Month(newd) + 12) - Month(oldd) Else months = Month(newd) - Month(oldd) End If If Day(newd) < Day(oldd) Then months = months - 1 days = (Day(newd) + 30) - Day(oldd) Else days = Day(newd) - Day(oldd) End If date_diff = Format(years, "00") & " عام و " & Format(months, "00") & " شهر و " & Format(days, "00") & " يوم" End Function بارك الله في كل من ساهم في هذا الموضوع 1
saad abed قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 استاذ جمال الفار اعمالك قيمة زادك الله من العلم ونفع بك تحياتى سعد عابد
محمد يحياوي قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 الاخ الحبيب "جمال الفار" عمل مميز و جهد عظيم بارك الله فيك
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 أخى الفاضل / جمال الفار ذوق .. فن .. علم .. خلق .. هدف .. رائع الاخ اطيب والحبيب المبدع/ العميد دغيدى كلامكم فيه تهذيب ورقة المشاعر وسمو النفس وطهارة القلب وصدق الموقف وهكذا عهدناك وتعودنا عليك اخيك الاصغر /جمال الفار
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 رائع بروعتك :) اخى قى الله الجزيرة فبك اروع الخصال ورقة المشاعر فانت رائع بمعنى كل هذه الكلمة لمرورك الطيب الذى اسعدنى
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 اخى الحبيب جمال بارك الله فيك عمل متميز من انسان متميز مبدع بحق نتظر التجميعة التالية ولتكن سلسلة تعليمية ومرجعية نحتفظ بها للرجوع اليها وقت الحاجة اخى الحبيب الرقيق /ابو الاء كلمات رقيقة من انسان حساس ومبدع ومتالق جزيت خيرا حبيبى وصديقى ابو الاء جزالك الله خيرا فى الدنيا والاخرة
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 ما شاء الله تجميعة رائعة أخي جمال وفقك الله وأضيف لابداعات الإخوة دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن datedif الموجودة في الإكسل) حيث يتم حساب السن عندنا بطرح أيام التاريخ الأحدث - أيام التاريخ الأقدم وإذا كان الناتج بالسالب يتم استلاف شهر (30 يوم كقاعدة ثابتة) ونفس الكلام مع الشهور مع استلاف 12 شهر في حالة شهور التاريخ الأحدث أقل من شهور التاريخ القديم والناتج مجمع كله في خلية واحدة Function date_diff(oldd As Date, newd As Date) As String Dim years, months, days As Integer years = Year(newd) - Year(oldd) If Month(newd) < Month(oldd) Then years = years - 1 months = (Month(newd) + 12) - Month(oldd) Else months = Month(newd) - Month(oldd) End If If Day(newd) < Day(oldd) Then months = months - 1 days = (Day(newd) + 30) - Day(oldd) Else days = Day(newd) - Day(oldd) End If date_diff = Format(years, "00") & " عام و " & Format(months, "00") & " شهر و " & Format(days, "00") & " يوم" End Function بارك الله في كل من ساهم في هذا الموضوع اخى فى الله / محمد صالح اسعدنى تواجدك فى الموضوع ولا استطيع ان اقول الا جزاك الله خيرا
جمال الفار قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 استاذ جمال الفار اعمالك قيمة زادك الله من العلم ونفع بك تحياتى سعد عابد اخى الحبيب سعد عابد كنت هزعل لول لم ارى تشجيعكم المعهود زادنا الله من علمه وقوى صداقتنا وجمع شمل اسرتنا اوفيسنا ولا تنسى اننا هنا نكمل بعضنا البعض
الردود الموصى بها