06/11/2003, 11:20
|
| | | Fecha de Ingreso: noviembre-2002 Ubicación: Puebla, México
Mensajes: 474
Antigüedad: 21 años, 7 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) |