Função que retorna o último dia do mês

<%
'--------------------------------------------------------------------
' maxDiaMes
' Função que retorna o último dia do mês
' Criado por Rafael Martins de Ascenção
' Email: iamaz@ig.com.br - ICQ: 118036283
' Colaboraram:
' Adriano Dias (adiasbr@yahoo.com.br)
'--------------------------------------------------------------------

' Nunca esquecendo o Session.LCID
Session.LCID = 1046

function maxDiaMes(mes,ano)
 lDate = DateAdd("m", 1, CDate("01/" & mes & "/" & ano))
 maxDiaMes = Day(DateAdd("d",-1,lDate))
end function

' E para usar, por exemplo para o mês de junho

ultimodia = maxDiaMes(6,2002)
%>

Esta matéria foi postada originalmente no ASP4Developers por Rafael Martins de Ascenção (site), que na época era "também conhecido como Iamaz do news do FX. Programador ASP, ColdFusion. ". Hoje, vai saber...