مسألة في عملية حسابية واجازة نهاية الاسبوع

نحتاج لعمل دالة وضمها لوحدة نمطية

Function WorkDate(From As Date, Days As Integer) As Date
  Dim WDate As Date
  Dim WWDay As VbDayOfWeek

  WDate = From + Days
  WWDay = Weekday(WDate)


  If WWDay = vbFriday Then WDate = WDate + 2
  If WWDay = vbSaturday Then WDate = WDate + 1

  WorkDate = WDate
End Function

ثم نستخدمها في الإستعلام بهذه الصيغة

SELECT dates.days, dates.from, WorkDate([from],[Days]) AS workdate, Weekday([WorkDate]) AS WeekDay
FROM dates;

بارك الله فيك أخي Accessna

الحل واضح جدا واشتغل معاي

وجزاك الله كل خير