Form üzerinde tarih hesaplatma

[nothing06]

Merhaba arkadaşlar,
Vba da yazdığım programda teslim tarihini hesaplayamadım. Yardımcı olur musunuz?
Sipariş tarihi, miktar, Çalışan sayısı userform üzerinden çekilmektedir.
Teslim tarihini, standart süre ile miktarı çarpıp, çalışan sayısına bölerek elde eden sayıyı da sipariş tarihine ekleyerek vermesi gerekmektedir.
Hafta sonları dahil değil ve mesai saatleri 08:00 ile 18:00 arasındadır.
dosyanın linki burdadır.

 

[muratboz06]

Textbox5 (Sipariş tarihi) e ait kodları aşağıdaki gibi değiştirirseniz olacaktır.
Textbox6 ya (Teslim tarihi) ait kodları da silebilirsiniz. Aşağıdaki kod Textbox6 ya tarih verisi ekleyecek.

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox5.Value = CDate(TextBox5)
TextBox5.Value = Format(TextBox5.Value, "dd.mm.yyyy")
TextBox6.Value = Format(DateAdd("d", TextBox7.Value * TextBox3.Value / TextBox4.Value, TextBox5.Value), "dd.mm.yyyy")
End Sub

 

[nothing06]

Textbox5 (Sipariş tarihi) e ait kodları aşağıdaki gibi değiştirirseniz olacaktır.
Textbox6 ya (Teslim tarihi) ait kodları da silebilirsiniz. Aşağıdaki kod Textbox6 ya tarih verisi ekleyecek.

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox5.Value = CDate(TextBox5)
TextBox5.Value = Format(TextBox5.Value, "dd.mm.yyyy")
TextBox6.Value = Format(DateAdd("d", TextBox7.Value * TextBox3.Value / TextBox4.Value, TextBox5.Value), "dd.mm.yyyy")
End Sub

Çook Teşekkür ederim bu halde çalıştı fakat hesaplarken hafta sonunu ve mesai saatlerini nasıl dahil edebilirim

 

[nothing06]

güncel