İzin günü pazar hariç hesapla

[işsiz123]

Selamün Aleyküm
Arkadaşlar şimdi ben textbox1 e başlangıç tarihi "07.07.2018" yazacam textbox2 toplaam izin günü "4 gün" hesaplarken pazar gününü izinden gitmesin

Örnek
emin 4 gün izin alıyor izin başlama tarihi 06.07.2018 cuma günü
07.07.2018 cumartesi izin
08.07.2018 pazar sayılmayacak
09.07.2018pazartesi izin
10.07.2018 salı izin
11.07.2018 çarşamba izin
12.07.2018 işe başlama tarihi textbox3 e yazılacak

Şimdi den Teşekkürler

 

[Haluk]

Bir CommandButton kullanılarak, şöyle bir kod olabilir ....

    TextBox3 = Format(Application.WorksheetFunction.WorkDay(CDate(TextBox1.Value), TextBox2.Value), "dd.mm.yyyy")

Not: Sanırım Workday fonksiyonu Cumartesi günlerini de tatil kabul ediyor. Tam sağlıklı sonuçlar vermez o zaman herhalde....

.

 

[Haluk]

Sadece Pazar günü hafta sonu tatili ise, aşağıdakini kullanabilirsiniz.

    TextBox3 = Format(Application.WorksheetFunction.WorkDay_Intl(CDate(TextBox1.Value), TextBox2.Value, 11), "dd.mm.yyyy")

.

 

[işsiz123]

Sadece Pazar günü hafta sonu tatili ise, aşağıdakini kullanabilirsiniz.

    TextBox3 = Format(Application.WorksheetFunction.WorkDay_Intl(CDate(TextBox1.Value), TextBox2.Value, 11), "dd.mm.yyyy")

.

Haluk Bey Teşekkürler

 

[Haluk]

Kolay gelsin ...

.