طلب مساعده في احتساب نصف المده بين تاريخين ، والمده المتبقيه يوم شهر سنه

[imad2024]

السلام عليكم ، طلب مساعده في احتساب :

1- تاريخ نصف المده بين تاريخين ( بداية عقد العمل ونهاية عقد العمل ) .

2- المده المتبقيه لنهاية عقد العمل باليوم والشهر والسنه ( بين تاريخ اليوم وتاريخ نهاية عقد العمل ) .

3- المده المتبقية لنهاية عقد العمل كل مده منفصله في مربع ( يوم - شهر - سنه ) .

 

- على سبيل المثال ان بداية عقد العمل هو 2023/1/1 ونهاية عقد العمل 2024/1/1 ) وتاريخ اليوم هو 2023/9/16 .

يجب ان تظهر النتيجه كما يلي :

1- تاريخ نصف المده هو 2023/6/1 .

2- المده المتبقيه لنهاية عقد العمل هو ( 14 يوم و 3 اشهر و 0 سنه ) 

3-المده المتبقيه لنهاية عقد العمل كل مده منفصله في مربع :

    14 يوم

    3 اشهر 

    0 سنه 

ولكم جزيل الشكر 

التاريخ.accdb

[Foksh]

54 دقائق مضت, imadimadimad said:

تاريخ نصف المده بين تاريخين ( بداية عقد العمل ونهاية عقد العمل ) .

Result: Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd")

 

55 دقائق مضت, imadimadimad said:

المده المتبقيه لنهاية عقد العمل باليوم والشهر والسنه ( بين تاريخ اليوم وتاريخ نهاية عقد العمل )

Result: 
    Format(DateDiff("yyyy", [from], [to]), "yyyy") & " years, " & 
    Format(DateDiff("m", [from], [to]) Mod 12, "0") & " months, " & 
    Format(DateDiff("d", [from], [to]) Mod 30, "0") & " days"

 

منذ ساعه, imadimadimad said:

المده المتبقية لنهاية عقد العمل كل مده منفصله في مربع ( يوم - شهر - سنه )

Result_Days: Format(DateDiff("d", [from], [to]) Mod 30, "0")
Result_Months: Format(DateDiff("m", [from], [to]) Mod 12, "0")
Result_Years: Format(DateDiff("yyyy", [from], [to]), "yyyy")

طبعا استبدل الحقول result, from ,to بالحقول الخاصة بك

[imad2024]

شكرا لك كثيرا

اين اضع الكود

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

ولك  الشكر

[Foksh]

3 ساعات مضت, imadimadimad said:

تاريخ نصف المده هو 2023/6/1

للعلم فقط ، منتصف المدة حسب تواريخك هو 1/7/2023

وحالياً ليس لدي كمبيوتر ، سأحاول بأقرب وقت ممكن.

تم تعديل ديسمبر 15, 2023 بواسطه Foksh

[imad2024]

شكرا لك على المداخله

صحيح نصف المده هو 2023/7/1

 

[Foksh]

اجعل في حدث عند التحديث لحقل ( to - ألى ) أن تكون قيمة مربع النص result في الأكواد التي ارفقتها لك 😊

[imad2024]

اين اضع الكود

Result: Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd")

بداية عقد العمل from

نهاية عقد العمل to

 

[imad2024]

اجعل في حدث عند التحديث لحقل ( to - ألى ) أن تكون قيمة مربع النص result في الأكواد التي ارفقتها لك 😊

شكرا لك

 

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

 

لا اعرف اين اضع الكود او التعامل معه

 

ارجو المساعده ضروري جداً😊😊😊😊😊😊

 

 

التاريخ.accdb

تم تعديل ديسمبر 15, 2023 بواسطه imadimadimad

[Foksh]

10 دقائق مضت, imadimadimad said:

نهاية عقد العمل to

في حدث بعد التحديث للحقل to تاريخ نهاية العقد.

و سيكون هكذا:

Result= Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd")

حيث result  هو مربع النص الذي سيكون فيه الناتج ( منتصف المدة )

[imad2024]

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

تم تعديل ديسمبر 15, 2023 بواسطه imadimadimad

[Foksh]

13 دقائق مضت, imadimadimad said:

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

أخي الكريم في أقرب فرصة ، لأني حالياً بعيد عن الكمبيوتر.

[Foksh]

تفضل محاولتي اخي الكريم

التاريخ (1).accdb

[imad2024]

اشكرك على المساعده

يوجد مشكله 

انه لا يحفظ النتائج في سجل كل اسم ،  حيث ان النتيجة تكرر على جميع السجلات نفسها

نصف المده يعطي النتيجه صحيحه

المشكله الثانيه ان المده المتبقيه يوجد بها خطاً غير صحيحه 

المده المتبقيه هي فقط 3 ايام

ارجو المساعده

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

[Eng.Qassim]

عملت لك النتيجة بشكل رسالة 

فقط جرب بعض المدخلات 

التاريخ.accdb

[Foksh]

6 دقائق مضت, imadimadimad said:

انه لا يحفظ النتائج في سجل كل اسم

مربعات النص في نموذجك غير مرتبطة في الجداول ( ليس لها مصدر سجلات )

جميع الحقول تعتمد في بياناتها على تحديث الحقل نهاية العمل.

وسأعدل اللازم واوافيك بأقرب فرصة ، إلا إن سبقنا أحد الأساتذة ، ولهم جزيل الشكر سلفاً 😊

[imad2024]

شكرا لك على المداخله Eng.Qassim

انا بحاجه الى تخزين البيانات المخرجه من ضمن السجل نفسه 

 

كما ابلغني الاستاذ Foksh

انه يجب ان يكون هناك حقول لمكان تخزين البيانات

 

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

شكرا لكم ولاهتمامكم ومساعدتي

[imad2024]

شكرا استاذ (Foksh) التخزين جاهز في الحقول بعد اضافتها

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

سوف اجرب مداخله الاستاذ Eng.Qassim

[Eng.Qassim]

15 دقائق مضت, imadimadimad said:

انا بحاجه الى تخزين البيانات المخرجه من ضمن السجل نفسه 

هذا امر يسير ... انا قصدت ان تجرب بعض المدخلات لترى النتيجة 

[imad2024]

تم تجربة مداخلة الاستاذ  Eng.Qassim وكذلك تعديل الملاحظات من الاستاذ (Foksh)  وتم دمجها بالبرنامج

 

هل يمكن التاكد وتصحيح الكود بعد تحديث حقل نهاية عقد العمل لانني قمت بتكرار العمليه اربع مرات هل يمكن اختصار الكود

الكود تم اخذه من مداخلة الاستاذ Eng.Qassim

مع الشكر للجميع

التاريخ.accdb

تم تعديل ديسمبر 15, 2023 بواسطه imadimadimad

[Eng.Qassim]

جرب هذه المحاولة ...

بالمناسبة ..تاريخ نهاية العقد ان كان داخلا في التنفيذ فيتم اضافة 1 الى عدد الايام في الكود 

 

التاريخ.rar

[imad2024]

شكرا لك كثيرا ( Eng.Qassim)

هذا ما اريده

 

وشكرا لمن ساعدني منذ البدايه (Foksh)

شكرا لكم على المجهود الرائع 🥰

[Foksh]

مداخلة لتصحيح الخطأ بعد اذن أستاذي @Eng.Qassim ، وصاحب الموضوع @imad2024

 

بعد تجربة المرفق وجدت ان حساب الفرق بين التاريخين خاطئ !!

 

فارتأيت تعديل بسيط بعد إذنك طبعاً .

 

التاريخ.accdb

 

 

تم تعديل ديسمبر 16, 2023 بواسطه Foksh

[Eng.Qassim]

2 ساعات مضت, Foksh said:

 

بعد تجربة المرفق وجدت ان حساب الفرق بين التاريخين خاطئ !!

استاذي الكريم @Foksh

المفصود هو المدة المتبقية لنهاية العقد من تاريخ هذا اليوم 

[Foksh]

32 دقائق مضت, Eng.Qassim said:

استاذي الكريم @Foksh

المفصود هو المدة المتبقية لنهاية العقد من تاريخ هذا اليوم 

شكراً للتوضيح ، تداخلت معي الأمور بعد البخور اللي استعملناه عشان الاستاذ ابو جودي