modül kodu:
Function BitisTrh(xBasT As Date) As Date
trh = DateAdd("m", 1, xBasT)
gn = trh Mod 7
ekl = 0
If InStr("0135", gn) > 0 Then If gn < 2 Then ekl = 2 - gn Else ekl = 1
BitisTrh = trh + ekl
End Function
sorgu kodu:SELECT Tablo1.baslamatarihi, BitisTrh([baslamatarihi]) AS Bitiş
FROM Tablo1;