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