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]

Muchas Gracias José.
Voy a probar dicho codigo , despues comento
Saludos desde Uruguay

Hola Nuevamente José Mª.
Te pido que me ayudes otro poco si no es mucha molestia.
Esto es el codigo escrito
Private Sub Texto37_Exit(Cancel As Integer)
' texto 37 ingreso los dias de licencia
' Texto 21 calcula los domingos que hay entre las 2 fechas esto va en
Origen de control
=DifFecha("ww";[fechainicio];[fechafin];1)-(DíaSemana([fechainicio])=1)

Dim variableauxiliar As Variant
Dim TipoIntervalo As String

TipoIntervalo = "d" ' "m" especifica dias como intervalo.

variableauxiliar = DateAdd(TipoIntervalo, Texto37, FechaInicio)
FechaFin = variableauxiliar
FechaFin = ((variableauxiliar + (Texto21)) - 1)
Dias = Texto37
End Sub

Pero quisiera leer la tabla "tblFiestas" y obtener el dias final de la
licencia
PD. FechaComienzo es un campo donde ingreso el comienzo de la licencia

Desde ya muchas gracias