Access - Calcular primer día de la semana

   
Vista:

Calcular primer día de la semana

Publicado por PacoMc (2 intervenciones) el 15/03/2017 19:30:32
Buenos días a todos.

He creado un formulario y necesito que al introducir un número de semana me devolviera la fecha del lunes de esa semana.

Al revés es muy fácil, pero no veo como puedo hacerlo de esta forma

Muchas gracias a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Calcular primer día de la semana

Publicado por raipon (4 intervenciones) el 15/03/2017 20:45:48
1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim Semanas As Integer
Dim FirstDate As Date
Dim result As Date
 
    Semanas = 50
    FirstDate = DateSerial(Year(Date), 1, 1) 'Fecha a uno de enero del corriente
    result = DateAdd("ww", Semanas, FirstDate) 'Obtenemos una fecha con idéntico dia de la semana en la semana que indica la variable Semanas
    result = DateAdd("d", -Weekday(result, vbMonday) - 1, result) 'Obtenemos el lunes
    MsgBox result
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Calcular primer día de la semana

Publicado por PacoMc (2 intervenciones) el 16/03/2017 17:52:59
Muchas gracias por tu aportación raipon

Probaré a ver si me funciona en mi base

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar