Tarih

23/11/2022, 15:30

metınaycıcek

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
24/11/2022, 01:47

metınaycıcek

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.
24/11/2022, 22:48

atoykan

İ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.
24/11/2022, 23:27

berduş

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) 
25/11/2022, 08:48

metınaycıcek

Sayın berduş Hocam Allah cc razı olsun

geç cevap verdiğim içinde ayrıca özür dilerim
25/11/2022, 09:04

metınaycıcek

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