Valida solo dias Habiles

[bitshoot]

Hola a todos,
tengo un problema para el calculo de dias habiles dada una fecha y una cantidad de dias, solo busco calcular los dias de semana (independiente si son feriados) pero no me entrega el valor correcto.


fecha = "03/06/2010"
tomar = 10
separafecha = split(fecha,"/")

'saco cantidad de dias segun mes
Function trae_dias_de_meses(vAno)
Select Case (vAno)
Case "2010":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2011":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2012":
cant_dias="31,29,31,30,31,30,31,31,30,31,30,31"
Case "2013":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2014":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2015":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2016":
cant_dias="31,29,31,30,31,30,31,31,30,31,30,31"
Case "2017":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2018":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2019":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case "2020":
cant_dias="31,29,31,30,31,30,31,31,30,31,30,31"
Case "2021":
cant_dias="31,28,31,30,31,30,31,31,30,31,30,31"
Case else:
cant_dias="30,30,30,30,30,30,30,30,30,30,30,30"
End Select
trae_dias_de_meses = cant_dias
End Function

'trae cantidad de dias de los meses del año correspondiente.
vAnoMes = trae_dias_de_meses(separafecha(2))
vAnoMesArray = split(vAnoMes,",") 'guardo en arreglo cant. de dias de cada mes.
cant_dias_del_mes = vAnoMesArray(separafecha(1)-1) ' consulto cantidad de dias del mes que se pide la vacacion

'el primer ciclo calcula dias de fds desde el dia de inicio hasta los dias a tomar.
dia_partida = separafecha(0) 'asigno dia de inicio
mes_partida = separafecha(1)
anio_partida = separafecha(2)

cuenta_d = 0 ' contador para los dias, a fin de mes vuelve a 0
entra = 1 ' controla while
tomar = (tomar + cint(dia_partida)) - 1
festivos = 0

do while entra = 1
for n = dia_partida to (tomar)
muestrafecha = 1

'a la fecha inicial le suma dias para ver si son fds
suma_dia = dia_partida + cuenta_d
'response.Write(suma_dia) & "=" & dia_partida & "+" & cuenta_d &"<br>"

if (cint(cant_dias_del_mes) >= cint(suma_dia)) then
' aqui controlo en cambio de mes
mes_fecha = mes_partida
else
mes_fecha = mes_partida + 1
mes_partida = mes_fecha 'cambia mes partida cumplidos fdm
suma_dia = 1
cuenta_d = 0
end if

vfecha = suma_dia & "/" & mes_fecha & "/" & anio_partida 'response.Write(vfecha) & "<br>"
if (WeekDayName(WeekDay(vfecha)) = "sábado") or (WeekDayName(WeekDay(vfecha)) = "domingo") then
festivos = festivos + 1
muestrafecha = 0
end if

cuenta_d = cuenta_d + 1 'suma dias
if muestrafecha = 1 then
response.Write(vfecha) & "<br>"
end if
next
'response.Write(suma_dia & "=suma dias " & festivos & "=festivos -------<br>")

if festivos > 0 then
'cuenta_d = cuenta_d-1
dia_partida = suma_dia + 1
tomar = suma_dia + festivos
suma_dia = suma_dia - dia_partida
festivos = 0
'n = 0

response.Write(dia_partida & "&nbsp;nuevo dia partida---------------<br>")
response.Write(tomar & "&nbsp;nuevo tomar---------------<br><br>")
else
entra = 0
end if
loop

'dia_final = dia_partida + tomar + vfds ' sumo: dia de partida de fecha, los dias a tomar y los fines de semana
if suma_dia < 10 then
dia = "0" & suma_dia
else
dia = suma_dia
end if

if (len(mes_fecha) < 2) then
mes = "0" & mes_fecha
else
mes = mes_fecha
end if

'armo la fecha final
vfecha_final = dia & "/" & mes & "/" & anio_partida
response.Write("<br>" & vfecha_final) & "---------final---------<br>"

al momento de terminar el 1er while, pierdo el puntero y no logro recuperarlo, es posible cambiar el while... esto podria hacerlo haciendo que la variable de for no se ingremente cuando la fecha sea sabado o domingo...

saludos y se agradese desde ya cualquier ayuda.

[Adler]

Hola

He intentado leerlo, pero me ha perdido con tantas operaciones. Intenta en la medida de lo posible optimizar el código y encerrarlo en los tags para una mejor lectura

Suerte

[bitshoot]

amigo gracias por tu respuesta, resulta que no puedo organizar el codigo, no me deja, alinea todo a la izquierda, trate de resaltar los comentarios, pero si lo copias y ejecutas no debes tenes problemas

de todo el codigo el while es donde esta el problema, pasa la primera vez por el for bien, luego al hacer loop y pasar nuevamente se pierden las variables de inicio y fin de for.

[Myakire]

Todo ese código es para obtener el número de días hábiles entre dos fechas?

Me llamó la atención que tuvieras que poner el número de días por mes al año en un Case, ¿no te era más sencillo poner una fórmula de 1 linea?

[bitshoot]

En realidad si, pero desconocia esa formula, de todas formas una vez teniendo la tarea lista luego la puedo optimizar.

De todas formas necesito obtener la cantidad de dias del mes que esta calculando para que el contador vuelva a uno y cambie de mes.

gracias por el aporte.

[Myakire]

Ok, pero en lo particular, me gustaría ayudarte con otro código diferente al que usas, ya que lo siento algo rebuscado, para ello necesito que me expliques por favor qué es lo que necesitas obtener exactamente.

tengo un problema para el calculo de dias habiles dada una fecha y una cantidad de dias, solo busco calcular los dias de semana (independiente si son feriados) pero no me entrega el valor correcto.

Vuelvo a preguntar, ¿solo deseas obtener el número de días hábiles entre dos fechas o es algo más?

[bitshoot]

si, solo eso, una fecha y una cantidad de dias, por ejemplo 01/01/2010 y 20 (días)
me debe entregar fecha fin 29/01/2010 ya que no debe contar los fines de semana... solo eso.

y gracias por el tiempo.

[Myakire]

A ver que te parece esta primera aproximación, así a lo rápido creo que es lo que necesitas, pero pruébalo bien:

Código ASP:

<&#37; 
        
if Request("FechaInicial") <> "" and Request("NumDias") <> "" Then
   fFechaInicial    = CDate(Request("FechaInicial"))
   iDiasIncrementar = CInt(Request("NumDias"))
 
   fFechaFinal      = DateAdd("d", iDiasIncrementar, CDate(Request("FechaInicial")))
   iDiasEntreFechas = DateDiff("d", fFechaInicial, fFechaFinal)
     iDiasNoHabiles   = FinesDeSemana(fFechaInicial, fFechaFinal)
     fFechaResultante = DateAdd("d", iDiasEntreFechas+iDiasNoHabiles, fFechaInicial) 
      
   if FinesDeSemana(fFechaInicial, fFechaResultante) > 0 Then
      fFechaResultante = DateAdd("d", iDiasEntreFechas+FinesDeSemana(fFechaInicial, fFechaResultante), fFechaInicial) 
     End If 
    
     Response.Write "Fecha Inicial: " & Request("FechaInicial") & "<br>" 
     Response.Write "Dias hábiles a considerar: " & Request("NumDias") & "<br>" 
     Response.Write "<hr><br>" 
   Response.Write "Total de dias " & iDiasEntreFechas & "<br>"
   Response.Write "Total de dias no hábiles: " & iDiasNoHabiles & "<br>"
   Response.Write "Fecha resultante: " & fFechaResultante & "<br>"
     Response.Write "<hr><br>" 
End If
 
Function FinesDeSemana(FechaIni, FechaFin)
    aux = DateDiff("ww", FechaIni, FechaFin, vbSaturday) + DateDiff("ww", FechaIni, FechaFin, vbSunday)
    If Weekday(FechaIni, vbSunday) = 1 Then aux = aux + 1 End if
    If Weekday(FechaIni, vbSaturday) = 1 Then aux = aux + 1 End If
    FinesDeSemana = aux
End Function
%>
<form>
Fecha Inicial: <input type="text" name="FechaInicial" value="01/01/2010"><br>
Dias h&#225;biles: <input type="text" name="NumDias" value="20"><br>
<input type="submit" value="Calcular">
</form>
 

[bitshoot]

Mostro, excelente... que manera de simplificar el codigo.. eso me pasa por llegar y hacer las cosas sin investigar antes...

un millon mostro.

[Myakire]

no pues gracias, no se que signifique mostro, pero espero que sea bueno

[AlZuwaga]

Si, es algo bueno

[cainblack]

hola Myakire, soy nuevo en esto de programación y me enviaron un proyecto donde necesito ese codigo, pero no se en que lengueje esta escrito, sera que no me puedes hachar una mano con eso?? yo se manejar mas o menos PHP HTML Y JAVASCRIPT, sera que no me puedes hechar la mano??????gracias

[Adler]

Iniciado por cainblack

hola Myakire, soy nuevo en esto de programación y me enviaron un proyecto donde necesito ese codigo, pero no se en que lengueje esta escrito, sera que no me puedes hachar una mano con eso?? yo se manejar mas o menos PHP HTML Y JAVASCRIPT, sera que no me puedes hechar la mano??????gracias

Adivina adivinanza ¿en qué foro has posteado?