QUANTOS DIAS UTEIS NO MES?

MARCOS 20/08/2007 14:13:00
#231659
Pessoal,
Tem como saber a quantidade de dias úteis
num mês,usando VB ?
USUARIO.EXCLUIDOS 20/08/2007 14:27:05
#231665 Resposta escolhida
Utilize a função abaixo! COloque em um modulo...


Public Enum NomeMes
    Janeiro = 1
    Fevereiro = 2
    Março = 3
    Abril = 4
    Maio = 5
    Junho = 6
    Julho = 7
    Agosto = 8
    Setembro = 9
    Outubro = 10
    Novembro = 11
    Dezembro = 12
End Enum

[c]Public Function DiasUteis(Mes As NomeMes, Ano As Long) As Integer
    Dim QtdeDias As Integer
    Dim QtdeUteis As Long
    
    'Pega a Qtde de dias do Mês
    QtdeDias = Day(DateSerial(Ano, Mes + 1, 0))
    
    'faz um Loop em cada dia do Mes
    For i = 1 To QtdeDias
        'verifica se não é sabado nem domingo
        If Weekday(DateSerial(Ano, Mes, i)) <> 7 And Weekday(DateSerial(Ano, Mes, i)) <> 1 Then
            'soma mais um na quantidade de dias úteis
            QtdeUteis = QtdeUteis + 1
        End If
    Next
    
    DiasUteis = QtdeUteis
End Function

[/c]
SERGIO.CARDOSO 20/08/2007 14:33:22
#231667
Private Function DiasUteis(D As Date) As Integer
Dim Data1, Data2 As Date
Data1 = DateSerial(Year(D), Month(D), 1)
Data1 = Data1 + 45
Data1 = DateSerial(Year(Data1), Month(Data1), 1) - 1
DiasUteis = 0
For x = 1 To Day(Data1)
Data2 = DateSerial(Year(Data1), Month(Data1), x)
If Weekday(Data2) <> 1 And Weekday(Data2) <> 7 Then
DiasUteis = DiasUteis + 1
End If
Next x
End Function
USUARIO.EXCLUIDOS 20/08/2007 15:01:01
#231676
Tem também os feriados... Que não são dias úteis...
USUARIO.EXCLUIDOS 20/08/2007 15:03:14
#231677
Referente os feriados creio que via código é IMPOSSÍVEL de tratar.

Ao menos que vc crie consistências, crie uma tabela com os feriados ou algo do tipo... Aí vai da criatividade mesmo.
Tópico encerrado , respostas não são mais permitidas
Voltar