Oscar:
Los obtenés mirando el almanaque. Los meses pares tienen 30 días y los impares 31. Febrero es una excepción fácil de controlar. Te paso un función
Private function DiasDelMes(Byval NumMes as long, optional Anio as long=0) as long
if NumMes=2 then
if anio=0 then anio=year
DiasDelMes=iif((anio mod 4) =0,29,28)
else
DiasDelMes=iif((NumMes mod 2) =0,30,31)
end if
end function
Saludos Ruri