AccessTr.neT

sayın üyeler,
aslangıç tarihi bugün olan bir verinin bitiş tarihi
olarak 1 ay sonrasındaki; ilk p.tesi, çrşb veya cuma gününden hangisine rastlıyorsa
o tarihin bitiş tarihi olarak verilmesini istiyoruz.
şimdiden tsk ederim.

dateadd fonksiyonunu kullanabilirsiniz

DateAdd("m", 1, Me.baslamatarihi)

sayın berduş
mesela bastarihi=05/09/2021 olsun
btiş tar=05/09/2021 (salı) oluyor
oysaki salı ödeme günü değil
ödeme günleri; p.tesi-çarşamba-cuma
dolayısıyla burada bitiş tarihi= 06/09/2021(çarşamba) olmalıydı
bir ay sonrası rastlayan tarih perşembe ise (bitiş tarihi CUMA olmalı)
yok bitiş tarihi bu üç güne rastlarsa aynı gün yazmalı

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

harika elinize sağlık üstad

Rica ederim
İyi çalışmalar