Saber cual es el ultimo dia del mes escogido

Rey Vargas
05 de Enero del 2005
Hola a todos,

Deseo saber como hago para identificar cual es el ultimo dia (28, 30 o 31) dependiendo del mes mes que seleccione de un combo box. para luego guardar este en una variable

Gracias

l_island
05 de Enero del 2005
Es facil, contruyes la fecha que le corresponde al dia 1 del mes en cuestión, le sumas un mes, le restas un día y ya lo tienes. Aquí te va una funcion a la que le pasas el mes y el año y te devuelve el último dia del mes:
Private Function UltimoDiaMes(Mes As Integer, Anno As Integer) As Integer
Dim fecha As Variant

fecha = DateAdd("d", -1, DateAdd("m", 1, "01/" & Format(Mes, "00") & "/" & Format(Anno, "0000")))
UltimoDiaMes = Day(fecha)

End Function

Saludos!!
l_island