حساب تاريخ التعيين

[بلال اليامين]

السلام عليكم

اريد عند وضع تاريخ التعيين 

ناقص من تاريخ التعيين 3 سنوات   

[Moosak]

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

هذه الجزئية غير واضحة !

4 ساعات مضت, بلال اليامين said:

ناقص من تاريخ التعيين 3 سنوات

على الرغم من ذلك جرب هذه المعادلة :

DateDiff("yyyy", DateAdd("yyyy", 3, date1), Date2)

date1 = تاريخ التعيين
Date2 = تاريخ الانتهاء

 

تم تعديل مايو 22, 2022 بواسطه Moosak

[Eng.Qassim]

منذ ساعه, Moosak said:

هذه الجزئية غير واضحة !

فعلا استاذ موسى ..انا فهمتها  انه لو كانت سنة التعيين 2000   يعني النتيجة 2003

وبهذا تتحول -3 الى +3

 

[بلال اليامين]

اخي اين اضع 

DateDiff("yyyy", DateAdd("yyyy", -3, date1), Date2)
هل في الاستعلام

[Eng.Qassim]

5 دقائق مضت, بلال اليامين said:

خي اين اضع

عن اذن اخي استاذ موسى

ممكن تضعها في استعلام او في مربع نص داخل نموذج

لكن انتبه الى الفارزة فيمكن تحتاج الى تحويلها الى فارزة منقوطة

[بلال اليامين]

اخي يظهر الخطأ في الاستعلام

[Moosak]

17 ساعات مضت, بلال اليامين said:

اخي يظهر الخطأ في الاستعلام

أخي بلال ضع مرفقك أو صور لنا كيف طبقتها ..

[Eng.Qassim]

17 ساعات مضت, بلال اليامين said:

يظهر الخطأ في الاستعلام

ماهي نسخة الاوفيس لديك؟

[بلال اليامين]

اوفيس 2010

[Eng.Qassim]

استخدم كود استاذ موسى ..لان اعتقد اكسس 2010 لايستخدم الفاصلة المنقوطة

[ابوبسمله]

السلام عليكم

5 ساعات مضت, Eng.Qassim said:

استخدم كود استاذ موسى ..لان اعتقد اكسس 2010 لايستخدم الفاصلة المنقوطة

اخى العزيز مهندس قاسم لا دخل للاكسيس بالفواصل وانما بالويندوز

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

بالتوفيق

[Eng.Qassim]

46 دقائق مضت, احمد الفلاحجي said:

لا دخل للاكسيس بالفواصل وانما بالويندو

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

بصراحة اخذت المعلومة لان لدي حاسوبين ..الاثنان يعمل بوندوز 7 ...لكن احدهما اوفيس 2010 والاخر 2013

وحينما اشتغل على الاول لا اضع الفاصلة المنقوطة !!

ساتحرى عن الاعدادات

[Moosak]

نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️

 

أخي بلال وضعته لك في مثال 🙂 :

تضع الدالة على مصدر صندوق النتيجة هكذا :

=DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To])

 

التواريخ.accdb

تم تعديل مايو 23, 2022 بواسطه Moosak

[الحلبي]

1 ساعه مضت, احمد الفلاحجي said:

خى العزيز مهندس قاسم لا دخل للاكسيس بالفواصل وانما بالويندوز

استاذنا كيف نحصل على هذه الخصائص التى حضرتك ارسلت صورة منها

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

[ابوبسمله]

5 ساعات مضت, Eng.Qassim said:

وحينما اشتغل على الاول لا اضع الفاصلة المنقوطة !!

ساتحرى عن الاعدادات

واياكم مهندسنا العزيز وفى انتظار الاخبار بعد التحرى استاذى

5 ساعات مضت, Moosak said:

نقاش رائع أساتذتنا

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

4 ساعات مضت, الحلبي said:

كيف نحصل على هذه الخصائص

هذه الخطوات بالترتيب يادكتور محمد

 

[الحلبي]

اقتباس

6 ساعات مضت, احمد الفلاحجي said:

هذه الخطوات بالترتيب يادكتور محمد

 

لقد حصلت عليها ـ جزاك الله خير ورزقك بغير حساب وجعله فى ميزان حسناتك

[ابوبسمله]

11 ساعات مضت, الحلبي said:

لقد حصلت عليها ـ جزاك الله خير ورزقك بغير حساب وجعله فى ميزان حسناتك

الحمد لله واياكم

بالتوفيق يادكتور محمد

[ابو جودي]

طيب يا استاذ @بلال اليامين

تقدر تستخدم السطر ده فى الاستعلام بشكل مباشر على اعتبار ان اسم حقل تاريخ التعيين EmpHireDate

DateAdd("yyyy",-3,[EmpHireDate])

 

فكرة كمان ممكن ستخدم الوظيفة الاتية داخل وحدة نمطية

Public Function HireDateDiff( _
                        ByVal dtHireDate As Date, _
                        Optional nYear As Integer = 0 _
                        ) As Date
    dtHireDate = Format(dtHireDate, "dd/mm/yyyy")
    HireDateDiff = DateAdd("yyyy", -nYear, dtHireDate)
    HireDateDiff = Format(HireDateDiff, "dd/mm/yyyy")
End Function

ويتم استدعاء الوظيفة فى زوايا التطبيق سواء أكان فى استعلام او نموذج كالاتى 

HireDateDiff([EmpHireDate],3)

مع ملاحظة أن الرقم 3 تستطيع تغييرة فقط بالرقم الذى تريد ان اردت مستقبلا تغييره الى أى رقم آخر