Quantcast
Channel: Cálculo de dias Úteis
Viewing all articles
Browse latest Browse all 7

Cálculo de dias Úteis

0
0
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

Viewing all articles
Browse latest Browse all 7

Latest Images





Latest Images