AccessTr.neT

Tam Versiyon: İleri Tarih Belirleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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
Sayfalar: 1 2 3