<%' mostrar el ultimo dia de un mes
Function LastDayOfMonth(iMonth, iYear)
NextMonth = DateAdd("m", 1, DateSerial(iYear, iMonth, "01"))
LastDayOfMonth = Day(DateAdd("d", -1, NextMonth))
End Function
%>
Ultimo día del mes Febrero de 2006: <%=LastDayOfMonth(2,2006)%>