Sumar días hábiles a una fecha

19/12/2008 - 13:25 por Alhambra Eidos Desarrollo | Informe spam
Hola a todos,

cuál es la manera más óptima de sumar días hábiles a una fecha dada ?

considero día hábil d elunes a viernes, sin contar sábado o domingo. No
tenemos tabla calendario de fiestas.

Saludos.

http://www.alhambra-eidos.es/web2005/index.html
www.kiquenet.com/churrosoft
http://www.setbb.com/putainformatic...opic.php?p„3
www.trabajobasura.com/solusoft
 

Leer las respuestas

#1 Federico Martinez E.
13/03/2009 - 18:43 | Informe spam
Pues lo que haria yo es lo siguiente:

Dim FechaInicial as Datetime
Dim FechaFinal as Datetime
Dim DiasHabiles as Integer
Dim stop as Boolean=false
DIm ContadorDias as Integer

I = 1
Do

FechaFinal=DateAdd(DateInterval.Day, I, FechaInicial)
If Weekday(FechaFinal, FirstDayOfWeek.Monday) >=0 AND
Weekday(FechaFinal, FirstDayOfWeek.Monday) <=4 Then
ContadorDias +=1
End If

I+=1

If ContadorDias = DiasHabiles Then
stop=true
End If

Until(stop=true)

Return FechaFinal

Preguntas similares