Skip to main content

AccessTr.neT


Tarih

metınaycıcek
metınaycıcek
5
264

Tarih

#1
Sayın Hocalarım herkese hayırlı günler.
göndermiş olduğum vt 'de işe başlama tarihi bir türlü yapamadım. sıkıntım izin bitiş tarihi hafta sonuna geldiğinde işe başlama tarihi pazartesi tarihini ,izin bitiş tarihi hafta içi'ne geldiğinde işe başlama tarihi bir gün sonrasını yazmasını sağlam,
şimdiden Allah cc razı olsun.

Sayın Hocalarım yanlış yere açmışım konuyu özür dilerim
.rar İZİN.rar (Dosya Boyutu: 51,39 KB | İndirme Sayısı: 1)
Son Düzenleme: 23/11/2022, 15:33, Düzenleyen: metınaycıcek.
Cevapla
Çözüldü #2
Sayın Hocalarım vt yanlış yerde açtığım için özür dilerim.
göndermiş olduğum vt 'de işe başlama tarihi bir türlü yapamadım. sıkıntım izin bitiş tarihi hafta sonuna gelirse işe başlama tarihi pazartesi tarihini ,izin bitiş tarihi hafta içi'ne gelirse işe başlama tarihi bir gün sonrasını yazmasını sağlamak,
şimdiden Allah cc razı olsun.
vt yanlış yerde açtığım için Tekrardan özür dilerim.
.rar İZİN.rar (Dosya Boyutu: 51,5 KB | İndirme Sayısı: 4)
Cevapla
#3
İzin bitiş tarihinizin güncelleştirme sonrasına
If Weekday(btstrh) = vbFriday Then
Me.ısbtstrh = btstrh + 3
ElseIf Weekday(btstrh) = vbSaturday Then
Me.ısbtstrh = btstrh + 2
ElseIf Weekday(btstrh) = vbSunday Then
Me.ısbtstrh = btstrh + 1
Else
Me.ısbtstrh = btstrh + 1
End If
kodunu ekleyin. İzin bitişiniz Cuma gününe gelirse Cumartesi işbaşı yapacak derseniz vbFirday if bloğunu silin vb saturday bloğunu ElseIf değil If olarak başlatın. Yukarıdaki kod Cuma,Cumartesi ve Pazar gününe gelirse Pazartesi gününün tarihini, diğer günlerde bir gün sonrasını verir.
Cevapla
#4
Alternatif olarak aşağıdakine benzer bir kod da kullanılabilir
Daha önce başka bir çalışmada kullanmıştım
Gün  yerine 1 yazılmalı
Tarih + Gün+ IIf((Tarih + Gün) Mod 7 < 2, 2 - (Tarih + Gün) Mod 7, 0) 
Cevapla
#5
Sayın berduş Hocam Allah cc razı olsun

geç cevap verdiğim içinde ayrıca özür dilerim
Son Düzenleme: 25/11/2022, 08:51, Düzenleyen: metınaycıcek.
Cevapla
#6
Sayın atoykan Hocam Allah cc razı olsun
geç gördüğüm ve geç cevap verdiğim için çok özürdilerim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task