Funcion para sacar el ultimo dia del mes
Código:
Function ultimodiadelmes(mes, ano)
DIm messig
messig = DateAdd("m", 1, DateSerial(ano, mes, "01"))
ultimodiadelmes = Day(DateAdd("d", -1, messig))
End Function
le pasamos como parametro el mes y el año asi nos retornara el ultimo dia de ese mes.
llamado asi:
Código:
Response.Write "Ultimo día del mes Enero de 2005:" & ultimodiadelmes(1,2005)