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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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]

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida