Pues no sé otra función... a no ser una creada por ti mismo
De todas formas eso de poner los rangos es una chorrada:
[Code]
Private Function DiasDelMes (ByVal Mes As Integer, Optional Byval Anho As integer) As Integer
If Mes < 1 or Mes > 12 then Exit Function
If Anho = 0 Then Anho = Year(Now)
Dim s1 As string , s2 as string
s1 = "1/" & Mes & "/" & Anho
If Mes < 12 Then
Mes = Mes + 1
Else
Mes = 1
Anho = Anho + 1
end if
s2 = "1/" & Mes & "/" & Anho
DiasDelMes = DateDiff("d", Format(s1 , "dd/mm/yyyy"), Format(s2, "dd/mm/yyyy") )
End Sub
Y como esta mil variantes podrías hacer... desde crear una matriz con los días de cada mes y recuperar el elemento correspondiente a la posición, utilizar un select case...
De cualquier forma que uses vas a encontrarte con la cuestión de febrero y los bisiestos, a sí que si no quieres perder tiempo con operaciones, deja que datediff haga el trabajo por ti.
Chao.
