Un punto mas sobre manejo de fechas !!

[carlos79]

Buenos dias mis estimados amigos foristas :

Tengo una pequeña duda a ver si me pueden ayudar.....

EL sistema que estoy desarrollando se encarga de AGENDAR la planificación de un departamento.... QUE sucede... cuando estoy cargando mi planificación le digo por ejemplo... helpdesk va a durar 14 dias en una empresa aplicando una serie de programas de trabajo... y asi otros departamentos !!!!

que sucede... tengo la cantidad de DIAS mas no en un calendario.... en un textbox me aparece el numero 14 pero para definir la fecha utilizo el DTPICKER... uno para inicio del trabajo y otro para la culminación, por ejemplo, inicio el 01/01/2010 y finalizo el 20/01/2010.....

Ahora bien.... ¿Como puedo hacer para que cuando esté incorporando los dias en el calendario me exluya sabados y domingos? y también como puedo hacer para que cuando haga la selección a través de los DTPICKER me valide de que no pueden ser mas de 14 dias ???? es decir, si se pasa del 20 de enero que me diga que hay dias de mas... me explico ???

YO lo veo extremadamente dificil... pero conociendo el recurso humano de este foro estoy seguro que me podrán ayudar !!!!

saludos !!!

Carlos.

[bionet_x86]

podrias manejar el tema con FORMAT, y preguntar if dia = "domingo" or dia = "sabado" por ejemplo, que te genere el calendario... es lo que se me ocurre

[carlos79]

Es que tengo un código que me resta los días sabados y domingos... ya por ahi voy mejorando.. pero cuando cargo la planificación y le digo.. bueno... suma 10 dias a la fecha inicial.. entonces no se como hacer para que incremente de uno en uno restando sabados y domingos...

Ahi es donde ando trancado !!!! y mas dificil es cuando cambia el mes !!!!

Que dificil esto vale jeje !!!

[erbuson]

Hola:

Creo que esta función, con algún cambio podría servirte

Código vb:

Private Function FechaLaborable(FechaInicial As Date, Dias As Integer) As Date
  ' Suma a la fecha indicada el número de días omitiendo Sábados y Domingos
  FechaLaborable = FechaInicial
  Do
    FechaLaborable = DateAdd("d", 1, FechaLaborable)
    ' Considerando 1er día Lunes, si dia semana es menor de 6 (Sábado) considera ha sumado 1
    If Weekday(FechaLaborable, vbMonday) < 6 Then Dias = Dias - 1
    ' Si ha sumado todos los días, sale del bucle
    If Dias = 0 Then Exit Do
  Loop
End Function
 

Saludos