No creo que exista esto ya que depende de la region, la localidad, etc seran para unos habiles y para otros no. Aunque realizar una funcion que haga esto no es muy dificil. Te doy alguna idea por si te sirve de algo:
Private Function DiaHabil(ByVal fecha As Date) As Boolean
' Aqui declaras los dias festivos
Dim F(31, 12) As Boolean
' Donde 31 es el maximo de dias que puede tener un mes y 12 son los meses
' Si el 12 de enero es festivo pues declaras:
F(12, 1) = True
' Si el 24 de febrero es festivo pues declaras:
F(24, 2) = True
' Asi hasta completar todos los dias festivos.
' Ahora queda comprovar si la fecha introducida corresponde a algun dia festivo
DiaHabil = Not F(fecha.Day, fecha.Month)
' Esta funcion te devolvera true si en la fecha introducida es un dia habil o false si es festivo.
End Function
Saludos.
www.k2sistemas.net
[email protected]