CALCULO DE FERIAS DO TRABALHADOR

Module Calculo_Feriados
    [ô]Dias Feriados
    Public Function DiaFeriado(ByVal Data As Date) As Boolean
        Dim Dia As Integer = Data.Day
        Dim Mes As Integer = Data.Month
        Dim Ano As Integer = Data.Year

        [ô]Festas moveis
        If Data.Date = Carnaval(Ano).Date Then Return True [ô][Ô]Entrudo/Carnaval[Ô]
        If Data.Date = SextaFeiraSanta(Ano).Date Then Return True [ô] [Ô]Sexta-Feira Santa[Ô]
        If Data.Date = Pascoa(Ano).Date Then Return True [ô][Ô]Páscoa[Ô]
        If Data.Date = CorpoDeDeus(Ano).Date Then Return True [ô][Ô]Corpo de Deus[Ô]

        [ô]Feriados e dias Santos Fixos
        If Dia = 1 And Mes = 1 Then Return True [ô][Ô]Ano Novo[Ô]
        If Dia = 25 And Mes = 4 Then Return True [ô][Ô]Dia da Liberdade[Ô]
        If Dia = 1 And Mes = 5 Then Return True [ô][Ô]Dia do Trabalhador[Ô]
        If Dia = 10 And Mes = 6 Then Return True [ô][Ô]Dia de Portugal[Ô]
        If Dia = 15 And Mes = 8 Then Return True [ô][Ô]Assunção de Maria[Ô]
        If Dia = 5 And Mes = 10 Then Return True [ô][Ô]Implantação da República[Ô]
        If Dia = 1 And Mes = 11 Then Return True [ô][Ô]Todos os Santos[Ô]
        If Dia = 1 And Mes = 12 Then Return True [ô][Ô]Restauração da Independência[Ô]
        If Dia = 8 And Mes = 12 Then Return True [ô][Ô]Imaculada Conceição[Ô]
        If Dia = 25 And Mes = 12 Then Return True [ô][Ô]Natal[Ô]

        [ô]Feriados Locais
        [ô]If Dia = 1 And Mes = 7 Then Return [Ô]R[Ô] [ô][Ô]Feriado Regional(Madeira)[Ô]
        [ô]If Dia = 21 And Mes = 8 Then Return [Ô]M[Ô] [ô][Ô]Feriado Municipal(Funchal)[Ô]
        [ô]etc...

        Return False [ô][Ô]Dia Util[Ô]
    End Function

    [ô]Festas Moveis
    Public Function Carnaval(ByVal Ano As Integer) As Date
        Dim D As Date = Pascoa(Ano)
        Return DateSerial(Ano, D.Month, D.Day - 47)
    End Function

    Public Function SextaFeiraSanta(ByVal Ano As Integer) As Date
        Dim D As Date = Pascoa(Ano)
        Return DateSerial(Ano, D.Month, D.Day - 2)
    End Function

    Public Function Pascoa(ByVal Ano As Integer) As Date

        Dim A As Integer = Ano Mod 19
        Dim B As Integer = Int(Ano / 100)
        Dim C As Integer = Ano Mod 100
        Dim D As Integer = Int(B / 4)
        Dim E As Integer = B Mod 4
        Dim F As Integer = Int((B + 8) / 25)
        Dim G As Integer = Int((B - F + 1) / 3)
        Dim H As Integer = (19 * A + B - D - G + 15) Mod 30
        Dim I As Integer = Int(C / 4)
        Dim J As Integer = C Mod 4
        Dim L As Integer = (32 + 2 * E + 2 * I - H - J) Mod 7
        Dim M As Integer = Int((A + 11 + H + 22 * L) / 451)

        Dim Mes As Integer = Int((H + L - 7 * M + 114) / 31)
        Dim Dia As Integer = 1 + ((H + L - 7 * M + 114) Mod 31)

        Return DateSerial(Ano, Mes, Dia)
    End Function

    Public Function CorpoDeDeus(ByVal Ano As Integer) As Date
        Dim D As Date = Pascoa(Ano)
        Return DateSerial(Ano, D.Month, D.Day + 60)
    End Function

End Module  

Public Class Form1
    Private Function AdicionaTempo(pDataInicial As DateTime, pDias As Integer) As DateTime
        Dim resultado As DateTime = pDataInicial


        While pDias > -1
            [ô]Se é sábado=2 (ando dois dias para a frente), domingo ou feriado=1 (ando um dia para frente)

            If resultado.DayOfWeek = DayOfWeek.Saturday Then
                resultado = resultado.AddDays(2)
            ElseIf resultado.DayOfWeek = DayOfWeek.Sunday Then
                resultado = resultado.AddDays(1)
            ElseIf DiaFeriado(resultado).Equals(True) And Not resultado.DayOfWeek = DayOfWeek.Saturday Or resultado.DayOfWeek = DayOfWeek.Sunday Then
                resultado = resultado.AddDays(1)
                [ô]Ou se quiser adicionar um dia útil (X horas trabalhadas = 1 dia útil)
            ElseIf pDias > 0 Then
                resultado = resultado.AddDays(1)
                pDias -= 1
                [ô]Se a data final for no fim de semana ou feriado
            ElseIf pDias = 0 Then
                While resultado.DayOfWeek = DayOfWeek.Saturday OrElse resultado.DayOfWeek = DayOfWeek.Sunday OrElse DiaFeriado(resultado).Equals(True)
                    MsgBox([Ô][Ô])
                    [ô]Se é sábado=2 (ando dois dias para a frente), domingo ou feriado=1 (ando um dia para frente)
                    If resultado.DayOfWeek = DayOfWeek.Saturday Then
                        resultado = resultado.AddDays(2)
                    ElseIf resultado.DayOfWeek = DayOfWeek.Sunday Then
                        resultado = resultado.AddDays(1)
                    ElseIf DiaFeriado(resultado).Equals(True) And Not resultado.DayOfWeek = DayOfWeek.Saturday Or resultado.DayOfWeek = DayOfWeek.Sunday Then
                        resultado = resultado.AddDays(1)

                    End If
                End While
                pDias = -1
            End If
        End While
        Return resultado
    End Function
    [ô]=================================================================================================
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    [ô]Acréscimo de 13 dias a serem gozados pelo trabalhador.         
  MsgBox(AdicionaTempo([Ô]27/04/2012[Ô], 13))
    End Sub

End Class