(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...