| ||||
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) |