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

اشهر المعادلات والاكواد عن حساب السن


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

بسم الله الرحمن الرحيم

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

لقد قمت بعمل بسيط جدا ارجو ان ينال استحسانكم وقبولكم

وهو عبارة عن ملف قمت بعمله ليسهل على السائل

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

ففكرت فى تجميع اشهر المعادلات والاكواد عن حساب السن ورفعها

ليستفيد منها السائل

وهى اهداء الى اخوانى الاعزاء فى اوفيسنا

لا تنسونا من دعائكم

ملحوظة

لابد من تنخفيض الماكرو من قائمة ادوات ثم ماكرو ثم الامان ثم منخفض

واذا كانت الاوفيس انجليزى فسندخل

tools -----macro ------security---low

كلمة المرور 146

:power::signthankspin::power:

ELFAR2.rar

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

السلام عليكم

ملف تحفة تسلم يدك اخي جمال على هذا الملف الروعة

بصراحة هداياك قيمة

شكراً لك

توقعت اخى المايسترو /عبدالله المجرب

ان تكون اول من يرد على

لانك دائما سباق بالوجب والعطاء

وهذا الملف لا يساوى شى بجانب تحفك وابداعاتك

جزاك الله خيرا

اخى المايسترو/ عبدالله المجرب

:signthankspin: :signthankspin:

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

السلام عليكم

=======

تجميعة هايلة لايمكن معها السؤال ثانيا

ودليل على ان المنتدى مليان متفجرات ويحتاج الى search

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

شكرا ابو احمد على التثبيت

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

أحسنت أستاذ جمال الفأر على هذا الملف القيم

شكرا لك

تقبل مروري

أبووائل

اخى العزيز الغالى ابو وائل

جزيت خيرا على الكلام النابع من القلب

وجزاك الله خيرا على المرو الطيب

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

تم تثبيت الموضوع لعموم الفائدة

اخى المايسترو /عبدالله المجرب

لفته جميلة من شخص اجمل

بارك الله فيك وسدد خطاك

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

اخى الحبيب جمال

بارك الله فيك

عمل متميز من انسان متميز

مبدع بحق

نتظر التجميعة التالية

ولتكن سلسلة تعليمية ومرجعية نحتفظ بها للرجوع اليها وقت الحاجة

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

السلام عليكم

=======

تجميعة هايلة لايمكن معها السؤال ثانيا

ودليل على ان المنتدى مليان متفجرات ويحتاج الى search

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

شكرا ابو احمد على التثبيت

اخى الستاذ العلامة الاستاذ الخلوق هشام شلبى

وجودك فى الموضوع اسعدنى

وكللامك اخجلنى

جزيت خيرا

وانشاء الله فى القرريب العاجل ساقوم بعمل الذى توقعته منى

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

جزاك الله خير استاذ جمال وجعلة الله فى ميزان حسناتك

محمد سعد

اخى فى الله محمد سعد

جزاك الله خيرا على الدعوة الطيبة

وجزاك الله خيرا على مرورك الطيب

بوركت وبورك مسعاك

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

ما شاء الله

تجميعة رائعة أخي جمال

وفقك الله

وأضيف لابداعات الإخوة

دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن 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

بارك الله في كل من ساهم في هذا الموضوع

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

أخى الفاضل / جمال الفار

ذوق .. فن .. علم .. خلق .. هدف .. رائع

الاخ اطيب والحبيب المبدع/ العميد دغيدى

كلامكم فيه تهذيب ورقة المشاعر

وسمو النفس وطهارة القلب وصدق الموقف

وهكذا عهدناك وتعودنا عليك

اخيك الاصغر /جمال الفار

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

رائع بروعتك :)

اخى قى الله الجزيرة

فبك اروع الخصال ورقة المشاعر

فانت رائع بمعنى كل هذه الكلمة لمرورك الطيب الذى اسعدنى

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

اخى الحبيب جمال

بارك الله فيك

عمل متميز من انسان متميز

مبدع بحق

نتظر التجميعة التالية

ولتكن سلسلة تعليمية ومرجعية نحتفظ بها للرجوع اليها وقت الحاجة

اخى الحبيب الرقيق /ابو الاء

كلمات رقيقة من انسان حساس ومبدع ومتالق

جزيت خيرا حبيبى وصديقى ابو الاء

جزالك الله خيرا فى الدنيا والاخرة

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

ما شاء الله

تجميعة رائعة أخي جمال

وفقك الله

وأضيف لابداعات الإخوة

دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن 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

بارك الله في كل من ساهم في هذا الموضوع

اخى فى الله / محمد صالح

اسعدنى تواجدك فى الموضوع

ولا استطيع ان اقول الا جزاك الله خيرا

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

استاذ جمال الفار

اعمالك قيمة زادك الله من العلم ونفع بك

تحياتى

سعد عابد

اخى الحبيب سعد عابد

كنت هزعل لول لم ارى تشجيعكم المعهود

زادنا الله من علمه وقوى صداقتنا وجمع شمل اسرتنا اوفيسنا

ولا تنسى اننا هنا نكمل بعضنا البعض

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

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

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

Important Information