decir cuantos dias no habiles en un rango de fecha.

[lexus]

hola

gracias por la respuesta..


lo logre asi por si a alguien le interesa

Código:

 
function dias_habiles(fecha1,fecha2)
 
dim d, contador, fecha_d, dias_h, dias
 
dias = DateDiff("d",fecha1,fecha2)
contador = 0
 
 for d = 1 to dias
 
  fecha_d = cdate(fecha1) + cint(d)
 
   if Weekday(fecha_d) = 7 or Weekday(fecha_d) = 1  then
   contador = contador + 1
  end if
 next
 
   dias_h = cdbl(dias) - cdbl(contador)
   dias_habiles = dias_h
 
end function

me retorna la cantidad de dias habiles en un rango de fechas.
en caso que deseen retornar los dias no habiles simplemente se pone a imprimir el contador y ya..

espero les sea de utilidad..
gracias