Function FimMes(dData,n)
    Dim tmp
    tmp=DateAdd("m",n+1,dData)
    FimMes=tmp-Day(tmp)
End Function


'Exemplos -----------------------------
Dim DiasMes
DiasMes=FimMes(Now(),0)  'Total de dias do mês actual
DiasMes=FimMes(Now(),-1) 'Total de dias do mês anterior
DiasMes=FimMes(Now(),1)  'Total de dias do mês seguinte
'--------------------------------------