İleri Tarih Belirleme

(05/09/2021, 12:59)berduş yazdı: aşağıdaki kodu dener misiniz

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

sayın berduş
bu kodları sorgu(Sql) olarak uygulama imkanı var mı acaba

modül ekleyip o fonksiyonu sub yerine function olarak tanımlarsanız sorguda kullanabilirsiniz
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;

fonksiyonsuz kullanmak isterseniz sorgu kodu

SELECT Tablo1.baslamatarihi, DateAdd("m",1,[baslamatarihi])+Choose(DateAdd("m",1,[baslamatarihi]) Mod 7+1,2,1,0,1,0,1,0) AS Bitis

FROM Tablo1;

(20/05/2023, 14:22)berduş yazdı: modül ekleyip o fonksiyonu sub yerine function olarak tanımlarsanız sorguda kullanabilirsiniz
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;

pazar hariç diğer günler olması için ne yapabiliriz

farklı bir soruysa yeni konu açıp orda sormalısınız
ama bu konuda pazartesi, çarşamba ve cuma dışındakileri en yakın pazartesi, çarşamba yada cumaya çekecektik
"pazar hariç" derken neyi kast ettiğinizi anlamadım

p.tesi-salı-çarşamba-perşembe-cuma-c.tesi (pazar hariç)
ödeme günleri bunların tamamında yapılabiliyor bazı kalemlerde
bu örnek p.tesi-çrşb.-cuma için çalıyor...