[Resolvido]DateDiff somente em um período do dia (somente dias uteis)

Public Function fncFsF(dta1 As Date, dta2 As Date) As Long
Dim k
Dim m As Long, j%
'se data inicial igual a data final não contabiliza
If Int(CDbl(dta1)) = Int(CDbl(dta2)) Then
    fncFsF = 0
    Exit Function
End If
For k = Int(CDbl(dta1)) To Int(CDbl(dta2))
    'Data no final de semana
    If Eval(Weekday(k) & " in(1,7)") Then
        'se a data inicial cair no final de semana
        If k = Int(CDbl(dta1)) Then
            m = m + (1440 - (Hour(dta1) * 60))
        'se a data final cair em um final de semana
        ElseIf k = Int(CDbl(dta2)) Then
            m = m + (Hour(dta2) * 60)
        Else
            'data do meio cair em um final de semana
            m = m + 1440
        End If
    Else
        'verifica se data caiu em um feriado - consultando a tabela feriado
        If DCount("*", "tblFeriados", "clng(dataferiado) = " & k) > 0 Then
            'se a data inicial cair no feriado
            If k = Int(CDbl(dta1)) Then
                m = m + (1440 - (Hour(dta1) * 60))
            ' se a data final cair no feriado
            ElseIf k = Int(CDbl(dta2)) Then
                m = m + (Hour(dta2) * 60)
            'data do meio cair no feriado
            Else
                m = m + 1440
            End If
        Else
            'data inicial em dia normal
            If k = Int(CDbl(dta1)) Then
                m = m + 480
            'data final em dia normal
            ElseIf k = Int(CDbl(dta2)) Then
                m = m + 420
            'data do meio em dia normal
            Else
                m = m + 900
            End If
        End If
    End If
Next
fncFsF = m
End Function

Dia_Do_Impacto---DataInicial------------DataFinal
01/02/2014 ------01/02/2014 12:00 --- 01/02/2014 16:00
02/02/2014 ------02/02/2014 07:00 --- 02/02/2014 16:00
03/02/2014 ------03/02/2014 07:00 --- 03/02/2014 16:00
04/02/2014 ----  04/02/2014 07:00 --- 04/02/2014 16:00
05/02/2014 ----  05/02/2014 07:00 --- 05/02/2014 10:00