Olá pessoal tenho duas textboxes cada uma com uma data que executa uma função calcular dias úteis :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(DiasUteis(Me.txtinicio.Text, Me.txtfim.Text))
End Sub
Private Function DiasUteis(ByVal dtInicio As Object, ByVal dtFinal As Object) As Integer
If Not IsDate(dtInicio) Or Not IsDate(dtFinal) Then
DiasUteis = 0
Exit Function
End If
Dim intSemanas As Integer
Dim varDataCont As Object
Dim intFimDias As Integer
Dim strDataCont As String
dtInicio = DateValue(dtInicio)
dtFinal = DateValue(dtFinal)
varDataCont = DateAdd("ww", intSemanas, dtInicio)
intFimDias = 0
Do While (varDataCont <= dtFinal)
strDataCont = Format$(varDataCont, "ddd")
If (Weekday(varDataCont) <> vbSaturday) Or (Weekday(varDataCont) <> vbSunday) Then
intFimDias = intFimDias + 1
varDataCont = DateAdd("d", 1, varDataCont)
End If
Loop
DiasUteis = intFimDias
End Function
Mas ta retornado o número de dias completo sem tirar os dias sabado e domingo .Que posso fazer ?
Porque o conhecimento é para o bem da humanidade
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(DiasUteis(Me.txtinicio.Text, Me.txtfim.Text))
End Sub
Private Function DiasUteis(ByVal dtInicio As Object, ByVal dtFinal As Object) As Integer
If Not IsDate(dtInicio) Or Not IsDate(dtFinal) Then
DiasUteis = 0
Exit Function
End If
Dim intSemanas As Integer
Dim varDataCont As Object
Dim intFimDias As Integer
Dim strDataCont As String
dtInicio = DateValue(dtInicio)
dtFinal = DateValue(dtFinal)
varDataCont = DateAdd("ww", intSemanas, dtInicio)
intFimDias = 0
Do While (varDataCont <= dtFinal)
strDataCont = Format$(varDataCont, "ddd")
If (Weekday(varDataCont) <> vbSaturday) Or (Weekday(varDataCont) <> vbSunday) Then
intFimDias = intFimDias + 1
varDataCont = DateAdd("d", 1, varDataCont)
End If
Loop
DiasUteis = intFimDias
End Function
Mas ta retornado o número de dias completo sem tirar os dias sabado e domingo .Que posso fazer ?
Porque o conhecimento é para o bem da humanidade