none
Cálculo de dias Úteis

    Pergunta

  • 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
    domingo, 15 de março de 2009 20:06

Todas as Respostas