Saber dias Habiles!

Eso mismo!!!.



"Daniel Álvarez" wrote in message
news:

Cierto es, ademas algunos cada año cambian osea que debe de ser una tabla
que tiene que ser mantenida, si hay jaelo si en la funcioncita.


Daniel Álvarez




"Jhonny Vargas P." escribió en el

mensaje

news:
>
> Hay que tener en consideración los feriados y para eso necesariamente
debes
> tener una tabla con los "feriados".
>
>
> Saludos,
> Jhonny Vargas P. [MS MVP-ASP]
> Santiago de Chile
>
> "Daniel Álvarez" wrote in message
> news:
> > Yo una función asi no la tengo pero tampoco es dificil de montar Solo
> tienes
> > que ir mirando todos los dias que hay entre esas dos fechas y tener un
> > contador donde vas sumando si el dia correspondiente es habil.
> >
> > Para ello solo necesitas la instrucción
> >
> > weekday(fecha,vbmonday)
> >
> > que te devuelve el dia de la semana.
> >
> > Daniel Álvarez
> >
> >
> >
> >
> > "" escribió en el mensaje
> > news:000d01c39cb5$7d3f4d20$
> > De Lunes a Viernes.
> > >Defineme dias habiles, dias completos, de lunes a viernes
> > de lunes a sabado.
> > >
> > >Daniel Álvarez
> > >-
> > >
> > >
> > >
> > >"" escribió
> > en el mensaje
> > >news:00b901c39cab$1f9f7370$
> > >> Hola foreros!
> > >>
> > >> Alguien tiene por ahi una funcion
> > >> que saque los dias habiles que
> > >> hay entre dos fechas?
> > >>
> > >>
> > >> De antemano Gracias!!
> > >
> > >
> > >.
> > >
> >
> >
>
>

Hola :

Te mando una rutina que tengo desde hace tiempo, viene con mucho código que
sirve para que identifiques cada parte del código y al final te da el numero
de días hábiles o laborables entre dos fechas. Ya que sepas como funciona
quitale todo el codigo que no necesitas, pero en principio te ayudara a
darte una idea de como es que trabaja la funcion DateDiff.
Aunque esta rutina no sirve (como está ahora) para poder quitar los días
feriados es un buen principio.

Espero que te sirva.

Saludos,

Carlos

<%
Dim Fecha
Fecha = "04/27/2003 06:34:12 PM"
Response.Write "La Fecha proporcionada es:" & Fecha & "<br>"
Dim Dia,day1, month1, year1, hour1, minute1, second1
day1 = day(Fecha)
month1 = month(Fecha)
year1 = year(Fecha)
hour1 = hour(Fecha)
minute1 = minute(Fecha)
second1 = second(Fecha)
Response.Write "La fecha es: " & day1 & " del mes " & month1 & " de " &
year1 & "<br>"
Response.Write "La hora es: " & hour1 & ":" & minute1 & ":" & second1 &
"<br>"
Dia = Weekday(Fecha)
Response.Write "El día de la semana es el número: " & Dia & " a partir del
domingo<br>"
Response.Write "El día de la semana es: " & WeekdayName(Dia) & "<br>"
Dim nombre_dia
Select Case dia
Case 1
nombre_dia = "Domingo"
Case 2
nombre_dia = "Lunes"
Case 3
nombre_dia = "Martes"
Case 4
nombre_dia = "Miercoles"
Case 5
nombre_dia = "Jueves"
Case 6
nombre_dia = "Viernes"
Case 7
nombre_dia = "Sabado"
End Select
Response.Write "El día de la semana en español es: " & nombre_dia & "<br>"
Dim Fecha2
Fecha2 = "06/28/2003 11:00:52 AM"
Response.Write "La segunda fecha proporcionada es: " & Fecha2 & "<br>" &
"<hr>"
Dim diferencia
Response.Write "Las diferencias en los siguientes renglones son en tiempo
natural, no en tiempo hábil o de lunes a viernes" & "<br>"
diferencia = DateDiff("s", Fecha, Fecha2)
Response.Write "La diferencia de fecha en segundos es de: " & diferencia &
"<br>"
diferencia = DateDiff("n", Fecha, Fecha2)
Response.Write "La diferencia de fecha en minutos es de: " & diferencia &
"<br>"
diferencia = DateDiff("h", Fecha, Fecha2)
Response.Write "La diferencia de fecha en horas es de: " & diferencia &
"<br>"
Dim diferencia_dias
diferencia_dias = DateDiff("d", Fecha, Fecha2)
Response.Write "La diferencia de fecha en días es de: " & diferencia_dias &
"<br>"
diferencia = DateDiff("m", Fecha, Fecha2)
Response.Write "La diferencia de fecha en meses es de: " & diferencia &
"<br>"
Dim dias, checar_dia, dia_semana
For dias = 1 to diferencia_dias - 1
checar_dia = DateAdd("d", dias, Fecha)
dia_semana = Weekday(checar_dia)
Select Case dia_semana
Case 1
nombre_dia2 = "Domingo"
Case 2
nombre_dia2 = "Lunes"
Case 3
nombre_dia2 = "Martes"
Case 4
nombre_dia2 = "Miercoles"
Case 5
nombre_dia2 = "Jueves"
Case 6
nombre_dia2 = "Viernes"
Case 7
nombre_dia2 = "Sabado"
End Select
If dia_semana = 1 or dia_semana = 7 Then
'Response.Write " - No se agrega<br>"
Else
'Response.Write checar_dia
'Response.Write " - " & nombre_dia2
'Response.Write "<br>"
dia_habil = dia_habil + 1
End If
Next
Response.Write "<hr>"
Response.Write "Los días hábiles son: " & dia_habil & "<br>"
%>

"" escribió en el mensaje
news:00b901c39cab$1f9f7370$

Hola foreros!

Alguien tiene por ahi una funcion
que saque los dias habiles que
hay entre dos fechas?


De antemano Gracias!!

Gracias!!

Hola :

Te mando una rutina que tengo desde hace tiempo, viene

con mucho código que

sirve para que identifiques cada parte del código y al

final te da el numero

de días hábiles o laborables entre dos fechas. Ya que

sepas como funciona

quitale todo el codigo que no necesitas, pero en

principio te ayudara a

darte una idea de como es que trabaja la funcion DateDiff.
Aunque esta rutina no sirve (como está ahora) para poder

quitar los días

feriados es un buen principio.

Espero que te sirva.

Saludos,

Carlos

<%
Dim Fecha
Fecha = "04/27/2003 06:34:12 PM"
Response.Write "La Fecha proporcionada es:" & Fecha

& "<br>"

Dim Dia,day1, month1, year1, hour1, minute1, second1
day1 = day(Fecha)
month1 = month(Fecha)
year1 = year(Fecha)
hour1 = hour(Fecha)
minute1 = minute(Fecha)
second1 = second(Fecha)
Response.Write "La fecha es: " & day1 & " del mes " &

month1 & " de " &

year1 & "<br>"
Response.Write "La hora es: " & hour1 & ":" & minute1

& ":" & second1 &

"<br>"
Dia = Weekday(Fecha)
Response.Write "El día de la semana es el número: " & Dia

& " a partir del

domingo<br>"
Response.Write "El día de la semana es: " & WeekdayName

(Dia) & "<br>"

Dim nombre_dia
Select Case dia
Case 1
nombre_dia = "Domingo"
Case 2
nombre_dia = "Lunes"
Case 3
nombre_dia = "Martes"
Case 4
nombre_dia = "Miercoles"
Case 5
nombre_dia = "Jueves"
Case 6
nombre_dia = "Viernes"
Case 7
nombre_dia = "Sabado"
End Select
Response.Write "El día de la semana en español es: " &

nombre_dia & "<br>"

Dim Fecha2
Fecha2 = "06/28/2003 11:00:52 AM"
Response.Write "La segunda fecha proporcionada es: " &

Fecha2 & "<br>" &

"<hr>"
Dim diferencia
Response.Write "Las diferencias en los siguientes

renglones son en tiempo

natural, no en tiempo hábil o de lunes a viernes" & "<br>"
diferencia = DateDiff("s", Fecha, Fecha2)
Response.Write "La diferencia de fecha en segundos es

de: " & diferencia &

"<br>"
diferencia = DateDiff("n", Fecha, Fecha2)
Response.Write "La diferencia de fecha en minutos es

de: " & diferencia &

"<br>"
diferencia = DateDiff("h", Fecha, Fecha2)
Response.Write "La diferencia de fecha en horas es de: "

& diferencia &

"<br>"
Dim diferencia_dias
diferencia_dias = DateDiff("d", Fecha, Fecha2)
Response.Write "La diferencia de fecha en días es de: " &

diferencia_dias &

"<br>"
diferencia = DateDiff("m", Fecha, Fecha2)
Response.Write "La diferencia de fecha en meses es de: "

& diferencia &

"<br>"
Dim dias, checar_dia, dia_semana
For dias = 1 to diferencia_dias - 1
checar_dia = DateAdd("d", dias, Fecha)
dia_semana = Weekday(checar_dia)
Select Case dia_semana
Case 1
nombre_dia2 = "Domingo"
Case 2
nombre_dia2 = "Lunes"
Case 3
nombre_dia2 = "Martes"
Case 4
nombre_dia2 = "Miercoles"
Case 5
nombre_dia2 = "Jueves"
Case 6
nombre_dia2 = "Viernes"
Case 7
nombre_dia2 = "Sabado"
End Select
If dia_semana = 1 or dia_semana = 7 Then
'Response.Write " - No se agrega<br>"
Else
'Response.Write checar_dia
'Response.Write " - " & nombre_dia2
'Response.Write "<br>"
dia_habil = dia_habil + 1
End If
Next
Response.Write "<hr>"
Response.Write "Los días hábiles son: " & dia_habil

& "<br>"

%>

"" escribió

en el mensaje

news:00b901c39cab$1f9f7370$

Hola foreros!

Alguien tiene por ahi una funcion
que saque los dias habiles que
hay entre dos fechas?


De antemano Gracias!!

.