انقاص شهر ونصف (45) يوم من كل 6 اشهر

[Alaaq3]

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

TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2)

الان اريد انقاص شهر ونصف من كل 6 اشهر فما فوق من خانة TextBox5 الخاصة بالشهور بشرط ان تكون خانة TextBox4 الخاصة بالسنوات قيمتها اكثر من 0

توضيح/// . يتم انقاص (الشهر والنصف) من خانة الشهور مشروطة بشرطين: الاول ان تكون قيمتها اكبر او تساوي 6 . والشرط الثاني ان تكون في خانة السنوات قيمة اكثر او يساوي سنة 

 

حساب وجمع التواريخ (1).xlsm

[أ / محمد صالح]

يمكنك إضافة هذا السطر

If TextBox4 >= 1 And TextBox5 >= 6 Then TextBox3 = DateAdd("d", -45, TextBox3)

بعد هذا السطر

TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2)

بالتوفيق 

[Alaaq3]

جزاك الله الف خير أستاذ محمد صالح .الكود يعمل باحسن ما يكون . ولكن هل بالامكان اضافة شرطاً ثالث ؟!

بمعنى ( اذا كانت السنوات اكبر اويساوي (1) و الشهور اكبر او يساوي (6) يتم انقاص (3)شهر من كل سنة  و (45) يوم من كل 6 اشهر فما فوق  . كذلك (الشرط الثالث) اذا كانت الشهور ((أكبر)) من 6 يتم انقاص (45) يوم  حتى وان كانت السنوات قيمتها 0 

---------

بصراحة حاولت كثيرا والنتيجة تكون غير صحيحة الكود قام بانقاص 45 يوم لمرتين اي 3 اشهر !!!

تحياتي لك استاذ محمد وشكراً من القلب لك

[أ / محمد صالح]

جميعا بإذن الله

الأمر الثاني بسيط جدا ولا يحتاج لمحاولات كثيرة

فقط يحتاج لفهم الشرطين وحذف أحدهما

بالتوفيق