انقاص الكسور من تاريخ معين (مثال: بدل ان اكتب (- ٤٥ يوم) اكتب بدل عنها "شهر ونصف" )

[Alaaq3]

كيف اعبر عن انقاص الكسور من تاريخ معين (مثال: بدل ان اكتب (- ٤٥ يوم) اكتب بدل عنها "شهر ونصف" ) او اكتب انقاص ثلث التاريخ او ربع التاريخ 

DateAdd("d", (Val(TextBox4) * -45)

[حسين مامون]

اليك هذا ربما تستفيد منه

addDT.xlsm

[Alaaq3]

شكراً اخي العزيز : الكود رائع واستفدت منه كثيرا.  ولكن انا اريد ان اكتب صيغة الكسور ( النصف او الثلث او الربع) .  مثلاً هذا الكود الي بالاسفل يقوم بانقاص 45 يوم من كل 6 اشهر (اي الربع) . ما اريده هو كتابة (ComboBox3 * -1.5) مثلا

TextBox3.Value = Format(DateAdd("d", (ComboBox3 * -45), TextBox2), "YYYY/MM/DD")

 

توضيح اكثر : مثلا اريد ان اقوم بإنقاص الربع او النصف او الثلث من الـ 7 اشهر 

[حسين مامون]

اخي الكريم 

حاولت مساعدتك ولكن لم اتوصل لحل لما تريد ربما يتقدم احد الاخوة بفكرة اخرى

تحياتي