trh = DateAdd("m", 1, Me.baslamatarihi)
gn = trh Mod 7
ekl = 0
If InStr("0135", gn) > 0 Then If gn < 2 Then ekl = 2 - gn Else ekl = 1
Me.bitistarihi = trh + ekl
aşağıdaki kodu dener misiniz