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

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.

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

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) 

Sayın berduş Hocam Allah cc razı olsun

---

geç cevap verdiğim içinde ayrıca özür dilerim

Sayın atoykan Hocam Allah cc razı olsun
geç gördüğüm ve geç cevap verdiğim için çok özürdilerim