Intruciones contabilizar dias habiles

Ok, te mando un ejemplo
Function DateHabiles
    Parameters Fecha, dias
    Local Fecha_Return, i
    i = 0
Select Month(fecha),Day(fecha) From feriados
    If Empty(Fecha)
        Fecha = Date()
    Endif
    If Empty(dias)
        dias = 1
    Endif
    Do While (i < dias)
        Fecha = Fecha + 1
        If Dow(Fecha) = 2 Or Dow(Fecha) = 3 Or Dow(Fecha) = 4 Or Dow(Fecha) = 5 Or Dow(Fecha) = 6
            If Dia_Habil(Fecha) = .T.
                i = i + 1
            Endif
        Endif  
    Enddo
    Return Fecha
Endfunc
Function Dia_Habil
    Parameters Fecha2Check
    Set Date Dmy
    Select * From Mis_Feriados Where Month_Fecha_ == Alltrim(Str(Month(Fecha))) And Day_Fecha_ == Alltrim(Str(Day(Fecha))) Into Cursor Che
        If _tally > 0
            Return .F.
        Else
            Return .T.
        Endif
Endfunc
Saludos te mando un ejemplo donde tengo en una tabla ls feriados que son de mi país, y verifica que días son domingo y sábado y no los toma en cuenta

Muchas Gracias! Voy a checar como funciona.
Saludos...