Consulta access

[Marcosjimenez]

Buenas a todos,

tengo un problema en access el caso es que estoi aicneo una consulta a la cual le paso una fecha (Date), y de esa fecha, independientemente la que sea quiero que me de, el lunes de esa semana, es decir hoy estamos a miercoles 18, pues kerria transformarla en lunes 16.

He utilizado la funcion format firstdayofweek pero no consigo que funcione:

SELECT (Format([Date],[ format,firstdayofweek])) AS Date1.......

Alguien podria ayudarme con esto?

Un saludo y muchas gracias de antemano

[Taribo007]

Mira estas funciones:

' ( @ @ )
'-----------------------------oOOo-(_)-oOOo--------------------------
'| |
'| CREADO POR: Andrés González García (Taribo) |
'| UTILIDAD: Devuelve el primer lunes anterior a la fecha pasada |
'| como parametro |
'| FECHA: 25 de Septiembre de 2008 |
'| AGRADECIMIENTOS:Foro de Access y VBA |
'| OBSERVACIONES: http://www.mvp-access.com/foro/ |
'---------------------------------------Oooo.------------------------
' .oooO ( )
' ( ) ) /
' \ ( (_/
' \_)
Public Function LunesAnterior(FechaEntrada As Date) As Date

While Weekday(FechaEntrada, vbMonday) > 1
FechaEntrada = FechaEntrada - 1
Wend

LunesAnterior = FechaEntrada
End Function


' ( @ @ )
'-----------------------------oOOo-(_)-oOOo--------------------------
'| |
'| CREADO POR: Andrés González García (Taribo) |
'| UTILIDAD: Devuelve el primer lunes anterior a la fecha pasada |
'| como parametro |
'| FECHA: 25 de Septiembre de 2008 |
'| AGRADECIMIENTOS:Foro de Access y VBA |
'| OBSERVACIONES: http://www.mvp-access.com/foro/ Una idea de |
'| Oirausu (Julian Sanchez) |
'---------------------------------------Oooo.------------------------
' .oooO ( )
' ( ) ) /
' \ ( (_/
' \_)
Public Function LunesAnteriorOirausu(FechaEntrada As Date) As Date
LunesAnteriorOirausu = FechaEntrada - Weekday(FechaEntrada, vbMonday) + 1
End Function

Un saludo