Forums Últimos mensajes - Powered by IBM
 

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
 

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]

Preguntas similares