Trabajando con fechas

Hola a todos, gracias por contestar, al final lo solucione asi:

Dim fini as new datetime

fini=Today.AddDays(8 - Today.DayOfWeek)

Gracias
Fadoyo


"Jesús López" wrote in message
news:

Dim Today As Date = Date.Today
Dim DaysToAdd As Integer = 7 + CInt(DayOfWeek.Monday) -
CInt(Today.DayOfWeek)
If DaysToAdd > 7 Then DaysToAdd -= 7
Dim NextMonday As Date = Today.AddDays(DaysToAdd)
MsgBox( NextMonday)

Saludos:

Jesús López



"Fadoyo" escribió en el mensaje
news:
> Hola a todos, espero que hayais tenido buen verano. ¿Es posible hacer lo
> siguiente de forma facil?
>
> Si hoy es X ( 21 de Agosto por ejemplo), quiero obtener la fecha del
> proximo
> Lunes, ¿Como lo puedo hacer?
>
> Gracias
> Fadoyo
>
>

Lo malo es que ese código falla cuando "hoy" es domingo. Por eso puse la
línea de código:

If DaysToAdd > 7 Then DaysToAdd -= 7

Además, intenté que el código fuera bastante general, de manera que si lo
quieres para otro día, por ejemplo para martes, con cambiar DayOfWeek.Monday
por DayOfWeek.Tuesday sería suficiente.

Saludos:

Jesús López



"Fadoyo" escribió en el mensaje
news:

Hola a todos, gracias por contestar, al final lo solucione asi:

Dim fini as new datetime

fini=Today.AddDays(8 - Today.DayOfWeek)

Gracias
Fadoyo


"Jesús López" wrote in message
news:

Dim Today As Date = Date.Today
Dim DaysToAdd As Integer = 7 + CInt(DayOfWeek.Monday) -
CInt(Today.DayOfWeek)
If DaysToAdd > 7 Then DaysToAdd -= 7
Dim NextMonday As Date = Today.AddDays(DaysToAdd)
MsgBox( NextMonday)

Saludos:

Jesús López



"Fadoyo" escribió en el mensaje
news:
> Hola a todos, espero que hayais tenido buen verano. ¿Es posible hacer
> lo
> siguiente de forma facil?
>
> Si hoy es X ( 21 de Agosto por ejemplo), quiero obtener la fecha del
> proximo
> Lunes, ¿Como lo puedo hacer?
>
> Gracias
> Fadoyo
>
>

Hola, tienes razon, como el Domingo es 0 y no siete como yo creia

Gracias
Fadoyo



"Jesús López" wrote in message
news:

Lo malo es que ese código falla cuando "hoy" es domingo. Por eso puse la
línea de código:

If DaysToAdd > 7 Then DaysToAdd -= 7

Además, intenté que el código fuera bastante general, de manera que si lo
quieres para otro día, por ejemplo para martes, con cambiar

DayOfWeek.Monday

por DayOfWeek.Tuesday sería suficiente.

Saludos:

Jesús López



"Fadoyo" escribió en el mensaje
news:
> Hola a todos, gracias por contestar, al final lo solucione asi:
>
> Dim fini as new datetime
>
> fini=Today.AddDays(8 - Today.DayOfWeek)
>
> Gracias
> Fadoyo
>
>
> "Jesús López" wrote in message
> news:
>> Dim Today As Date = Date.Today
>> Dim DaysToAdd As Integer = 7 + CInt(DayOfWeek.Monday) -
>> CInt(Today.DayOfWeek)
>> If DaysToAdd > 7 Then DaysToAdd -= 7
>> Dim NextMonday As Date = Today.AddDays(DaysToAdd)
>> MsgBox( NextMonday)
>>
>> Saludos:
>>
>> Jesús López
>>
>>
>>
>> "Fadoyo" escribió en el mensaje
>> news:
>> > Hola a todos, espero que hayais tenido buen verano. ¿Es posible hacer
>> > lo
>> > siguiente de forma facil?
>> >
>> > Si hoy es X ( 21 de Agosto por ejemplo), quiero obtener la fecha del
>> > proximo
>> > Lunes, ¿Como lo puedo hacer?
>> >
>> > Gracias
>> > Fadoyo
>> >
>> >
>>
>>
>
>