Dias uteis de um período separado por mês

Prezados,
Preciso fazer um relatório que me liste os dias úteis de um período separado por mês.

Ex:
datainicio=01/01/2013
datafim = 28/05/2013

Resultado:
janeiro = 12 dias úteis
Fevereiro = 14 dias uteis
etc..

Cole num modulo novo e salve:

Public Function CalculaDiasUteis(intDataInicio, intDataFim) As Integer
'By JPaulo ® Maximo Access
Dim DataReferencia As Date
Dim intTotalDiasUteis As Integer
  
  If IsNull(intDataInicio) Then
   
  Else
    DataReferencia = intDataInicio
    intTotalDiasUteis = 0
        
    While DataReferencia <= intDataFim
    
        If Weekday(DataReferencia) <> vbSunday And Weekday(DataReferencia) <> vbSaturday Then
                intTotalDiasUteis = intTotalDiasUteis + 1
        End If
        DataReferencia = DateAdd("d", 1, DataReferencia)
        
    Wend
    CalculaDiasUteis = intTotalDiasUteis
  End If
End Function

Para chamar a função, por exemplo num campo novo na sua consulta, que alimenta o seu relatorio;

DiasUteis:CalculaDiasUteis(SeuCampoDataInicio;SeuCampoDataFim)

JPaulo,

Olhei o seu código e me parece que ele só calcula os dias úteis totais do intervalo.
Para calcular os dias úteis do intervalo eu estou usando uma função que além dos finais de semana também desconta os dias de feriado.

O que eu preciso é que este intervalo (indatainicio e intdatafim) seja dividido nos meses que estão contido nele e o resultado no relatório seja por mês:

Intervalo de janeiro a março (01/01/2013 a 30/03/2013)
janeiro 12 dias
fevereiro 10 dias
março 20 dias

Muito obrigado