Alem da indicação do colega Patropi,
Creio eu que o mais simples é
Sub fm()
tp = DateAdd("m", 1, "01/05/2014") - 1
MsgBox Day(tp)
End Sub
Porem seria interessante saber como o parâmetro será passado (data ou mes)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/05/2014 2:02 pm