Access - gestion de fechas

   
Vista:

gestion de fechas

Publicado por Pedro (3 intervenciones) el 06/08/2013 09:30:12
Hola a todos

Tengo una base de datos con un campo de fecha_inicio y otro con fecha_final, desearia lo siguiente para actualizar estas fechas, la fecha de inicio sera el lunes de la fecha que pongamos en el DateTimePiker y en la fecha_final , pondremos la fecha del domingo en funcion de la fecha entrada DateTimePiker, esa es la idea, pero no se como hacer el proceso vba, si alguno me lo quiere explicar estaria muy agradecido
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

gestion de fechas

Publicado por jose (86 intervenciones) el 07/08/2013 19:23:08
pedro:

necesitas hacer un proceso para encontrar el dia 2 y el 7 de la semana, de la fecha del datetimepiker
este es el codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub fecha_AfterUpdate()
diasemana = Weekday(datetimepiker)
fechalunes = datetimepiker
Do While diasemana <> 2
On Error GoTo salir
   If diasemana > 2 Then
       fechalunes = fechalunes - 1
       diasemana = diasemana - 1
    End If
    If diasemana < 2 Then
        fechalunes = fechalunes + 1
        diasemana = diasemana + 1
    End If
Loop
salir:
End Sub


esto es solo para el lunes usa el mismo codigo para el domingo claro cambiando el 2 por el 7
esto puede depender de como tengas configurad el primer dia de la semana en tu sistema

y por supuesto que este codigo se puede mejorar...


espero te sirva
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

gestion de fechas

Publicado por Pedro (3 intervenciones) el 09/08/2013 16:54:22
Muy agradecido Jose, Un saludo
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