06/11/2003, 11:20
|
 | | | Fecha de Ingreso: noviembre-2002 Ubicación: Puebla, México
Mensajes: 474
Antigüedad: 22 años, 6 meses Puntos: 0 | |
| ok..
' mostrar el ultimo dia de un mes
Function LastDayOfMonth(iMonth, iYear)
DIm NextMonth
NextMonth = DateAdd("m", 1, DateSerial(iYear, iMonth, "01"))
LastDayOfMonth = Day(DateAdd("d", -1, NextMonth))
End Function
Response.Write "Ultimo día del mes Febrero de 2000:" & LastDayOfMonth(2,2000) |