اولین سه شنبه بعد از تاریخ داده شده

[wolfstander]

با سلام به همه دوستان
من از توابع تاریخی آقای میدانی تو برنامه ام استفاده میکنم
در این توابع
روز شنبه میشه صفر
یکشنبه = یک
دو شبنه =2
سه شنبه=3
چهارشنبه =4
پنجشنبه=5
جمعه =6
حالا من تو برنامه ام ، دو تا تاریخ دارم
اولیش تاریخ دریافت سفارش
دومیش: تاریخ تحویل سفارش
فرض کنیم که قرار باشه سفارشها همیشه روز سه شنبه تحویل داده بشن
امروز شنبه 1392.01.31 هستش
اولین سه شنبه میشه 1392.02.02
حالا چیزی که من میخوام اینه که به محض اینکه تاریخ سفارش گیری رو زدم، سیستم بیاد و 1392.02.02 رو برام بزنه
اما اگه روزچهاشنبه که میشه 1392.02.04 سفارشگیری رو زدم، سیستم بیاد و اولیه سه شنبه بعدش رو که میشه 1392.02.10 رو برام نمایش بده
آیا کسی میتونه راه حلش رو بگه ؟
فرمول رو نمیخوام
چگونگی اجراش رو میخوام
ممنون

[Abbas Amiri]

سلام
منظورتون از چگونگی اجراش رو نفهمیدم ولی الگوریتم خیلی ساده ای داره .


شما باید مقدار روز سفارش را بدست آورید(فرضا در متغیرCurrentDayWeek) اگر بزرگتر از 2 بود ، به تاریخ سفارش(OrderDate) مقدار CurrentDayWeek - 10 روز اضافه کنید ودر غیر این صورت CurrentDayWeek-3 روز
من با توابع خودم کار میکنم برای همین از اسامی توابع فرضی استفاده کردم ، شما با اسامی معتبر جایگزین کنید




CurrentDayWeek=WeekDay(OrderDate)
If CurrentDayWeek>2 then
DeliveryDate=AddDay(10- CurrentDayWeek, OrderDate)
Else
DeliveryDate=AddDay(3- CurrentDayWeek, OrderDate)
End If