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

[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 سنه 

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

التاريخ.accdbFetching info...

[Foksh]

  في 15‏/12‏/2023 at 14:22, imadimadimad said:

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

Expand  

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

 

  في 15‏/12‏/2023 at 14:22, imadimadimad said:

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

Expand  

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"

 

  في 15‏/12‏/2023 at 14:22, imadimadimad said:

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

Expand  

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]

  في 15‏/12‏/2023 at 14:22, imadimadimad said:

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

Expand  

للعلم فقط ، منتصف المدة حسب تواريخك هو 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 في الأكواد التي ارفقتها لك 😊

شكرا لك

 

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

 

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

 

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

 

 

التاريخ.accdbFetching info...

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

[Foksh]

  في 15‏/12‏/2023 at 17:35, imadimadimad said:

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

Expand  

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

و سيكون هكذا:

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

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

[imad2024]

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

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

[Foksh]

  في 15‏/12‏/2023 at 17:52, imadimadimad said:

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

Expand  

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

[Foksh]

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

التاريخ (1).accdbFetching info...

[imad2024]

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

يوجد مشكله 

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

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

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

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

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

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

[Eng.Qassim]

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

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

التاريخ.accdbFetching info...

[Foksh]

  في 15‏/12‏/2023 at 20:51, imadimadimad said:

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

Expand  

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

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

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

[imad2024]

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

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

 

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

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

 

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

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

[imad2024]

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

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

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

[Eng.Qassim]

  في 15‏/12‏/2023 at 21:10, imadimadimad said:

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

Expand  

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

[imad2024]

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

 

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

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

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

التاريخ.accdbFetching info...

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

[Eng.Qassim]

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

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

 

التاريخ.rarFetching info...

[imad2024]

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

هذا ما اريده

 

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

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

[Foksh]

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

 

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

 

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

 

التاريخ.accdb

 

 

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

[Eng.Qassim]

  في 16‏/12‏/2023 at 16:07, Foksh said:

 

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

Expand  

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

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

[Foksh]

  في 16‏/12‏/2023 at 18:10, Eng.Qassim said:

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

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

Expand  

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