Claculo dias entre fechas sin dias sabado y domingo

[malvear]

Estimados, quisiera que me ayudaran con lo siguiente:

Resulta que estoy desarrollando un sistema que mantiene las vacaciones de una empresa, y la idea es que cuando una persona pida una cantidad de dias de vacaciones se genere la fecha de termino de las vacaciones a partir de una fecha de inicio que se ingresa a un textbox y la cantidad de dias que pidio que tambien se ingresan a un textbox. Entonces la idea es que se haga el calculo de cuando debe volver de las vacaciones. Esto último lo hice pero lo que necesito es si alguno de uds. me hecha una mano para poder calcular sin tomar en cuenta los sabados ni los domingos que puedan haber entre esas dos fechas.

 

 

Ejemplo:

 

Inicio: 13/06/2011 (Esta fecha corresponde a un día lunes)

Cantidad de dias:7

Fecha de Termino:21/06/2011 (Esta fecha corresponde a un día martes)

 

 

De antemano Muchas Gracias....... :) :) :) :banana: :banana:

 

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 

dim fecha as datetime

fecha = Now

If fecha.Dayofweek = days.Saturday or fecha.Dayofweek = days.Sunday then

fecha = fecha.adddays(2) ' Aqui le sumas 2 dias a la fecha si es un sabdo o un domingo

End if

 

Esta funcion la encontre en internet pero no se como podria implementarla.

 

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

SOLUCIONADO:

Aca dejo la funcion para que la usen si les sirve.

Gracias cañangasñangas por la orientación.

 

Dim i As Integer

Dim fechainicial As DateTime

fechainicial = TxtInicio.Text

For i = 1 To TxtDias.Text

If fechainicial.DayOfWeek = Day.Sunday Then

fechainicial = fechainicial.AddDays(3) ' Aqui le sumas 3 dias a la fecha si es un Domingo

Else

fechainicial = fechainicial.AddDays(1)

End If

Next (i)

TxtHasta.Text = fechainicial.AddDays(-1)

Edited June 15, 2011 by malvear

[cañangasñangas]

busca alguna manera de cachar si es fin de semana

 

onda

 

for(ACA EL FOR DE DIF DE DIAS DE VELDAD)

if(isFindeSemana(fecha) == false){

difDias++;

}

}

[malvear]

Trate de hacer lo que me sugieres, pero al parecer tengo un error, porque no me calcula lo que debiera

 

 

esto llevo:

 

Dim i As Integer

Dim x As Integer

Dim fechainicial As DateTime

fechainicial = TxtInicio.Text

x = TxtDias.Text

 

For i = 0 To x

If fechainicial.DayOfWeek = Day.Saturday Then

fechainicial = fechainicial.AddDays(3) ' Aqui le sumas 2 dias a la fecha si es un sabado o un domingo

i += i

ElseIf fechainicial.DayOfWeek = Day.Sunday Then

fechainicial = fechainicial.AddDays(2)

i += i

ElseIf fechainicial.DayOfWeek <> Day.Sunday Or Day.Saturday Then

fechainicial = fechainicial.AddDays(x - 1)

i += i

End If

Next

TxtHasta.Text = fechainicial