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