İleri Tarih Belirleme

1 2 3
20/05/2023, 10:27

karaayhan

(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
20/05/2023, 14:22

berduş

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;
20/05/2023, 15:57

berduş

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, 21:00

karaayhan

(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
20/05/2023, 21:24

berduş

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
21/05/2023, 00:24

karaayhan

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...
1 2 3