Saltar días festivos
Estoy intentando en access desde visual basic sumar a una fecha un nº determinado de días pero que se salte los días festivos y de como resultado la fecha correcta
ejemplo
fecha : 18/06/04 (viernes)
Días a sumar : 7
Fecha resultante sin contar festivos (sábado y domingo) : 27/06/04
voy un poco perdido y he leído tu consulta
podrías ayudarme
ejemplo
fecha : 18/06/04 (viernes)
Días a sumar : 7
Fecha resultante sin contar festivos (sábado y domingo) : 27/06/04
voy un poco perdido y he leído tu consulta
podrías ayudarme
1 respuesta
Respuesta de keok
1
Supongo que habrá varias formas de conseguirlo, pero ahora mismo a mi se me ocurre esta, a ver que tal te parece:
Dim i As Integer
Dim a As Date
a = TUFECHAORIGEN
For i = 1 To 7
If Format(a, "dddd") <> "viernes" Then
a = a + 1
Else
a = a + 3
End If
Next i
TUFECHAFINAL=a
Dim i As Integer
Dim a As Date
a = TUFECHAORIGEN
For i = 1 To 7
If Format(a, "dddd") <> "viernes" Then
a = a + 1
Else
a = a + 3
End If
Next i
TUFECHAFINAL=a
1 saludo de keok.
Por favor finaliza la pregunta, gracias.
