Sumar a partir de Fecha

Hola
Mira en la ayuda la función DateAdd, te servirá para calcular una
fecha agregándole un número de días.
Para tener en cuenta domingos y festivos, yo te recomiendo tener una
tabla de festivos, que rellenes a comienzo de cada año.
Con DateAdd calculas la fecha más el periodo dado. A la fecha
obtenida, la comparas con la tabla de fiestas. Que la fecha calculada
es festivo, le sumas un día y vuelves a comprobar. Así hasta que la
fecha calculada no esté en tu tabla de festivos.
Imaginate que tienes una tabla de festivos llamada tblFestivos, con un
solo campo (de tipo fecha) llamado Fecha.
Esta función te permitiría calcular la fecha según intervalo, teniendo
en cuenta sí el día calculado es festivo (o feriado, como dices tu) o
no. En ese caso, calcula el siguiente día hasta que no sea feriado

<pego>
Public Function CalcularFecha(dFecha As Date, iPeriodo As Integer) As
Date
Dim dTemp As Date, i As Integer
dTemp = DateAdd("d", iPeriodo, dFecha)
i = DCount("Fecha", "tblFiestas", "Fecha=#" & Format(dTemp, "mm/dd/
yyyy") & "#")
Do While i > 0
dTemp = DateAdd("d", 1, dTemp)
i = DCount("Fecha", "tblFiestas", "Fecha=#" & Format(dTemp,
"mm/dd/yyyy") & "#")
Loop
CalcularFecha = dTemp
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]