Jefferson2512
Board Regular
- Joined
- Sep 16, 2019
- Messages
- 53
I am using a Userform and a vba code in Networkdays .. can someone help me with my problem about networkdays that won't include the weekends/holidays ?
Code:
Dim dblNetworkDays As Long
Dim dblNetworkDays1 As Long
dblNetworkDays = -(WorksheetFunction.NetworkDays(txt1, txt2))
dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt1, txt2) - 1) * 5)
If txt1.Value = "" Or txt2.Value = "" Then
lbl1.Caption = ""
ElseIf txt1.Value = txt2.Value Or txt1.Value > txt2.Value Then
lbl1.Caption = "-"
ElseIf dblNetworkDays = -(WorksheetFunction.NetworkDays(txt1, txt2)) Then
lbl1.Caption = dblNetworkDays
Me.lbl1.Caption = Format(lbl1.Caption, "[Blue]###,##(0);[Red](###,##0)")
End If
If txt1.Value = "" Or txt2.Value = "" Then
lblTotal.Caption = ""
ElseIf txt1.Value = txt2.Value Or txt1.Value > txt2.Value Then
lblTotal.Caption = "100.00"
ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt1, txt2) - 1) * 5) Then
lblTotal.Caption = dblNetworkDays1
If lblTotal.Caption <= 0 Then
lblTotal.Caption = "0.00"
End If
Me.lblTotal.Caption = Format(Me.lblTotal.Caption, "##0.00")
End If
enlbl.Caption = lblTotal.Caption