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

(تمت الاجابة ) ممكن معادلة حساب السن (مميز)


A7MED1969

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

عزيزى الغالى

المعادلة المطلوبة لها أكتر من شكل

حسب طريقة العمل فى الملف الخاص بيك

وأنصحك برفع ملفك وسيتم وضع المعادلة فيه ورفعها لك وكذلك طريقة الشرح لو أردت

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

الأخ الغالى يحياوى

أولاً أشكرك جزيل الشكر على مرورك بالموضوع ومساهمتك فيه

معادلتك ولا شك مية مية

ولكن بحكم أن الأخ السائل مدرساً

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

وعلى ذلك فالمعادلة التى قمت حضرتك مشكوراً بكتابتها قد لا تحقق مطلبه الذى أعتقد أنه يقصده

على كل حال لو أرفق لنا الملف سنستطيع أن نحدد بالضبط أى المعادلات تصلح له

والله الموفق

الاخ الغالى جمال بك الفار مشكور على مرورك وتعاونك وإسمح لى فقط أن أنبه على ضرورة تسمية الملف بما فيه ولا مانع من كتابة إسمك كذلك بجانب إسم الملف على سبيل المثال حساب السن جمال الفار

الهدف من ذلك أن يسهل البحث عن الملف فى الجهاز عند الطلب

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

اخى يحياوى عمل اكثر من رائع لا ياتى الا من

عالم جليل وخبير ورائع مثلك

وقد قمت بتجميع المعادلات فى ملف واحد

وكانت لى ملحوظة ان الكود يقوم بزيادة يومان

عن المعادلة

نرجو القاء نظرة

وقد جمعتهم فى ملف واحد لاثراء الموضوع

ELFAR2.rar

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

وكانت لى ملحوظة ان الكود يقوم بزيادة يومان

عن المعادلة

نرجو القاء نظرة

الاخ الفاضل جمال الفار شكراً على جمع المعادلات في ملف واحد

بعد اذن ملك الاكواد الاستاذ المبجل محمد يحياوي

بالنسبة لزيادة اليومين قمت بعمل تعديل بسيط على الدالة ارجو منك تجربته


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

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

تحية تقدير و شكر الى الاخوة الافاضل ابو احمد - جمال الفار - يوسف عطا - و محمود

عذرا تم تعديل المشاركة و تمت مراجعة الدالة اخي جمال ارجو مراجعة الدالة

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

  • 8 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information