Primer dia semana

06/05/2010 - 17:01 por busqueda en access | Informe spam
Hola, como hago para que en un campo fecha el valor predeterminado sea el
primer dia de la semana y otro el ultimo, ej hoy es 6-5-2010, ocupo dos
campos en que al entrar uno sea 3-5-2010 y otro 9-5-2010.

Gracias

Preguntas similare

Leer las respuestas

#1 José Mª Fueyo
06/05/2010 - 17:29 | Informe spam
Hola
Esta función devuelve la fecha que pides en función de un número que
le pasas como criterio:

- 1, la fecha inicial
- 2, la fecha final.

<pego>
Public Function FechaInicFin(iTipo As Integer) As Date
Dim i As Integer, dIntermedio As Date
i = Weekday(Date, vbMonday)
Select Case iTipo
Case 1 'Día inicial
i = i - 7
Case 2 'Día final
i = 7 - i
End Select
dIntermedio = DateAdd("d", i, Date)
FechaInicFin = dIntermedio
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]
Respuesta Responder a este mensaje
#2 Ignacio
07/05/2010 - 09:57 | Informe spam
Puedes utilizar las siguientes fórmulas directamente:
FechaInicialSemana = DateAdd("d", 1 - Weekday(Fecha, vbMonday),
Fecha)
FechaFinalSemana = DateAdd("d", 7 - Weekday(Fecha, vbMonday),
Fecha)

Espero que te sirva de algo.

Un saludo,
Ignacio.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida