Forums Últimos mensajes - Powered by IBM
 

Sumar a partir de Fecha

13/05/2010 - 17:21 por Jmfg14 | Informe spam
Hola Gente: un saludo a todos.
La pregunta es la siguiente
Necesito calcular la fecha Final de una Licencia a partir de una fecha
Inicial mas los dias que se ingresen (20 pos ejemplo) y sumarle los domingos
que correspondan
Ejemplo:
Dias Cominzo 17/05/2010
Dias Licencia 20
Dias Final ????
Tener en cuenta los domingos y feriados
Desde ya muchas gracias
Saludos desde Uruguay
 

Leer las respuestas

#1 José Mª Fueyo
13/05/2010 - 18:27 | Informe spam
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]

Preguntas similares