Como se identifican los días no hábiles distintos de Sab y Dom?

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Creo que la única solución es que los festivos los pongas en una lista,
tendrás que indicarlos tu y luego, si quieres saber si una fecha es festivo
o no, tendrás que compararla con las existentes en dicha lista.

SALUDOS.
Julián-Valencia-España

"Cristian" escribió en el mensaje
news:

a

Hola Cristian.

Quizás te sirva esta función:

Function Cuantos_Días(QueDia) As Integer
' Esta función calcula, en función de la fecha del día,
' los días hábiles que corresponden a dicha fecha.
' Esta matriz recoge las fiestas nacionales , que no sean sábados, del año
en curso (mmdd).
Fiestas = Array("0106", "0320", "0413", "0414", "0501", "0815", "1012",
"1101", "1206", "1208", "1225")
QueInicio = Format(DateValue("31/12/2005"), "#")
Descontar = 0

For Contador = Val(Left$(UCase$(Format$(Val(QueDia) + QueInicio,
"DD/MM/YY")), 2)) To 1 Step -1
If Weekday(CVDate(UCase$(Format$(Val(QueDia) + QueInicio,
"DD/MM/YY"))) - (Val(Left$(UCase$(Format$(Val(QueDia) + QueInicio,
"DD/MM/YY")), 2)) - Contador)) = 7 Or
Weekday(CVDate(UCase$(Format$(Val(QueDia) + QueInicio, "DD/MM/YY"))) -
(Val(Left$(UCase$(Format$(Val(QueDia) + QueInicio, "DD/MM/YY")), 2)) -
Contador)) = 1 Or Not
IsError(Application.Match(Format(Month(UCase$(Format$(Val(QueDia) +
QueInicio, "DD/MM/YY"))), "00") & Format(Contador, "00"), Fiestas, 0)) Then
Descontar = Descontar + 1
End If
Next Contador
Cuantos_Días = Day(UCase$(Format$(Val(QueDia) + QueInicio, "DD/MM/YY")))
- Descontar
End Function

Cualquier duda, pregunta.

Saludos, César

"julian-vlc-sp" wrote:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Creo que la única solución es que los festivos los pongas en una lista,
tendrás que indicarlos tu y luego, si quieres saber si una fecha es festivo
o no, tendrás que compararla con las existentes en dicha lista.

SALUDOS.
Julián-Valencia-España

"Cristian" escribió en el mensaje
news:
>a