Alguem tem alguma idéia de como fazer para somar 60 dias úteis a uma determinada data??

 

Agradeço desde já

Se for em VB mesmo , Cdate("04/01/2006") + 60

 

Esperto ter Ajudado.

 

Roberto.

Mas são 60 dias úteis e não 60 dias corridos

Faça um loop de 0 ate a qtd de dias que voce quer somar .

Some a data com o valor do loop .

Para cada loop , um Format(DataSomada,"long date") .

Voce vai ter a string da data . Verifique se o Left de 3 do Format é = a SAB ou DOM .

 

Acho que essa logica deve ajudar algo o_O

Essa rotina só não vai levar em consideração os feriados

 

    Dim datafim As Date
    datafim = Date ' Data Inicial
    For t = 1 To 60
        If Weekday(datafim) = 6 Then
            datafim = datafim + 3
        Else
            datafim = datafim + 1
        End If
    Next t

 

Muito bom Daniel ...

So fazer um ajustezinho

 

    Dim datafim As Date
    datafim = Date ' Data Inicial
    For t = 1 To 1
        If Weekday(datafim) = 6 Then
            datafim = datafim + 3
        ElseIf Weekday(datafim) = 7 Then
            datafim = datafim + 2
        Else
            datafim = datafim + 1
        End If
    Next t

 

Pois se o dia atual for sabado , tem que pular 1 dia :)