Below is the VBA Code:
Function six_days_working(start_date As Long, End_date As Long) As Long
Dim i, j As Long
For i = start_date To End_date
If VBA.Weekday(i, vbMonday) < 7 Then
j = j + 1
End If
Next
six_days_working = j
End Function
Hope this will help.....
Shweta