FoxPro/Visual FoxPro - como hago para saber dias habiles calendario

Estoy desarrollando una aplicacion para el control de derechos de peticion, y necesito saber los dias habiles calendario para poder saber cuando hay que darles solucion.

Día hábil y natural

Un día natural es un día normal; se diferencia del día hábil en que es independiente de las fiestas o fines de semana que se encuentre dentro del plazo.

Se ve mejor con un ejemplo.
Del 15 de octubre al 15 de noviembre inclusive hay 32 días, no se cuentan sólo los laborables.
En el caso del día hábil sólo se contarían los días laborables. Pueden variar el número según si se trabaja los sábados o por otras circustancias.
Eso significa que los días hábiles son los días en que se trabaja. En este caso, del 15 de octubre de 2004 hasta 15 de noviembre del mismo año hay: 2 fines de semana de dos días en octubre + 3 fines de semana de dos días en noviembre + 1 día de fiesta. Total 4+6+1=11 días de fiesta y 21 días laborables o hábiles.

Los días naturales serían todos los 365 con los que cuenta el año y en cambio los días hábiles serían aquellos que se laboran; por ejemplo, en México lo normal es que la semana laborable sea de lunes a viernes o sábados en casos específicos, dando como resultado el que en la semana normal de 7 días sólo haya 5 días hábiles.

Ahora bien, cada país es un mundo de cosas, con días festivos y otros no, lo que se celebra en un país y por lo tanto no se trabaja, en otro país sucede totalmente diferente.

Lo que en un lugar es un día hábil, en otro lado del planeta no lo es.

Así que averiguar los días hábiles se convierte entonces meramente en un cálculo más que manual, a menos que se trabaje todo el tiempo excepto domingos y navidad entonces las cosas serían más fáciles.

Tenes que crear una base de datos con los días feriados del país.
Por ejemplo : Nombre de la Tabla: Feriado
campo1=diaferiado (tipo date)
(el resto de la base de dato te lo dejo a tu criterio)

Variables a Usar
desdefecha : fecha desde cuando quieres iniciar el conteo (tipo date)
hastafecha : fecha hasta cuando quieres terminar el conteo (tipo date)
cantidad : cantidad de dias habiles (tipo numerico)

*** programa
SELE 1
USE FERIADO
cantidad =0
desdefecha = CTOD("01/01/2007")
hastafecha = CTOD("31/12/2007")

FOR t= desdefecha TO hastafecha
IF DOW(t)<>1 .AND. DOW(t)<>7 && NO ES Domingo ó Sábado
* SELE FERIADO
LOCA FOR t=diaferiado
IF EOF() && NO ENCUENTRA DIA FERIADO
cantidad =cantidad +1
ENDIF
ENDIF
ENDFOR
? "la cantidad de días hábiles entre:", desdefecha,"y ",hastafecha
? "es de ",STR(cantidad,4,0),"días hábiles"
*************************
* PROBALO Y AVISAME

sale error en :
FOR t= desdefecha TO hastafecha ,

lo reconoce como fecha pero debe ser numerico

Angel

A MI ME FUNCIONO ASI, LO PUSE EN UN BOTON


CONTADOR=0

A=F_ALTA
B=F_BAJA
C=A

do while C<B
IF DOW(C)=1 OR DOW(C)=7
CONTADOR=CONTADOR+1
ENDIF
C=C+1
ENDDO

THISFORM.TEXT3.VALUE=CONTADOR

muchisimas gracias me sirvio de mucho!!!