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

Preguntas similare

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]
Respuesta Responder a este mensaje
#2 Jmfg14
14/05/2010 - 20:02 | Informe spam
Muchas Gracias José.
Voy a probar dicho codigo , despues comento
Saludos desde Uruguay
Respuesta Responder a este mensaje
#3 Jmfg14
18/05/2010 - 17:03 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida