حذف يوم من تاريخ معين تلقائى

[figo82eg]

ارجو المساعدة حيث قمت فى مثال سابق ساعدنى  فى الحل الأخ محمد ابو عبدالله بهذا الكود العظيم وهذا فى حالة اضافة ايام وسنوات على تاريخ معين.

Private Sub start_date_Exit(Cancel As Integer)

Dim i As Date

Dim j As Date

 i = DateAdd("YYYY", 7, [start_date])

j = DateAdd("d", 1, i) end_date = j 

 End sub

ما اريده هو الأن هو العكس اريد ان احذف ايام وسنوات من تاريخ معين 

[jjafferr]

وعليكم السلام 🙂

 

1 ساعه مضت, figo82eg said:

ما اريده هو الأن هو العكس اريد ان احذف ايام وسنوات من تاريخ معين 

 

بدل ان تستعمل الرقم الموجب ، استعمل علامة ناقص (-) قبل الرقم ، حتى يعرف البرنامج انك تريد طرح هذه المدة ، هكذا :

اقتباس

 i = DateAdd("YYYY", -7, [start_date])

j = DateAdd("d", -1, i) 

جعفر