Vitor Hugo

Companheiro, localizei tal código na Internet, creio que irá ajudar: Function CalculaDiasUteis(dataInicio As Variant, dataFinal As Variant) As Integer Dim intSemanas As Integer Dim varDataCont As Variant Dim intFimDias As Double dataInicio = DateValue(dataInicio) dataFinal = DateValue(dataFinal) intSemanas = DateDiff("w", dataInicio, dataFinal) varDataCont = DateAdd("ww", intSemanas, dataInicio) intFimDias = 0 Do While varDataCont < dataFinal 'desconta os sábados e domingos If Format(varDataCont, "ddd") <> "Sun" And Format(varDataCont, "ddd") <> "Sat" Then intFimDias = intFimDias + 1 End If varDataCont = DateAdd("d", 1, varDataCont) Loop CalculaDiasUteis = intSemanas * 5 + intFimDias End Function