[Resolvido]Contar Sabados entre duas datas

Public Function ContaSabados(DataInicio As Date, DataFim As Date) As Long
'By JPaulo ® Maximo Access
Dim ContaDias As Long
Dim PercorreDatas As Date
Dim inConta As Long

    ContaDias = 0
    For PercorreDatas = DataInicio To DataFim
    inConta = Weekday(PercorreDatas)
    '1-Domingo 7-Sábado
    If inConta = 7 Then 
     ContaDias = ContaDias + 1
    End If
    Next PercorreDatas
    ContaSabados = ContaDias
End Function